求教修改一个填充代码，如何改成不需要选择比例直接填充
输入命令以后，还有比例选择，怎么取消这个比例选择。 求修改一下这个原代码 ，感谢。
本帖最后由 aeo000000 于 2022-9-8 22:29 编辑
没人帮你吧 ：=）
把里面的668行开始的：
(defun TCGJ_D()
;;;这部分:选择条件
(setq s1 (cadr (ssgetfirst)))
(initget "X D")
(setq ss1 (getkword "\n请选择填充图案用于<D>："))
(if (= ss1 "X") (setq zhbl TGB_J)(setq zhbl TGB_D))
(princ)
) ;over defun
改成：
(defun TCGJ_D()
(setq zhbl TGB_D)
) ;默认比例取大的那个值，比如tc09为600，如果默认小的，TGB_D 改成 TGB_J
搞得那么复杂···跟着命令来就行啦(vl-cmdf ".bhatch" "p" "solid" pause ) 这是填充实体的 aeo000000 发表于 2022-9-8 15:38
没人帮你吧 ：=）
把里面的668行开始的：
谢谢！我自己写了一些填充块和面板，到时候做好一起发论坛分享一下
aeo000000 发表于 2022-9-8 15:38
没人帮你吧 ：=）
把里面的668行开始的：
还请教一下，这个我填充出来的文件可不可以设置随图层?如何修改啊
页:
[1]