陈伟 发表于 2021-9-2 10:46
填充图案用SOLID 在点选的时候会出问题（如果上次点选填充了，再次填充的时候会第一时间选择上一次填 ...
defun 后面把局部变量添加齐了应该就好了
xj6019 发表于 2021-9-2 11:23
defun 后面把局部变量添加齐了应该就好了
"填充图案用SOLID 在点选的时候会出问题（如果上次点选填充了，再次填充的时候会第一时间选择上一次填充的范围并完成填充），其他图案没问题"
big兄嘚 这边问题可以帮忙改下吗重新发下吗新手一枚感谢感谢
xj6019 发表于 2020-11-16 10:27
(defun c:TC (/ opt )
(setvar "measurement" 1) ; 设置公制单位
(setvar "cmdecho" 0) ...
这个填充超级好用，但是不知道为什么，如果选择①SOLID这个预设，在无选择的情况下总会自动填充鼠标附近位置，或者自动填充刚创建好的对象。不给你选择机会。只有SOLID这个会这样，别的不会，我反复调换SOLID的序号测试了，就是SOLID会这样，别的任何都不会这样。
cheefeel 发表于 2022-12-1 11:03
这个填充超级好用，但是不知道为什么，如果选择①SOLID这个预设，在无选择的情况下总会自动填充鼠标附近 ...
老长时间没折腾了这个代码我也快忘记了，大体改了改 你试试，也不知道行不行
(defun c:TC (/ opt )
(setvar "measurement" 1) ; 设置公制单位
(setvar "cmdecho" 0) ; 关闭命令响应
(setq oldcolor (getvar "cecolor"))
(if *num_HType*
(setq num_HType (getint (strcat "\n选择填充样式①填充SOLID ②填充ANSI31 : <" (rtos *num_HType* 2 0) ">")))
(setq num_HType (getint "\n选择填充样式①填充SOLID ②填充ANSI31: " ))
)
(if (not num_HType)
(setq num_HType *num_HType*)
(setq *num_HType* num_HType)
)
(setq opt num_HType)
(if (and(< 0 opt 10)(setq sss (cadr (ssgetfirst))))
(eval (read(strcat "(tianchong" (itoa opt) ")")))
);根据选项参数执行填充样式
(if (setq ss (ssget))
(command "bhatch" "s" ss "" "") ;如果选择集不为空，则执行对象填充
(progn;如果选择集为空，则执行点选命令
(prompt "\n请拾取填充部点：\n")
(command "bhatch" pause)
(while (> (getvar "CMDACTIVE") 0) (command PAUSE))
))
(command "color" oldcolor)
(princ)
)
(defun tianchong1 ()
(prompt "\n当前样式: ①填充SOLID\n")
(prompt "\n请选择对象,跳过则为拾取点：\n")
(command "color" "20");改填充的颜色
(command "bhatch" sss "SOLID" "500" "0" "")
)
(defun tianchong2 ()
(prompt "\n当前样式: ②填充ANSI31\n")
(prompt "\n请选择对象,跳过则为拾取点：\n")
(command "color" "8");改填充的颜色
(command "bhatch" sss "ansi31" "100" "0" "")
)
xj6019 发表于 2022-12-1 11:56
老长时间没折腾了这个代码我也快忘记了，大体改了改 你试试，也不知道行不行
输入任何序号，结果都是ANSI31的样式了
cheefeel 发表于 2022-12-1 12:17
输入任何序号，结果都是ANSI31的样式了
那就换个写法试试
(defun c:TC (/ oldcolor opt ss)
(setvar "measurement" 1) ; 设置公制单位
(setvar "cmdecho" 0) ; 关闭命令响应
(setq oldcolor (getvar "cecolor"))
(if *num_HType*
(setq num_HType (getint (strcat "\n选择填充样式①填充SOLID ②填充ANSI31 : <" (rtos *num_HType* 2 0) ">")))
(setq num_HType (getint "\n选择填充样式①填充SOLID ②填充ANSI31: " ))
)
(if (not num_HType)
(setq num_HType *num_HType*)
(setq *num_HType* num_HType)
)
(cond
((= num_HType 1)
(command "color" "20");改填充的颜色
(setvar "HPNAME""SOLID")
)
((= num_HType 2)
(command "color" "8");改填充的颜色
(setvar "HPNAME""ansi31")
)
)
(if (setq ss (ssget))
(command "bhatch" "s" ss "" "") ;如果选择集不为空，则执行对象填充
(progn;如果选择集为空，则执行点选命令
(prompt "\n请拾取填充部点：\n")
(command "bhatch" pause)
(while (> (getvar "CMDACTIVE") 0) (command PAUSE))
)
)
(command "color" oldcolor)
(princ)
)
本帖最后由 cheefeel 于 2022-12-1 13:39 编辑
xj6019 发表于 2022-12-1 13:04
那就换个写法试试
(defun c:TC (/ oldcolor opt ss)
(setvar "measurement" 1) ; 设置公制单位
...
((= num_HType 2)
(command "color" "8");改填充的颜色
(command "bhatch" "an" "y" "p" "无效" "0.5" "0" "")
(setvar "HPNAME""ansi31")
首先，这个确实不存在说意外自行填充，不给你选择填充对象的问题了。
其次，那个 改填充颜色 其实是无效的
然后，因为我不会，就拙劣地尝试了一下加入红色这行，其中蓝色值是无效的，实际由您重新编写的这个绿色的决定图案。
cheefeel 发表于 2022-12-1 13:37
((= num_HType 2)
(command "color" "8");改填充的颜色
...
改颜色的 其实意义不大删掉就行了
xj6019 发表于 2022-12-1 13:42
改颜色的 其实意义不大删掉就行了
嗯，我删掉了。
(setvar "HPNAME""ansi31")
我不明白为什么您换成了这行↑
但是为了能像原来一样定制更多选项，还是删掉这行用原来的
(command "bhatch" "an" "y" "p" "图案名称" "0.5" "0" "")
形式来表达，似乎也没有问题。
cheefeel 发表于 2022-12-1 13:57
嗯，我删掉了。
(setvar "HPNAME""ansi31")
我不明白为什么您换成了这行↑
条条大路通罗马 只要马儿能干活就行了