^C^C语言\\a\\\
这将需要你在角度上猜测，但它将接近，可能看起来不错。见附件。将宏分配给toolbutton后，选择它开始，按显示的顺序和位置选择。
Lisp程序的人很快就能用两个或三个选择把一个放在一起做你想做的事情。
谢谢我也试试那个。
嘿，伙计们，这只适用于lisp LWpolyline。多个dimangular更新v1.1
只需调整全局参数以满足您的需要。t/无
(setq
*dimsuppressed* t ; t= suppressed / nil= normal
*dimtxtinside* t ; t= acute angle / nil= obtuse large > 180
)
(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)
...
...
你只需要选取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。 试试这个，时间用完了需要一些调整，并检查文本可读性。
; 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)
谢谢大家持续的帮助！
Thanx BIGAL好主意
更新后的链接#14 我使用哪个lsp例程进行尺寸标注，以准确完成图形的功能。同时做一些测量绘图，这将非常方便。
欢迎来到CADDutor reddo83，
带下划线的文本是一个URL链接，它指示您复制相关代码。
单击-->多个DIMANGLAR
这已经在#post14中提到
HTH公司
页:
1
[2]