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

莫语

(defun c:zline()   
(command "-linetype" "s" "zxl" " ")   
  {5 Q2 @* {% X4 \5 N(setq r (getint "\n输入中心线的“超出长度:2~5mm”:"))   
(if(=r nil)(setq r 5))   
7 T& }1 L: ?9 z: [9 A- W4 g8 _% C: [(setq p1 (getpoint"\n输入中心线的起点坐标:"))   
+ d* c6 F; c: Q; q" Z) P(setq p2 (getpoint"\n输入中心线的起点坐标:"))   
(setq sita (angle p1 p2))  (setq p1x (car p1))   
(setq p1y (cadr p1))  (setq p2x (car p2))   
* V! u2 ]' L# O% V6 ]$ a(setq p1y (cadr p2))  (setq p0x ( - p1x(*r(cos sita))))   
& q# Z  l, l0 |(setq p0y ( - p1y(*r(sin sita))))   
(setq p3x ( + p2x(*r(cos sita))))   
(setq p3y ( + p2y(*r(sin sita))))   
0 h' k+ M+ l8 `3 d. J(setq p0 (list p0x p0y))   
7 S' k5 q5 m; O' e* I6 v(setq p3 (list p3x p3y))  (command "line" p0 p3 " ")   
(command " -lin etype" "s" "bylayer" " ")  (princ))
' s# `+ N8 d0 o& d* }! v如果谁对这些语言精通的话或者对CAD精通的话，教教我该怎么在autocad中找中心线，谢谢！！

adisonmaster

你的意思表达的不清楚。

莫语

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