将尺寸更改为另一个

ILoveMadoka · 发表于 2022-7-6 08:57:04

这是我在Solidworks中创建的图形上运行的脚本类型例程。
我得到了各种不同尺寸样式的尺寸。
我想把它们都改成标准的。

以下是我到目前为止所掌握的。。
我不知道如何将（3“xxxx”）更改为（3“标准”）

此外，您可以同时对多个项目进行TBLSEARCH吗？

copy

(DEFUN C:SWDX ()
(Prompt "Change SW Lines:")
(setq ss4 (ssget "x" '((0 . "LINE")(6 . "PHANTOM"))))
(setq TEST (tblsearch "LAYER" "X25"))
    (if (= TEST nil)
            (progn
                 (Command "-layer" "n" "X25" "C" "RED" "X25" "")
            )
    )
(command "CHANGE" ss4 "" "p"  "la" "X25" "c" "bylayer" "lt" "Phantom" "LW" "default" "")
(setq ss5 (ssget "x" '((0 . "DIMENSION"))))
(setq TEST (tblsearch "LAYER" "DIM"))
    (if (= TEST nil)
            (progn
                 (Command "-layer" "n" "DIM" "C" "RED" "X25" "")
            )
    )
(command "CHANGE" ss5 "" "p"  "la" "DIM" "c" "bylayer" "LW" "default" "")
[b];;; Need to change (3."xxxx") to (3. "Standard") for SS5[/b]
(setq ss9 (ssget "x" '((0 . "LINE")(6 . "*CENTER*"))))
(command "ERASE" ss9 "")
(princ))

我知道我的代码编写技能非常初级。。。
如果有更好的方法来做我所做的，我愿意。
如果有人想填空也没关系。。。

谢谢

Tharwat · 发表于 2022-7-6 09:33:27

您需要使用函数*entmod*来更改dimstyles。。。。

copy


(defun c:Test (/ ss i sset e)
 (if (setq ss (ssget "x" '((0 . "DIMENSION"))))
   (repeat
     (setq i (sslength ss))
      (setq sset (ssname ss (setq i (1- i))))
      (if (not (eq (cdr (assoc 3 (setq e (entget sset)))) "Standard"))
        (entmod (subst (cons 3 "Standard") (assoc 3 e) e))
      )
   )
   (princ)
 )
 (princ)
)

Tharwat

ILoveMadoka · 发表于 2022-7-6 09:50:30

谢谢

TBLSEARCH问题怎么样？

可以同时搜索多个项目吗？
ie：检查几层？？

David Bethel · 发表于 2022-7-6 10:00:57

不，您必须单独搜索每个名称-大卫

顺便说一句，您可以使用（entmod/append）修改所有实体：

copy


[b][color=BLACK]([/color][/b]defun c:swdx [b][color=FUCHSIA]([/color][/b]/ ss4 ss5 en ed[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]if [b][color=NAVY]([/color][/b]not [b][color=MAROON]([/color][/b]tblsearch [color=#2f4f4f]"LAYER"[/color] [color=#2f4f4f]"X25"[/color][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
     [b][color=NAVY]([/color][/b]command [color=#2f4f4f]"_.LAYER"[/color] [color=#2f4f4f]"_N"[/color] [color=#2f4f4f]"X25"[/color] [color=#2f4f4f]"_C"[/color] [color=#2f4f4f]"RED"[/color] [color=#2f4f4f]"X25"[/color] [color=#2f4f4f]""[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]if [b][color=NAVY]([/color][/b]setq ss4 [b][color=MAROON]([/color][/b]ssget [color=#2f4f4f]"_X"[/color] '[b][color=GREEN]([/color][/b][b][color=BLUE]([/color][/b]0 . [color=#2f4f4f]"LINE"[/color][b][color=BLUE])[/color][/b][b][color=BLUE]([/color][/b]6 . [color=#2f4f4f]"PHANTOM"[/color][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
     [b][color=NAVY]([/color][/b]command [color=#2f4f4f]"_.CHPROP"[/color] ss4 [color=#2f4f4f]""[/color] [color=#2f4f4f]"_LA"[/color] [color=#2f4f4f]"X25"[/color] [color=#2f4f4f]"_LW"[/color] [color=#2f4f4f]"Default"[/color] [color=#2f4f4f]""[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]and [b][color=NAVY]([/color][/b]setq ss5 [b][color=MAROON]([/color][/b]ssget [color=#2f4f4f]"_X"[/color] '[b][color=GREEN]([/color][/b][b][color=BLUE]([/color][/b]0 . [color=#2f4f4f]"DIMENSION"[/color][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]tblsearch [color=#2f4f4f]"DIMSTYLE"[/color] [color=#2f4f4f]"STANDARD"[/color][b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]while [b][color=MAROON]([/color][/b]setq en [b][color=GREEN]([/color][/b]ssname ss5 0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]setq ed [b][color=GREEN]([/color][/b]entget en[b][color=GREEN])[/color][/b]
                   ed [b][color=GREEN]([/color][/b]subst '[b][color=BLUE]([/color][/b]3 . [color=#2f4f4f]"STANDARD"[/color][b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]assoc 3 ed[b][color=BLUE])[/color][/b] ed[b][color=GREEN])[/color][/b]
                   ed [b][color=GREEN]([/color][/b]subst '[b][color=BLUE]([/color][/b]8 . [color=#2f4f4f]"DIM"[/color][b][color=BLUE])[/color][/b]      [b][color=BLUE]([/color][/b]assoc 8 ed[b][color=BLUE])[/color][/b] ed[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]if [b][color=GREEN]([/color][/b]assoc 62 ed[b][color=GREEN])[/color][/b]
                 [b][color=GREEN]([/color][/b]setq ed [b][color=BLUE]([/color][/b]subst '[b][color=RED]([/color][/b]62 . 256[b][color=RED])[/color][/b] [b][color=RED]([/color][/b]assoc 62 ed[b][color=RED])[/color][/b] ed[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]if [b][color=GREEN]([/color][/b]assoc 370 ed[b][color=GREEN])[/color][/b]
                 [b][color=GREEN]([/color][/b]setq ed [b][color=BLUE]([/color][/b]subst '[b][color=RED]([/color][/b]370 . -3[b][color=RED])[/color][/b] [b][color=RED]([/color][/b]assoc 370 ed[b][color=RED])[/color][/b] ed[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                 [b][color=GREEN]([/color][/b]setq ed [b][color=BLUE]([/color][/b]append ed '[b][color=RED]([/color][/b][b][color=PURPLE]([/color][/b]370 . -3[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]entmod ed[b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]ssdel en ss5[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]

[编程交流] 将尺寸更改为另一个

发表回复

精选推荐