pedit->用一个按钮关闭

antant · 发表于 2022-7-6 10:37:42

我应该如何编辑“^C^C\u pedit”宏，使其用一个热键关闭选定的多段线？

提前感谢

CmdrDuh · 发表于 2022-7-6 10:41:26

^C^C^Cu pedit；\c；我认为应该这样做

antant · 发表于 2022-7-6 10:45:56

^C^C^Cu pedit_c_x；

是什么实际工作）我自己根据你的帖子。
但是，不幸的是，你不能在多条多段线上运行pedit，因此，如果有人能发布一个脚本，用一个热键关闭所有选定的多段线，我将不胜感激。（如果可能？）

=)
p、美国：thanx CmdrDuh

p、附言：我在搜索autocad宏指南或smth时发现了这个论坛。无法在此找到）如果有，请链接）
而且如果有一个线程解释“0”和“defpoints”层，我也很欣赏那里的链接=）

Lee Mac · 发表于 2022-7-6 10:48:19

不知道这对谁有用吗？

copy


(defun c:cp (/ ss1)
   (setvar "cmdecho" 0)
   (setq ss1 (ssget))
   (if (> (sslength ss1) 1)
   (progn
   (vl-cmdf "_pedit" "_M" ss1 "" "_C" "")
   (princ (strcat "\n" (itoa (sslength ss1)) " Polylines Closed. ")))
   (progn
   (vl-cmdf "_pedit" ss1 "_C" "")
   (princ (strcat "\n" (itoa (sslength ss1)) " Polyline Closed. "))))
   (setvar "cmdecho" 1)
   (princ)
)

antant · 发表于 2022-7-6 10:50:40

thanx=）
我会尽快尝试的

编辑：
哎呀，它正是我想要的=）

再次感谢

jcap91163 · 发表于 2022-7-6 10:54:36

和往常一样，它很有魅力，非常感谢mac先生

Lee Mac · 发表于 2022-7-6 10:59:02

另一个可能；

copy


(defun c:plc ( / ss )
 (vl-load-com)
 ;; © Lee Mac 2010
 (if (setq ss (ssget "_:L" '((0 . "LWPOLYLINE") (70 . 0))))
   (
     (lambda ( i / e )
       (while (setq e (ssname ss (setq i (1+ i))))
         (vla-put-Closed (vlax-ename->vla-object e) :vlax-true)
       )
     )
     -1
   )
 )
 (princ)
)