求助简化填充

xj6019 · 发表于 2021-9-2 11:23:35

陈伟发表于 2021-9-2 10:46
填充图案用 SOLID 在点选的时候会出问题（如果上次点选填充了，再次填充的时候会第一时间选择上一次填 ...

defun 后面把局部变量添加齐了应该就好了

pizi158545086 · 发表于 2022-8-28 10:04:55

xj6019 发表于 2021-9-2 11:23
defun 后面把局部变量添加齐了应该就好了

"填充图案用 SOLID 在点选的时候会出问题（如果上次点选填充了，再次填充的时候会第一时间选择上一次填充的范围并完成填充），其他图案没问题"
big兄嘚这边问题可以帮忙改下吗重新发下吗新手一枚感谢感谢

cheefeel · 发表于 2022-12-1 11:03:39

xj6019 发表于 2020-11-16 10:27
(defun c:TC (/ opt )
(setvar "measurement" 1) ; 设置公制单位
(setvar "cmdecho" 0) ...

这个填充超级好用，但是不知道为什么，如果选择①SOLID这个预设，在无选择的情况下总会自动填充鼠标附近位置，或者自动填充刚创建好的对象。不给你选择机会。只有SOLID这个会这样，别的不会，我反复调换SOLID的序号测试了，就是SOLID会这样，别的任何都不会这样。

xj6019 · 发表于 2022-12-1 11:56:18

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" "")
)

cheefeel · 发表于 2022-12-1 12:17:41

xj6019 发表于 2022-12-1 11:56
老长时间没折腾了这个代码我也快忘记了，大体改了改你试试，也不知道行不行

输入任何序号，结果都是ANSI31的样式了

xj6019 · 发表于 2022-12-1 13:04:00

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:37:37

本帖最后由 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")

首先，这个确实不存在说意外自行填充，不给你选择填充对象的问题了。
其次，那个改填充颜色其实是无效的
然后，因为我不会，就拙劣地尝试了一下加入红色这行，其中蓝色值是无效的，实际由您重新编写的这个绿色的决定图案。

xj6019 · 发表于 2022-12-1 13:42:08

cheefeel 发表于 2022-12-1 13:37
((= num_HType 2)
(command "color" "8");改填充的颜色
...

改颜色的其实意义不大删掉就行了

cheefeel · 发表于 2022-12-1 13:57:18

xj6019 发表于 2022-12-1 13:42
改颜色的其实意义不大删掉就行了

嗯，我删掉了。
(setvar "HPNAME" "ansi31")
我不明白为什么您换成了这行↑

但是为了能像原来一样定制更多选项，还是删掉这行用原来的
(command "bhatch" "an" "y" "p" "图案名称" "0.5" "0" "")
形式来表达，似乎也没有问题。

xj6019 · 发表于 2022-12-1 14:05:26

cheefeel 发表于 2022-12-1 13:57
嗯，我删掉了。
(setvar "HPNAME" "ansi31")
我不明白为什么您换成了这行↑

条条大路通罗马只要马儿能干活就行了

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

[提问] 求助简化填充