[LISP程序]：一个插入门的程序

zheng209

[PHP](defun c:eed (/ PT1 PT2 PT3 PT4  ang angd  ml)
(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))
)

(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]

lhj743

请演示一下操作，好吗？
试了几遍都不会！

zheng209

最初由 lhj743 发布
[B]请演示一下操作，好吗？
试了几遍都不会！ [/B]

shisj

不错，我参考一下

maoding

建筑的很有用

xiaozhen

2000里能用吗?
应该把它放在什么地方才能使用呀?

xyzjint_cn

我自己也编了一个,是用AUTOLISP编写的,我的门是用线画的,不是插入图块,也很好用.

userzhluserzhl

可不可以这样,门的插入点为开始的那个点,然后不要生成两边的线?