[原创]：我也发个"折断线程序"跟大家交流

yjtdkj

高手，连图都有电子版的，哪儿弄来的？

cjrun

(princ "CJRUN感谢使用本程序。欢迎一起交流心得cjrun@163.com")
(princ "QQ 64388102")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:xx (/  xx_obj xx_p1 xx_p2 xx_dis xx_ang xx_p_mid
               xx_p11 xx_p12 xx_p13 xx_p14 xx_p15 xx_p16 )
  (if (= nil xx_50 ) (setq xx_50_temp 30))
  (princ "\n输入比例<" )
  (princ xx_50_temp)
  (princ ">" )
  (setq xx_50 (getint))
  (if (= nil xx_50) (setq xx_50 xx_50_temp)
    (setq  xx_50_temp xx_50)
    )
  (cubegin)
  
  (command "_line" pause pause "" )
  (setq xx_obj (entlast))
  (setq xx_p1 (cdr (assoc 10 (entget xx_obj ))))  
  (setq xx_p2 (cdr (assoc 11 (entget  xx_obj))))
  (command "erase" xx_obj "")
  (setq        xx_dis (distance xx_p1 xx_p2)
        xx_ang (angle xx_p1 xx_p2)
       
  )
  (setq xx_p_mid (polar xx_p1 xx_ang  (/ xx_dis 2))
        xx_p11 (polar xx_p1 (+ pi xx_ang)  (* 2 xx_50))
        xx_p12 (polar xx_p2  xx_ang  (* 2 xx_50))
        xx_p13 (polar xx_p_mid  (+ pi xx_ang)   xx_50)
        xx_p14 (polar xx_p_mid  xx_ang  xx_50)
        xx_p15 (polar xx_p_mid  (+ (/ pi 2) xx_ang)   (* 2 xx_50))
        xx_p16 (polar xx_p_mid  (+ (* 1.5 pi ) xx_ang)   (* 2 xx_50))
        )
  (setvar "plinewid" 0.0)
  (cos_var_0)
  (command "ucsicon" "off" )
  (command "ucs" "w")
  (command "pline" xx_p11 xx_p13 xx_p15 xx_p16 xx_p14 xx_p12 "")
  (setq xx_ob_ent (entget (entlast)))
  (entmod (subst '(8 . "断线") (assoc 8 xx_ob_ent) xx_ob_ent))
  (command "ucs" "p")
  (command "ucsicon" "on" )
  (cos_var_1)
  (cuend)
;;;  (command "line" xx_p13 xx_p15 "")
;;;  (command "line" xx_p15 xx_p16 "")
;;;  (command "line" xx_p16 xx_p14 "")
;;;  (command "line" xx_p12 xx_p14 "")
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun cos_var_0 ()
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)
)
(defun cos_var_1 ()
  (setvar "osmode" os)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun cubegin ()
  (command "undo" "begin")
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun cuend ()
  (command "undo" "end")
)

yjtdkj

楼上的程序有一个拉“橡皮筋”的效果，比我的程序规范多还要向你好好学习!!
能不能编出预览功能呢？

cjrun

互相学习，我这个橡皮筋是画了线段，真正做我也不会，预览我更不会！

silen618

其实用一下“ET 扩展工具->绘图工具->折断线”breakline命令，也挺好用的呀，效果差不多。