构造注释lisp

mgonzales · 发表于 2022-7-6 12:28:26

有人有构造注释lisp例程吗？

flowerrobot · 发表于 2022-7-6 12:33:44

你能说得更具体一点吗？这里有各种各样的施工说明

mgonzales · 发表于 2022-7-6 12:39:18

你可以在记事本中创建一个构造注释列表，每个注释示例之间留有一个空格

按照标准安装10个pvc

根据标准安装18“pvc

这样，你就可以将列表保存到你的图形中，运行一个lisp例程，在你的图形上放置一个标注气泡，然后从你创建的注释列表中，你可以放置注释1，2，3等等，如果该图纸上不需要注释，但您需要在一组平面图中的下一个图纸上，则只会放置图纸中使用的注释，您可以随时更新这些注释。

我有一个avi文件，解释和显示它是如何工作的，但我不能上传，因为它太大了。

Lee Mac · 发表于 2022-7-6 12:46:19

这可能会让你开始：

copy


(defun c:note (/ fpath doc spc iPt file nStr)
 (vl-load-com)
 (setq fpath "C:\" ) ;; filename of notes.txt
 (setq doc (vla-get-ActiveDocument
             (vlax-get-acad-object))
       spc (if (zerop (vla-get-activespace doc))
             (if (= (vla-get-mspace doc) :vlax-true)
               (vla-get-modelspace doc)
               (vla-get-paperspace doc))
             (vla-get-modelspace doc)))
 (cond ((not (findfile fpath))
        (princ "\n** Notes File could not be Found **"))
       ((not (setq iPt (getpoint "\nSpecify Point for Note: "))))         
       (t
        (vla-StartUndomark doc)
        (setq file (open (findfile fpath) "r") nStr "")
        (while (setq nl (read-line file))
          (setq nStr (strcat nStr nl "\\P")))
        (close file)
        (vla-AddMText spc (vlax-3D-point iPt) 0 nStr)
        (vla-EndUndoMark doc)))
 (princ))