设置所有块t的Z位置

harilalmn · 发表于 2022-7-6 08:57:38

代码中有什么错误？我试图将图形中所有块的Z位置值设置为零；

(defun c:B0()
 (setq myFilter(list (cons 0 "INSERT")))
 (setq ss (ssget "_X" myFilter))
 (setq l (sslength ss))
 (setq i 0)
 (Repeat l
   (setq blk (ssname ss i))
   (setq DXF (entget (car blk)))
   (setq IP (cadr (assoc 0 dxf)))
   (setq NewIP (subst "0" (caddr  IP) IP))
   (setq NewDXF (subst NewIP IP DXF))
   (entmod NewDXF)
 )
)

pBe · 发表于 2022-7-6 09:03:32

copy


[color=black](defun c:B0  ()[/color]
[color=black]    (setq myFilter (list (cons 0 "INSERT")))[/color]
[color=black]    (setq ss (ssget "_X" myFilter))[/color]
[color=black]    (setq l (sslength ss))[/color]
[color=black]    (setq i 0)[/color]
[color=black]    (Repeat l[/color]
[color=black]          (setq blk (ssname ss i))[/color]
[color=black]          (setq DXF (entget blk))[/color]
[color=black]          (setq IP ([color=sienna]cdr [/color](assoc [color=sienna]10 [/color]dxf)))[/color]
[color=black]          (setq NewIP (subst [color=sienna]0.00[/color] (caddr IP) IP))[/color]
[color=black]          (setq NewDXF (subst [color=sienna](cons 10 NewIP) (assoc 10 dxf)[/color] DXF))[/color]
[color=black]          (entmod NewDXF)[/color]
[color=sienna](setq i (1+ i))[/color]
[color=black]          )[/color]
[color=black]    )[/color]

变量i保持在0。。。。“0”作为字符串不是实数。。。
除此之外。。。。

Tharwat · 发表于 2022-7-6 09:04:41

试试这个。。。

copy


(defun c:Test (/ ss i sset lst)
 (vl-load-com)
 (if (setq ss (ssget "_x" '((0 . "INSERT") (410 . "model"))))
   (repeat (setq i (sslength ss))
     (setq sset (ssname ss (setq i (1- i))))
     (setq lst (cons (vlax-ename->vla-object sset) lst))
   )
   (alert " << No Blocks existed in this drawing >>  ")
 )
 (foreach ml '(1e99 -1e99)
   (mapcar (function (lambda (x)
                       (vla-move x
                                 (vlax-3d-point (list 0 0 0))
                                 (vlax-3d-point (list 0 0 ml))
                       )
                     )
           )
           lst
   )
 )
 (princ)
)

Tharwat

harilalmn · 发表于 2022-7-6 09:08:18

谢谢你的评论。。我现在明白了，我应该在重复循环中添加一个（setq I（1+I））。。。！！

谢谢你的密码Tharwat。。。！！与我的代码相比，这是一个非常专业的解决方案。。。！！

快乐快乐。。。。

pBe · 发表于 2022-7-6 09:13:12

copy

....
(1e99 -1e99).....

有趣的

Lee Mac · 发表于 2022-7-6 09:15:52

我会这样做：

copy

(defun c:B0 ( / e i p s )
   (if (setq s (ssget "_X" '((0 . "INSERT") (-4 . "*,*,<>") (10 0.0 0.0 0.0))))
       (repeat (setq i (sslength s))
           (setq e (entget (ssname s (setq i (1- i))))
                 p (assoc 10 e)
           )
           (entmod (subst (list 10 (cadr p) (caddr p) 0.0) p e))
       )
   )
   (princ)
)

我认为没有必要把所有的东西都移到1e99标高，然后再移回来，只需将标高设置为零

David Bethel · 发表于 2022-7-6 09:19:02

对点值使用（subst）非常危险

（setq ip’（10）
（subst 0（caddr ip）ip）

返回->'（0）

copy


[b][color=BLACK]([/color][/b]defun c:iz0 [b][color=FUCHSIA]([/color][/b]/ ss en ed in[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]and [b][color=NAVY]([/color][/b]setq ss [b][color=MAROON]([/color][/b]ssget [color=#2f4f4f]"X"[/color] '[b][color=GREEN]([/color][/b][b][color=BLUE]([/color][/b]0 . [color=#2f4f4f]"INSERT"[/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]while [b][color=MAROON]([/color][/b]setq en [b][color=GREEN]([/color][/b]ssname ss 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]
                   in [b][color=GREEN]([/color][/b]cdr [b][color=BLUE]([/color][/b]assoc 10 ed[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]entmod [b][color=GREEN]([/color][/b]subst [b][color=BLUE]([/color][/b]list 10 [b][color=RED]([/color][/b]car in[b][color=RED])[/color][/b] [b][color=RED]([/color][/b]cadr in[b][color=RED])[/color][/b] 0.0[b][color=BLUE])[/color][/b]
                            [b][color=BLUE]([/color][/b]assoc 10 ed[b][color=BLUE])[/color][/b] ed[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]entupd en[b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]ssdel en ss[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]