[求助]：求大侠帮忙改一下

zxcvbnm-cad

这是在论坛找到的插入单开门的程序，
求大侠帮忙改一下增加一个双开门

[php](defun c:ed (/ PT1 PT2 PT3 PT4  ang angd  ml)
(setq #osm (getvar "osmode"))
(setvar "osmode" 515)
(setq doorang0 "H")
(setq doorang (getstring (strcat "请指定门放置方向[水平H/纵向V]<" doorang0 ">: ")))
(if (= doorang "") (setq doorang doorang0 ))
(setq ml0 800)
(setq ml (getint (strcat "请输入门长<" (rtos ml0 2 4)">: ")))
(if (= ml nil) (setq ml ml0 ))
(graphscr)
(setq pt1 (getpoint "请输入插入点"))(terpri)
(setq pt3 (getpoint pt1 "请输入方向指向点"))(terpri)
(setq PT2 (list (car PT1)(cadr PT3)))
(setq PT4 (list (car PT3)(cadr PT1)))
(setq ang0 (angle pt1 pt3))
(if (= doorang "H")(indoor1)(indoor2))
(setvar "osmode" #osm)
)

(defun indoor1 ()
(ttrr)
(cond(
         (or (and (> ang0 (*(/ pi 2) 3))(< ang0 (* pi 2)))(and (> ang0 (/ pi 2))(< ang0 pi)))
            (command ".insert" "插门.DWG"  ptmid ml ml  angd "" ))
      (   (or (and (> ang0 0)(< ang0 (/ pi 2)))(and (> ang0 pi)(< ang0 (*(/ pi 2)3))))
            (command ".insert" "反插门.DWG"  ptmid ml ml  angd "" ))
)
)

(defun indoor2 ()
(setq pt0 pt2 pt2 pt4 pt4 pt0)
(ttrr)
(cond(
         (or (and (> ang0 (*(/ pi 2) 3))(< ang0 (* pi 2)))(and (> ang0 (/ pi 2))(< ang0 pi)))
            (command ".insert" "反插门.DWG"  ptmid ml ml  angd "" ))
      (   (or (and (> ang0 0)(< ang0 (/ pi 2)))(and (> ang0 pi)(< ang0 (*(/ pi 2)3))))
            (command ".insert" "插门.DWG"  ptmid ml ml  angd "" ))
)
)

(defun ttrr ()
(command "line" PT1 PT2 "")
(setq pt12 (entlast))
(command "offset" ml pt12 pt3 "")
(setq pt34 (entlast))
(setq angp (angle pt1 pt4))
(setq ptb (polar pt1 angp (/ ml 2)))
(setq ptd (polar pt2 angp (/ ml 2)))
(command "TRIM" pt12 pt34 "" "f" ptb ptd "" "" )
(setq ang (angle pt1 pt2))
(setq angd (angtos ang 0 0))
(setq di (distance pt1 pt2))
(setq ptmid (polar pt1 ang (/ di 2)))
)[/php]