[求助]问题解决!在此衷心感谢"sailorcwx"大虾,和各位网友的无私帮助!

linhui12

如图所示:
希望由用户输入点A,B,C,D的坐标和D,R,N值LISP即可绘出该图,小弟不才,只完成拐角部分,不知下面怎么写了,请大家各抒己见,帮帮小弟

拐角部分(中间那份图)程序如下:

(defun C:wt (/ PT1 PT2 PT3 PT4 A B D R V X1 X2 Y1 Y2 N X3 Y3 X4 Y4 TT Y
C1 C2 XC1 XC2 YC1 YC2)
(setvar "osmode" 0) ;关闭对象捕捉
(setq M (getreal "\n输入M值:"))
(setq R (getreal "\n输入R值:"))
(setq V (getreal "\n输入α角:"))
(setq N (getreal "\n输入N值:"))
(setq X1 5)
(setq Y1 (- 0 5))
(setq pt1 (list X1 Y1))
(setq pt2 (list Y1 X1))
(setq A (- R (/ M 2)))
(setq B (+ R (/ M 2)))
(setq Y (* (/ (/ V (* (- N 1) 2)) 180) PI))
(setq X1 A)
(setq X2 B)
(setq Y1 0)
(setq Y2 0)
(setq PT1 (list X1 Y1))
(setq PT2 (list X2 Y2))
(setq TT 1)
(command ".line" PT1 PT2 "")
(setq A (/ A (cos Y)))
(setq B (/ B (cos Y)))
(while (< TT (* (- N 1) 2))
(setq X3 (* (cos (* Y TT)) A))
(setq y3 (* (sin (* Y TT)) A))
(setq X4 (* (cos (* Y TT)) B))
(setq y4 (* (sin (* Y TT)) B))
(setq pt3 (list X3 Y3))
(setq pt3 (list X3 Y3))
(setq pt4 (list X4 Y4))
(setq pt4 (list X4 Y4))
(setq XC1 (/ (+ X1 X2) 2))
(setq XC2 (/ (+ X3 X4) 2))
(setq YC1 (/ (+ Y1 Y2) 2))
(setq YC2 (/ (+ Y3 Y4) 2))
(setq C1 (list XC1 YC1))
(setq C2 (list XC2 YC2))
(command ".line" PT1 PT3 PT4 PT2 "")
(command ".line" C1 C2 "")
(setq X1 X3)
(setq X2 X4)
(setq Y1 Y3)
(setq Y2 Y4)
(setq PT1 PT3)
(setq PT2 PT4)
(setq TT (+ TT 2))
)
(setq A (- R (/ M 2)))
(setq B (+ R (/ M 2)))
(setq X3 (* (cos (* (/ V 180) PI)) A))
(setq y3 (* (sin (* (/ V 180) PI)) A))
(setq X4 (* (cos (* (/ V 180) PI)) B))
(setq y4 (* (sin (* (/ V 180) PI)) B))
(setq pt3 (list X3 Y3))
(setq pt4 (list X4 Y4))
(setq XC1 (/ (+ X1 X2) 2))
(setq XC2 (/ (+ X3 X4) 2))
(setq YC1 (/ (+ Y1 Y2) 2))
(setq YC2 (/ (+ Y3 Y4) 2))
(setq C1 (list XC1 YC1))
(setq C2 (list XC2 YC2))
(command ".line" PT1 PT3 PT4 PT2 "")
(command ".line" C1 C2 "")
(setvar "osmode" 15359) ;恢复对象捕捉
(command "zoom" "e")
(princ)
)
 

danxingpen

可怜的我(色盲,哈),实在看不懂你的图了,背景能不能还是黑白色?要画的最后效果(对象)改成一种颜色,然后需要的数据另外一种颜色????

linhui12

兄弟,是我没表达好,已经重新帖图上去了,麻烦看看给个方案吧

sailorcwx

可不可以把中心线画出来然后offset

dnnlog

??

danxingpen

哎,看来还是水平有限了,等待高手来解决!~哈

linhui12

很有难度导致没人接棒???...

linhui12

只怪各位看官同我一样,水平有限.烦请哪位斑竹出手相助之.感激不尽.....

sailorcwx

可不可以发个CAD图上来

linhui12

楼上兄弟,这是CAD图,期待您的方案,谢谢