CAD中如何实现“insert”命令插入块程式化选择？

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
如果要输入寻找快的路径怎么设置啊

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

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

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

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

改写插入对话框内容，只保留浏览文件内容，其余的用COMMAND实现

账号		自动登录	找回密码
密码			注册

jenthyu jenthyu 当前离线积分 430 明经币个注册时间 2008-6-23 在线时间小时威望金钱个贡献激情	发表于 2012-7-24 23:30:10 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡