求助一个直线转多段线的代码

云真

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

刚好需要，感谢！

yjwht

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

改成这样就好了

2. (defun c:tt (/ ss)
   
3.    (setq ss (ssget '((0 . "*LINE,ARC"))))
   
4.    (command "_.PEDIT" "m" ss "" "y" "j" "0.00" ^C)
   
5.    (princ)
   
6. )

(defun c:tt (/ ss)<br />    (setq ss (ssget '((0 . "*LINE,ARC"))))<br />    (command "_.PEDIT" "m" ss "" "y" "j" "0.00" ^C)<br />    (princ)<br /> )

或者这样也行

2. (defun c:tt (/ ss)
   
3.    (setq ss (ssget '((0 . "*LINE,ARC"))))
   
4.    (command "_.PEDIT" "m" ss "" "y" "j" "0.00"
   
5.    (vla-eval (vlax-get-acad-object) "Sendkeys "{ESC}""))
   
6.    (princ)
   
7. )

(defun c:tt (/ ss)<br />    (setq ss (ssget '((0 . "*LINE,ARC"))))<br />    (command "_.PEDIT" "m" ss "" "y" "j" "0.00"<br />    (vla-eval (vlax-get-acad-object) "Sendkeys "{ESC}""))<br />    (princ)<br /> )