社区 › Auto Lisp › 直线自动标注尺寸

Fire Alarm 发表于 2022-7-6 08:36:53

直线自动标注尺寸

我一直在寻找一个lisp例程或命令，让我画的线自动显示其长度。我不知道lisp例程是如何工作的。我目前正在研究它们，但不知道如何创建一个。任何帮助都将不胜感激。当我尝试计算通知电路的压降时，这将帮助我节省时间。
 
谢谢

Tiger 发表于 2022-7-6 08:41:43

你的意思是一旦你完成了这条线，就得到一个合适的尺寸吗？这很棘手，但可能并非不可能。
 
如果您的意思是在绘制线条时看到线条的长度，则可以打开动态输入（单击屏幕底部的DYN按钮）-右键单击DYN按钮以获取其设置并根据需要进行设置。

Fire Alarm 发表于 2022-7-6 08:45:59

我通常做的是从一个设备到另一个设备绘制一条线，然后选择线并转到“属性”查看长度。一旦画好，我想看看线的长度。不是在我画画的时候。

Tiger 发表于 2022-7-6 08:47:12

啊哈。我会把你的帖子转到Lisp论坛，希望有人能帮你

BlackAlnet 发表于 2022-7-6 08:50:06

你想一个人想想吗？一些提示如果是，可以取2个点，执行pline命令，然后添加此点
 

(command "dist" p1 p2);if p1 and p2 is the points.
(princ)
(setq di (getvar "Distance"))

 
这将显示与点的距离。

JohnM 发表于 2022-7-6 08:53:55

当你画线的时候，它是一条线还是一条线？
它总是直的还是涉及曲线？
是从a点到b点还是多点？
您想要autocad标注还是只需要具有长度的文本？

Fire Alarm 发表于 2022-7-6 08:57:28

当你画线的时候，它是一条线还是一条线？
它总是直的还是涉及曲线？
是从a点到b点还是多点？
您想要autocad标注还是只需要具有长度的文本？
约翰姆
1） 他们是普林斯
2和3）有90度转弯（我尽量不点对点，所以我有一个距离安全系数）
4） 只显示文本长度即可
 
BlackAlnet公司
我不知道怎么一个人做。
 
谢谢

chelsea1307 发表于 2022-7-6 09:01:19

李·麦克（lee mac）不久前给我写了一个lisp，在绘制了普林线之后，你启动lisp并选择普林线，文本放在它旁边，这会让你更接近你想要的吗？

Lee Mac 发表于 2022-7-6 09:03:02

像这样的？
 

(defun c:leng (/ ent Obj)
(vl-load-com)
(while
   (progn
   (setq ent (car (entsel "\nSelect Object: ")))
   (cond ((eq 'ENAME (type ent))
            (setq Obj (vlax-ename->vla-object ent))
            (if (vlax-property-available-p Obj 'length)
            (not (print (vla-get-length Obj)))
            (princ "\n** Invalid Object Selected **")))
         (t (princ "\n** Nothing Selected **")))))
(princ))

Lee Mac 发表于 2022-7-6 09:06:37

 
我相信这一点：
http://www.cadtutor.net/forum/showthread.php?t=36659
 
：D

查看完整版本: 直线自动标注尺寸