帮看下AUTOCAD2005的中心线二次开发的程序是否正确？

莫语

(defun c:zline()   
5 {1 G; W) y5 ](command "-linetype" "s" "zxl" " ")   
(setq r (getint "\n输入中心线的“超出长度:2~5mm”:"))   
3 K- F6 _1 J1 n' \(if(=r nil)(setq r 5))   
3 o% _& u/ z, `7 x% G(setq p1 (getpoint"\n输入中心线的起点坐标:"))   
(setq p2 (getpoint"\n输入中心线的起点坐标:"))   
(setq sita (angle p1 p2))  (setq p1x (car p1))   
6 z- P7 A, {! k! g' \(setq p1y (cadr p1))  (setq p2x (car p2))   
  x' d; k! c* x8 o* }7 g(setq p1y (cadr p2))  (setq p0x ( - p1x(*r(cos sita))))   
0 i4 N4 E8 E% e( `+ f. C(setq p0y ( - p1y(*r(sin sita))))   
(setq p3x ( + p2x(*r(cos sita))))   
& b8 W3 O) A8 V; l+ P- h& f(setq p3y ( + p2y(*r(sin sita))))   
/ ~" h3 [7 s5 E' J8 b+ G( _(setq p0 (list p0x p0y))   
(setq p3 (list p3x p3y))  (command "line" p0 p3 " ")   
(command " -lin etype" "s" "bylayer" " ")  (princ))
如果谁对这些语言精通的话或者对CAD精通的话，教教我该怎么在autocad中找中心线，谢谢！！

adisonmaster

你的意思表达的不清楚。

莫语

哪里不清楚，你说下我补充上，要不你加我QQ401077599多谢了！