
- (defun c:123 ( / jd jd1 zuo1 you1 gao1 xian1 r1 A B C D);画节点板
- (setvar "cmdecho" 0)
- (setq jd (getpoint "\n请点取基点 :"))
- (setq zuo1 (getdist jd (strcat "\n左点距离 " (if zuo (strcat "<" (rtos zuo 2 5)">")"") ":")))
- (setq zuo (if zuo1 zuo1 zuo))
- (setq you1 (getdist jd (strcat "\n右点距离 " (if you (strcat "<" (rtos you 2 5)">")"") ":")))
- (setq you (if you1 you1 you))
- (setq gao1 (getdist jd (strcat "\n节点板高 " (if gao (strcat "<" (rtos gao 2 5)">")"") ":")))
- (setq gao (if gao1 gao1 gao))
- (setq r1 (getangle jd (strcat "\n板件角度 " (if r (strcat "<" (rtos r 2 5)">")"")":")))
- (setq r (if r1 r1 r))
- (setq xian1 (getdist jd (strcat "\n弦杆高 " (if xian (strcat "<" (rtos xian 2 5)">")"") ":")))
- (setq xian (if xian1 xian1 xian))
- (setq jd1 (polar jd (+ (* pi 1.5) r) (/ xian 2)))
- (setq A (polar jd1 (+ pi r) zuo))
- (setq D (polar jd1 r you))
- (setq B (polar A (+ (* pi 1.5) r) gao))
- (setq C (polar D (+ (* pi 1.5) r) gao))
- (command "line" A B C D "")
- (princ)
- )
|