[编程交流] Lisp用于导出文本和l

(defun c:rp2 (/ ent1 ent2 ent3 len fh fname)
 (setq fname (strcat (getvar "dwgprefix") (substr (getvar "dwgname") 1 (- (strlen (getvar "dwgname")) 4 )) ".csv")
          fh (open fname "a")
 )
 (command "_-LAYER" "_M" "SELECTED" "_C" 2 "" "") 
 (while (setq en1 (car (entsel "\nPick Text: ")))
   (setq ent1  (entget en1)
         ent1  (subst (cons 8 "SELECTED") (assoc 8 ent1) ent1)
   )
   (entmod ent1) 
   (setq en2 (car (entsel "\nPick another text: ")))
   (setq ent2  (entget en2)
         ent2  (subst (cons 8 "SELECTED") (assoc 8 ent2) ent2)
   )   
   (entmod ent2)
(setq en3 (car (entsel "\nPick the line: ")))
   (setq ent3  (entget en3) 
len (distance
(cdr (assoc 10 ent3)) (cdr (assoc 11 ent3)) ) 
)
    
   (write-line (strcat (cdr (assoc 1 ent1)) ", "  (cdr (assoc 1 ent2))) fh)
 )
 (princ (strcat "\nFile: " fname " Created."))                                               
 (close fh)
)

(write-line (strcat (cdr (assoc 1 ent1)) ", "  (cdr (assoc 1 ent2)) [color="blue"]", " (rtos len 2 4)[/color]) fh)

(if (and (setq s (car (entsel "\nSelect Polyline :")))
        (= (cdr (assoc 0 (entget s))) "LWPOLYLINE")
        )
   (setq lgth (vlax-curve-getdistatparam s (vlax-curve-getendparam s))
         area (vlax-curve-getarea s)
         )
 (princ "\nNull selection or object is not a LWpolyline !")
 )

Pick Text:
Pick another text:
Pick the line:
Select Polyline :; error: no function definition: [color="blue"]VLAX-CURVE-GETENDPOINT[/color]

(vl-load-com)