预设常用填充V1.2——用LISP来快速完成常用填充

tmwall · 发表于 2014-12-20 12:17

很使用的程序，感谢

海盗曹 · 发表于 2015-1-22 09:49

多谢楼主分享

yoyoho · 发表于 2015-1-22 12:44

感谢楼主分享!

用户3766035971 · 发表于 2015-2-3 14:24

地板坐个，以表支持

alexmai · 发表于 2017-10-27 20:50

我的目的是先点选物体，没有点选物体就执行选择物体

改了这两行代码，

但就为什么不行？

(if (setq ss (ssget))
  (prompt "\n请拾取填充内部点：\n")
  (command "bhatch" pause)
  (while (> (getvar "CMDACTIVE") 0) (command PAUSE))
  (progn  ;如果选择集为空，则执行点选命令
  (command "bhatch" "s" ss "" "") ;如果选择集不为空，则执行对象填充
))

cren1128 · 发表于 2017-10-31 09:50

感谢楼主，拿下这个工具了

li809 · 发表于 2017-11-1 16:21

楼主这下弄的好全，哈哈太好了

qincj0001 · 发表于 2017-12-3 21:51

确实很有用

63847051 · 发表于 2017-12-22 14:22

谢谢仔细看看

zgsggs · 发表于 2018-1-16 15:44

软件真的不错试试看

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

[资源] 预设常用填充V1.2——用LISP来快速完成常用填充