[编程交流] 从中提取长度和角度

 
(defun c:mklns (/ pt1 ss ent lsttxt txlst ff)
       (setq pt1 (getpoint "Pick The Point"));_base point
       (setq ss (ssget '((0 . "LWPOLYLINE"))));_polyline object
       (if ss
       (progn 
       (setq ent (entget(ssname ss 0)));_entity info for poly object
       (foreach item ent
(if (= (car item) 10)
       (progn
       (command "pline" pt1 (cdr item) "");_draw lines
       (setq lsttxt (strcat               ;_make comma seperated list of length and angle
       (rtos(distance pt1 (cdr item)))
       ","
       (angtos (angle pt1 (cdr item))0 4)
       );_strcat
       );_setq
       (setq txlst (cons lsttxt txlst));_compiled list of all line length and angles
       );_progn
       );_if
       );_foreach
(setq ff (open "C:/LineInfo.txt" "w"));_write to file
(foreach item txlst
       (write-line item ff)
       );_foreach
       (close ff)
       );_progn
       (alert "No Polyline Object Selected")
       );_if
       );_defun

 
(defun c:test (/ adoc Pline Xpoint PtList PtAngleList NewLine)
  (vl-load-com)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
(if (setq Pline (car (entsel "\nSelect Pline:"))
        Xpoint (getpoint "\nSelect "X" Point: "))
       (progn  
  (setq PtList (mapcar
                'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget Pline))))
(setq PtAngleList (open (strcat (getvar 'Dwgprefix)(vl-filename-base (getvar 'Dwgname)) ".csv") "A"))
  (foreach Pts (cdr PtList)
       (setq NewLine (vla-addline (vlax-get (vla-get-activelayout adoc) 'Block)
          (vlax-3d-point Xpoint) (vlax-3d-point Pts)))
       (write-line (strcat (rtos (vla-get-length NewLine) 2 2) ","
                       (rtos (vla-get-Angle NewLine) 2 2)) PtAngleList)
          )
       (print PtAngleList)
  (close PtAngleList)
        )
         )
  (princ)
 )