将特定图案填充设置为dimscale

K Baden · 发表于 2022-7-5 16:08:05

大家早上好。
我在我的绘图上有一些不同图案填充的代码，现在我想添加一条线，找到所有“栅格”图案填充，并将其更改为dimscale。有人能帮我吗？提前感谢！！！

(defun c:IB ()
 (if (setq ss (ssget "X" '((0 . "HATCH") (2 . "CROSS"))))
   (progn
     (setq count 0)
     (repeat (sslength ss)
(command "-hatchedit" (ssname ss count) "co" "" ".")
(command "-hatchedit" (ssname ss count) "p" "" "32" "")
(setq count (1+ count))
)
     )
   )
 (princ)
)

Tharwat · 发表于 2022-7-5 16:16:28

你好

像这样的？

copy


(defun c:Test ( / scl int sel ent)
    (and (setq scl (getvar 'DIMSCALE) int -1 sel (ssget "_X" '((0 . "HATCH")(2 . "GRATE"))))
         (while (setq ent (ssname sel (setq int (1+ int))))
           (vla-put-PatternScale (vlax-ename->vla-object ent) scl)
           )
         )  
 (princ)
 ) (vl-load-com)

K Baden · 发表于 2022-7-5 16:23:47

这就像将比例更改为dimscale的梦想。我唯一的问题似乎是它删除了所有出现的图案填充，除了一个lol！知道为什么会这样吗？我们的图纸上通常有多个此类图案填充。

ronjonp · 发表于 2022-7-5 16:34:22

可能比例太大，无法显示模式？

看看这是否突出显示了它们：（sssetfirst nil（ssget“_X”'（（0。“hatch”）（2。“grate”）））

Tharwat · 发表于 2022-7-5 16:39:04

该程序根本不会删除任何图案填充对象，但可能DimScale变量太大，正如ronjonp之前所述。

K Baden · 发表于 2022-7-5 16:51:26

啊！我对第一个代码做了更多的测试，这只会在图案填充的当前比例低于dimscale时更新比例。例如，我有4个格栅图案填充，2个按80缩放，两个按120缩放，我的dimscale是96。它将更改当前缩放为80的两个图案填充的比例，但120的图案填充将消失。此外，如果我只有一个目前缩放为120的格栅舱口，它将不会对它做任何事情。