print1985 发表于 2012-5-26 01:42:15

块名前面加个*号就行了，比如块名为A，输入块名的时候写成*A

print1985 发表于 2012-5-26 01:45:36

或者在最后加一句(command "EXPLODE" (entlast))

(defun c:bb(/ n p)
(setq n (getstring "\n请输入块名："))
(setq p (getpoint "\n指定插入点："))
(command "-insert" n p "1" "1" "0" )
(command "EXPLODE" (entlast));加这句 炸开图块 免去输入*号
(princ)
)

print1985 发表于 2012-5-26 01:52:37

还是用这个吧
(defun c:bb(/ n p)
(setq n (strcat "*" (getstring "\n请输入块名：")));在块名前自动添加*号
(setq p (getpoint "\n指定插入点："))
(command "-insert" n p "1" "1" "0" )
(princ)
)

jenthyu 发表于 2012-7-24 23:30:10

newbuser 发表于 2012-7-25 16:44:17

jenthyu 发表于 2012-7-24 23:30 static/image/common/back.gif
如果要输入寻找快的路径怎么设置啊

不晓得啊，你问上面那几楼的哥们，他们肯定会。

北岸小筑 发表于 2013-1-6 12:54:25

如果图块是图中自带的，没有单独存的文件，确实存在找不到的情况，最好显示文件列表

icefire 发表于 2013-1-18 14:03:54

改写插入对话框内容，只保留浏览文件内容，其余的用COMMAND实现
页: 1 [2]
查看完整版本: CAD中如何实现“insert”命令插入块程式化选择？