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

构造注释lisp

有人有构造注释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

这可能会让你开始：
 

(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))
      

mgonzales 发表于 2022-7-6 12:49:35

谢谢你的帮助

flowerrobot 发表于 2022-7-6 12:56:03

为什么不使用动态块？

mgonzales 发表于 2022-7-6 12:57:41

我不仅需要能够创建注释列表，还需要能够将我的标注放置在图纸上，并从这些标注中生成我将为该特定计划集设置的施工注释列表。

Lee Mac 发表于 2022-7-6 13:04:00

我的程序对你有用吗？

mgonzales 发表于 2022-7-6 13:08:29

我加载了它，但还没有真正进入它，我运行了它，但它看起来像我必须创建一个文本文件，然后当我放置该文件时，我需要确保我将其更改为查看正确的目录。
我需要它来问我文件在哪里，我想加载类似于使用浏览器查看您的目录。

PS_Port 发表于 2022-7-6 13:11:33

这是一个很好的CAB标准文本插入例程。。
TextInsertDCL8-0。拉链
页: [1] 2
查看完整版本: 构造注释lisp