[原创][LISP]两垂直线倒内直角

ljcgq

;========================
;两垂直线倒内直角
;2004.6.5 ljc
;========================
(defun c:dj( / l ll p1)
(setq cm(getvar "cmdecho") os(getvar "osmode"))
(setvar "cmdecho" 0)
(setq l(car (nentsel "请选择直线1")) h1(getdist "线1切割值:")
ll(car (nentsel "请选择直线2")) h2(getdist "线2切割值:") )
(setq p1 (inters (cdr (assoc 10 (entget l))) (cdr (assoc 11 (entget l)))
(cdr (assoc 10 (entget ll))) (cdr (assoc 11 (entget ll))) nil))
(command "_chamfer" "d" h1 h2) (command)
(command "_chamfer" l ll)
(setq line(entlast))
(setvar "osmode" 0)
(command "rectang" (cdr (assoc 10 (entget line)))
(cdr (assoc 11 (entget line))) )
(command "trim" line "" p1 "")
(setvar "osmode" os)
(command "erase" line "")
(command "explode" (entlast) )
(setvar "cmdecho" cm) (print)
)

ljcgq

alan_cmh

呵呵，ljcgq 回答我的求助源码被放到这里了.还有奖励，恭喜！

lincctw_ccl

做記號!!晚點研究!!