求教修改一个填充代码，如何改成不需要选择比例直接填充

xiehaoing

输入命令以后，还有比例选择，怎么取消这个比例选择。 求修改一下这个原代码 ，感谢。

aeo000000

没人帮你吧 ：=）

把里面的668行开始的：

(defun TCGJ_D()
;;;这部分:选择条件
  (setq s1 (cadr (ssgetfirst)))
  (initget "X D")
  (setq ss1 (getkword "\n请选择填充图案用于[1比0.5(X)/1比1(D)]<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

start4444

搞得那么复杂···跟着命令来就行啦  (vl-cmdf ".bhatch" "p" "solid" pause ) 这是填充实体的

xiehaoing

aeo000000 发表于 2022-9-8 15:38
没人帮你吧 ：=）

把里面的668行开始的：

谢谢！我自己写了一些填充块和面板，到时候做好一起发论坛分享一下

xiehaoing

aeo000000 发表于 2022-9-8 15:38
没人帮你吧 ：=）

把里面的668行开始的：

还请教一下，这个我填充出来的文件可不可以设置随图层?如何修改啊