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

莫语

(defun c:zline()   
) j, H2 K0 Y7 b4 c6 X( g(command "-linetype" "s" "zxl" " ")   
(setq r (getint "\n输入中心线的“超出长度:2~5mm”:"))   
3 }+ B/ x# D& F- z( v(if(=r nil)(setq r 5))   
$ c0 {7 H  l! N(setq p1 (getpoint"\n输入中心线的起点坐标:"))   
6 O) B$ V: c! O, E" G. {: E(setq p2 (getpoint"\n输入中心线的起点坐标:"))   
(setq sita (angle p1 p2))  (setq p1x (car p1))   
% U/ I; I+ J* t6 }(setq p1y (cadr p1))  (setq p2x (car p2))   
(setq p1y (cadr p2))  (setq p0x ( - p1x(*r(cos sita))))   
(setq p0y ( - p1y(*r(sin sita))))   
(setq p3x ( + p2x(*r(cos sita))))   
& T5 G* U5 l* ]+ @$ c(setq p3y ( + p2y(*r(sin sita))))   
8 A: b7 l- f( z' Y% o  ^(setq p0 (list p0x p0y))   
9 H! U3 T( |& J0 b" N(setq p3 (list p3x p3y))  (command "line" p0 p3 " ")   
* g. ]) V7 G( V8 j  A9 k8 U/ X% B(command " -lin etype" "s" "bylayer" " ")  (princ))
如果谁对这些语言精通的话或者对CAD精通的话，教教我该怎么在autocad中找中心线，谢谢！！

adisonmaster

你的意思表达的不清楚。

莫语

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