[编程交流] 多导导出问题

;MLeaderTest
(defun c:mltest ( / ss i e p1 height angle contents )
(setq ss (ssget '(( 0 . "MULTILEADER" )))) ;get selection of multileaders
(setq i 0) ;set loop index
(repeat (sslength ss) ;loop through each selected entity
        (setq e (ssname ss i)) ;get current entity
        (setq p1 (cdr (assoc 110 (entget e)))) ;set p1 to the point coordinates that the leader is pointing to
        (setq height (cdr (assoc 41 (entget e)))) ;set text height
        (setq angle 0) ;this defaults the rotation angle to be 0
        (setq contents (cdr (assoc 304 (entget e)))) ;get text contents
        (command "text" p1 height angle contents) ;create a new text object based on gathered info
        (command "erase" e "") ;erase Mleader entity
        (setq i (1+ i)) ;increment index
)
(princ)
)

(command "text" "_non" p1 height angle contents)

(setq oldsnap (getvar 'osmode))
(setvar 'osmode 0)
... your code
(setvar 'osmode oldsnap)

(defun c:foo (/ r o n)
 (if (setq n (ssget ":L" '((0 . "MULTILEADER"))))
   (foreach x (vl-remove-if 'listp (mapcar 'cadr (ssnamex n)))
     (setq o (vlax-ename->vla-object x))
     (setq r (vlax-invoke o 'getleaderlinevertices 0))
     (if (entmakex (list '(0 . "TEXT")
                  '(100 . "AcDbEntity")
                  '(67 . 0)
                  (cons 8 (vla-get-layer o))
                  '(100 . "AcDbText")
                  (list 10 (car r) (cadr r) (caddr r))
                  (cons 40 (vla-get-textheight o))
                  (cons 1 (vla-get-textstring o))
                  (cons 50 (vla-get-textrotation o))
                  '(41 . 1.0)
                  '(51 . 0.0)
                  (cons 7 (vla-get-textstylename o))
                  '(71 . 0)
                  '(72 . 0)
                  '(11 0.0 0.0 0.0)
                  '(100 . "AcDbText")
                  '(73 . 0)
            )
  )
(entdel x)
     )
   )
 )
 (princ)
)
(vl-load-com)