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

莫语

(defun c:zline()   
4 m9 ^) i: ^9 Q/ B/ x: n+ f+ r(command "-linetype" "s" "zxl" " ")   
; f: [0 D: Z5 W/ Q' Z9 h(setq r (getint "\n输入中心线的“超出长度:2~5mm”:"))   
& V' @9 y8 Y$ x7 E$ Q(if(=r nil)(setq r 5))   
0 ?2 [# W+ O2 t1 A(setq p1 (getpoint"\n输入中心线的起点坐标:"))   
(setq p2 (getpoint"\n输入中心线的起点坐标:"))   
' e' y( Q! u! U$ X% e  @# D# x- j7 z  T) V(setq sita (angle p1 p2))  (setq p1x (car p1))   
; T4 X+ N2 e! }5 H4 R; B: i4 H& z(setq p1y (cadr p1))  (setq p2x (car p2))   
$ u0 ^3 J* S  m2 r8 M- ^" u3 S& P9 j2 K(setq p1y (cadr p2))  (setq p0x ( - p1x(*r(cos sita))))   
(setq p0y ( - p1y(*r(sin sita))))   
(setq p3x ( + p2x(*r(cos sita))))   
(setq p3y ( + p2y(*r(sin sita))))   
(setq p0 (list p0x p0y))   
2 a# @1 ^+ I- }* B2 p% ^! \(setq p3 (list p3x p3y))  (command "line" p0 p3 " ")   
: C! B& D' N; g6 P% Z* Z(command " -lin etype" "s" "bylayer" " ")  (princ))
如果谁对这些语言精通的话或者对CAD精通的话，教教我该怎么在autocad中找中心线，谢谢！！

adisonmaster

你的意思表达的不清楚。

莫语

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