社区 › AutoLISP/Visual LISP 编程技术 › 预设常用填充V1.2——用LISP来快速完成常用填充

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

很使用的程序，感谢

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

多谢楼主分享

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

感谢楼主分享!

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

地板坐个，以表支持

alexmai 发表于 2017-10-27 20:50: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:41

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

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

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

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

确实很有用

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

谢谢 仔细看看

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

软件真的不错 试试看

查看完整版本: 预设常用填充V1.2——用LISP来快速完成常用填充