云真 发表于 2025-1-23 11:50:49

ssyfeng 发表于 2025-1-20 15:08
试试这个

刚好需要，感谢！

yjwht 发表于 2025-2-21 15:52:58

本帖最后由 yjwht 于 2025-2-21 15:54 编辑

ssyfeng 发表于 2025-1-20 15:08
试试这个
改成这样就好了
(defun c:tt (/ ss)
   (setq ss (ssget '((0 . "*LINE,ARC"))))
   (command "_.PEDIT" "m" ss "" "y" "j" "0.00" ^C)
   (princ)
)
或者这样也行
(defun c:tt (/ ss)
   (setq ss (ssget '((0 . "*LINE,ARC"))))
   (command "_.PEDIT" "m" ss "" "y" "j" "0.00"
   (vla-eval (vlax-get-acad-object) "Sendkeys \"{ESC}\""))
   (princ)
)

hlkyer 发表于 2025-4-12 17:45:45

直接JOIN不就完了
页: 1 [2]
查看完整版本: 求助一个直线转多段线的代码