为坐标尺寸添加电抗器
你好亲爱的朋友。我从Marko的CADTutor中找到了这段代码。
我希望有人能帮我添加这个坐标维度的反应堆。
拖动箭头。坐标数据自动更新。
谢谢你的帮助。
(defun c:lb ( / p x y str )
(if (not (tblsearch "LAYER" "dim"))
(entmake '((0 . "LAYER") (100 . "AcDbSymbolTableRecord") (100 . "AcDbLayerTableRecord") (2 . "dim") (70 . 0) (62 . 3) (6 . "Continuous")))
(prompt "\nLayer : \"dim\" already exist - setting it to current and proceeding with routine...")
)
(setvar 'clayer "dim")
(while (setq p (getpoint "\nPick Point - ENTER to finish: "))
(setq x (strcat "X = " (if (minusp (car p)) """+" ) (rtos (car p) 2 2)))
(setq y (strcat "Y = " (if (minusp (cadr p)) "" "+" ) (rtos (cadr p) 2 2)))
(setq str (strcat x "\n" y))
;(setq z (strcat "Z = "(if (minusp (caddr p)) "" "+" ) (rtos (caddr p) 2 2)))
;(setq str (strcat x "\n" y "\n" z))
(command "_LEADER" p pause "" str "")
)
(princ)
)
你好
alanjt制作了一个视频，使用字段而不是反应堆，这意味着永久使用，根本不需要使用代码，请尝试在这个论坛中搜索它。 下面的链接是李·麦克的一个出色的Lisp程序的单词，我没有机会使用它，但我认为你可能会感兴趣。
http://www.lee-mac.com/ptmanager.html
谢谢李！ 刚刚找到。
http://www.cadtutor.net/forum/showthread.php?46949-垂直于给定线段和坐标的给定多段线&p=318675&viewfull=1#post318675
是的，谢谢你，李，但我不知道该怎么做。
也是一种方式。但是，我更感兴趣的是了解使用反应堆。塔瓦特先生。你知道如何使用reactor来编码这个吗？ 是的，我知道，但在你的情况下，根本不需要reactor，如果你有数百个，这可能会给AutoCAD带来麻烦。正如Alan所演示的那样，这已经足够了，我认为这也是最好的方法。
你不是在Autodesk论坛上发布同一问题的反应堆代码的那个人吗？
对我也是。我的帐户忘记了密码。所以我注册了一个新帐户。
那个密码是我朋友写的。但是，他说这并不完美。删除“leader”时，obj将出错。他无法纠正这个错误。所以 我给你发了一个下午。
页:
[1]