lisp用于更改多段线宽度

jim78b · 发表于 2022-7-5 16:33:11

我需要修改我找到的lisp：http://forums.augi.com/showthread.php?133428-块内的多段线宽度

将嵌套块中的多段线宽度更改为0的步骤

（定义c:pib（/秒）
（vl load com）
（princ“\n选择具有多段线的块”）
（if（and（setq s（ssget“+：s”（（0。“insert”）））
（setq s（cdr（assoc 2（entget（ssname s 0Ю）Ю））））
) ;_  和
（程序
（vlax代表
o
（vla项目（vla get blocks
（vla get ActiveDocument（vlax get acad object））
) ;_  vla获取块
s
) ;_  vla项目
;;（setq o（vla item（vla item（vla get blocks（vla get ActiveDocument（vlax get acad object）））s）0）
（if（=（vla get objectname o）“AcDbPolyline”）
（vl catch all apply‘vla put ConstantWidth（列表0））
) ;_  如果
) ;_  vlax for
（foreach x（mapcar（功能cadr））
（ssnamex（ssget“_x”（列表（cons 2 s）））
) ;_  地图车
（vla更新（vlax ename->vla对象x））
) ;_  foreach公司
) ;_  程序
) ;_  如果
（普林斯）
)

但是我想处理嵌套块，有可能吗？

谢谢

ReMark · 发表于 2022-7-5 16:49:46

有两件事你可能已经说过了，但值得重复。

1.如果已知（在本例中是已知的），由您以外的其他人编写的代码应归于发起者，在本例中是Lee Mac。
2.论坛中发布的代码，除非是代码的图像，否则应包含在代码标签中。

如果你不明白，那就去问。

jim78b · 发表于 2022-7-5 17:05:24

对不起，如果我省略了代码作者的名字：

代码由：Lee Mac编写

代码：
（defun c:polywidthzero（/doc）（vlax表示块（vla get blocks（setq doc（vla get activedocument（vlax get acad object））））（if（eq:vlax false（vla get isxref block））（vlax表示obj块（if（eq“AcDbPolyline”（vla get objectname obj））（vl catch all apply‘vla put constantwidth（list obj 0）））））（vla regen doc acallviewports）（princ））（vl load com）（princ）

SLW210 · 发表于 2022-7-5 17:27:55

请阅读代码发布指南，并编辑代码以包含在代码标签中。[NOPARSE]

copy

Your Code Here[/NOPARSE]

=

copy

Your Code Here

jim78b · 发表于 2022-7-5 17:40:34

[/NOPARSE][/code]=

copy

(defun c:pib (/ s)
(vl-load-com)
(princ "\n Select the block with a polyline")
(if (and (setq s (ssget "_+.:S" '((0 . "insert"))))
         (setq s (cdr (assoc 2 (entget (ssname s 0)))))
    ) ;_  and
 (progn
  (vlax-for
           o
           (vla-item (vla-get-blocks
                      (vla-get-ActiveDocument (vlax-get-acad-object))
                     ) ;_  vla-get-blocks
                     s
           ) ;_  vla-item
   ;;(setq o (vla-item (vla-item (vla-get-blocks (vla-get-ActiveDocument(vlax-get-acad-object))) s)0))
   (if (= (vla-get-objectname o) "AcDbPolyline")
    (vl-catch-all-apply 'vla-put-ConstantWidth (list o 0.))
   ) ;_  if
  ) ;_  vlax-for
  (foreach x (mapcar (function cadr)
                     (ssnamex (ssget "_x" (list (cons 2 s))))
             ) ;_  mapcar
   (vla-update (vlax-ename->vla-object x))
  ) ;_  foreach
 ) ;_  progn
) ;_  if
(princ)
)

[编程交流] lisp用于更改多段线宽度

发表回复

精选推荐