标签层
我正在研究一个 lisp，它将用一个多重引线和一个字段标记一个对象的层，遇到了一些问题。我无法填充该字段。
哪里错了？
(defun C:TTT (/ ss sss) (and (setq SS (car (entsel "\nSelect item to label: "))) (setq SSS (tblsearch "layer" (cdr (assoc 8 (entget SS))))) (progn (command "_.MLEADER") (while (= (logand (getvar 'cmdactive) 1) 1) (command pause)) ; this is required for multisegment mleader (vla-put-TextString (vlax-ename->vla-object (entlast)) (strcat "%%") ) (vla-Regen (vla-get-ActiveDocument (vlax-get-acad-object)) acActiveViewport) ); progn ); and (princ)); defun
页:
[1]