注释角度和尺寸

ReMark · 发表于 2022-7-5 20:44:24

很高兴为您提供（有限的）服务。如果你有一个lisp例程，只需要调整，你应该把它附加到你的下一篇文章。也许这里的一位Lisp程序大师可以指导您如何调整它以满足您当前的需要。祝你好运

rkent · 发表于 2022-7-5 20:46:39

在抑制尺寸界线和尺寸线的情况下，使用宏
^C^C语言\\a\\\
这将需要你在角度上猜测，但它将接近，可能看起来不错。见附件。将宏分配给toolbutton后，选择它开始，按显示的顺序和位置选择。

Lisp程序的人很快就能用两个或三个选择把一个放在一起做你想做的事情。

drafting1768 · 发表于 2022-7-5 20:50:17

谢谢我也试试那个。

hanhphuc · 发表于 2022-7-5 20:53:19

嘿，伙计们，这只适用于lisp LWpolyline。多个dimangular更新v1.1

只需调整全局参数以满足您的需要。t/无

copy


(setq 
*dimsuppressed* [b][color="red"]t[/color][/b] [color="#696969"] ;[b] [u]t[/u]= suppressed[/b] / nil= normal [/color]
*dimtxtinside* [b][color="red"]t [/color][/b] [color="#696969"]; [b][u]t[/u]= acute angle[/b] / nil= obtuse large > 180[/color]
)
(defun c:AngLWP        ( / *error* pl lst p1 p2 cc m en l i v doc midp var sz box vobj )  
;hanhphuc 10/12/2014 anglwp.lsp (v1.1)
...
...

BIGAL · 发表于 2022-7-5 20:55:29

你只需要选取2个点。唯一的技巧是，你选取角度相交附近的每一条线，因为你可以正确地计算出线的方向。你需要一个大于180的是/否。我使用enter或任意键，所以它会将文本放在正确的一侧。做的方式很快，唯一的打嗝就是我要找时间把它放在一起，会努力的。

只是有一个快速的发挥，最简单的方法是只做DIM ANG，然后使用vl获得属性
extline1起点=（413.816 193.671 0.0）
测量（RO）=2.18021
text位置=（395.766 231.118 0.0）
这就是你所需要的extline1。。是交点pt，Textposition是文本的中心，因此给出了文本测量的位置和brg，以弧度表示，最后一个是entlast，最后一个是delete。

BIGAL · 发表于 2022-7-5 21:00:04

试试这个，时间用完了需要一些调整，并检查文本可读性。

copy


; lable angle using DIM ang method
; By Alan H DEC 2014
; need setvar angs radians
(vl-load-com)
(SETQ ANGBASEE (GETVAR "ANGBASE"))
(SETQ ANGDIRR (GETVAR "ANGDIR"))
(setq obj (entsel "\npick line"))
(setq obj2 (entsel "\npick line 2 "))
(setq pt1 (getpoint "\nPick point for angle"))
(command "dimangular" obj obj2 pt1) 
(setq obj (vlax-ename->vla-object (entlast)))
(setq pt1 (vlax-safearray->list (vlax-variant-value(vla-get-ExtLine1StartPoint obj)))) 
(setq ang (vla-get-Measurement obj)) ; returns number
(setq pt2 (vlax-safearray->list (vlax-variant-value(vla-get-TextPosition obj))))
(setq ang2 (/ (*  (angle pt1 pt2) 180.0) pi))
(vla-delete obj)
(command "-text" pt2 ang2 ang)
(SETVAR "ANGBASE" 0.0)
(SETVAR "ANGDIR" 0)