cadamrao 发表于 2022-7-6 11:16:57

在图形fr中插入点

你好
AutoCAD 2008中的任何命令都适用于从所有选择（插入点）文本中插入图形中的点；我只需要在对象捕捉（插入）点处使用这些点。任何Lisp程序请做这项工作。Plz看到示例图形文件。
amr公司
样本3.dwg

Lee Mac 发表于 2022-7-6 11:43:33

试试这个：
 

(defun c:ptIns ( / GetTextInsertion Point i ss e )
;; Lee Mac~28.04.10

(defun GetTextInsertion ( elist )
   (if (and (eq "TEXT" (cdr (assoc 0 elist)))
            (not (equal '(0 0) (list (cdr (assoc 72 elist))
                                     (cdr (assoc 73 elist))))))
   (cdr (assoc 11 elist))
   (cdr (assoc 10 elist))))

(defun Point ( p )
   (entmakex (list (cons 0 "POINT") (cons 10 p))))

(if (setq i -1 ss (ssget '((0 . "TEXT,MTEXT"))))
   
   (while (setq e (ssname ss (setq i (1+ i))))

   (Point (GetTextInsertion (entget e)))))

(princ))
   

cadamrao 发表于 2022-7-6 12:00:59

谢谢Lee Mac
 
对我们的项目非常有用
 
谢谢
amr公司

Lee Mac 发表于 2022-7-6 12:17:35

不客气。
页: [1]
查看完整版本: 在图形fr中插入点