[LISP程序]：求助：如何测量和标注一条多义线或曲线的线长

kkcl-kkcl

如何测量和标注一条多义线或曲线的线长

sdwy19691229

(defun C:SCPP ()
         (setq m:err *error* *error* *merr*)
         (setvar "cmdecho" 0)
         (command "UNDO" "G")
         (setq os (getvar "osmode"))
         (setvar "osmode" 0)  
         (setq e1 (entsel "\n选择一个多义线或曲线:"))
         (if (/= e1 nil)(progn        
         (setq ena1 (cdr (assoc '0 (entget (car e1)))))
         (if (and (/= ena1 "LWPOLYLINE")(/= ena1 "POLYLINE")
             (/= ena1 "SPLINE"))
         (princ "\n所选择的图元不是多义线或曲线!")(progn
         (setq en1 (cdr (assoc '-1 (entget (car e1)))))
         (command "area" "o" en1)
         (setq El (getvar "perimeter"))
         (princ "\n线长=")(princ EL)
         )) ))
         (setvar "osmode" os)
         (command "UNDO" "E")
         (princ) )