357785513 发表于 2012-5-29 21:31:32

好像双折断线的不行,再说也没有双折断线的

szx025 发表于 2012-5-30 08:10:45

(defun C:szx(/ pt1 pt2 dis x1 pt3 pt4 pt5 pt6 ptt pttt p1 p2 ang ang1 scale)
;;保存系统变量设置
(setq old_OS(getvar "OSMODE")
      old_CMD (getvar "CMDECHO")
       old_OR (getvar "OrthoMode")
    )
(setvar "CMDECHO" 0)
(setvar "OSMODE" 0)
(setvar "OrthoMode" 0)
(setq scale (getreal "\nScale<100>:"))
        (if (= scale nil)
                (setq scale 100)
        )
(setq pt1 (getpoint "\nFirst point:"))
        (setq pt2 (getpoint pt1 "\nSecond point:"))
        (setq ang (angle pt1 pt2))
        (setq dis (distance pt1 pt2))
        (setq x1 (/ (- dis (* 2 scale)) 2))
        (setq pt3 (polar pt1 ang x1))
        (setq pt4 (polar pt1 ang (+ x1 (* 2 scale))))
        (setq pt5 (polar pt3 (+ ang 1.32582) (* 2.0616 scale)))
        (setq pt6 (polar pt4 (- ang 1.81577) (* 2.0616 scale)))
        (setq ptt (polar pt1 (- ang (/ pi 2)) (* 1 scale)))
        (setq pttt (polar pt2 (- ang (/ pi 2)) (* 1 scale)))
        (command "_pline" pt1 ptt pttt pt2 "c" "")
        (setq ee (entlast))
    (command "_trim" ee "" "f" pt2 ptt"" "")
(entdel ee)
        (command "pline" pt1 "w" "0" "0" pt3 pt5 pt6 pt4 pt2 "")
        (setq ss (entlast))
        (command "copy" ss "" pt1 ptt)
   ;;恢复系统变量设置
    (setvar "CMDECHO" old_CMD)
    (setvar "OSMODE" old_OS)
    (setvar "OrthoMode" old_OR)
(princ)(princ)
)      

357785513 发表于 2012-5-30 12:35:06

共喜共喜,你终于成功了

357785513 发表于 2012-5-30 12:39:12

算是向前迈了一大步
页: 1 [2]
查看完整版本: 画完折断线命令不退出点那边那边被折断,