[编程申请]：角度标注:强力dimangular

逐月飞鸿

强力dimangular
我们在实际当中会用到dimangular这个命令，但是在实际情况中我们很多时候碰到弧线与直线，弧线与弧线相交的情况，而我们又需要知道他们在相交处的夹角（即：测出其各自在交点的切线的夹角），平时我们都是先作其各自通过交点的切线，再测量角度。费时费力。可否写个强力的测角lisp，直接得出这些情况下的该点的切线角度呢？请高手解决！

大黄蜂

这样的程序比较实用，如果有人给编辑出来那真是太方便了。

逐月飞鸿

等待中啊,高手出招啊~~

xyp1964

只针对两弧切角标注：
[php](load "xyp_lib");加载通用函数
;|
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.lsp中增加(load"xyp_lib")
2.在每个程序内增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
通用函数下载地址：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
|;

;;;两弧交点切线角度标注
(defun c:test134 ()
  (cmdla0)
  (princ "\n选择圆弧 : ")
  (setq        s1   (usel 0 "ARC")
        s2   (usel 0 "ARC")
        es1  (entget (car s1))
        es2  (entget (car s2))
        pt   (vlax-safearray->list
               (vlax-variant-value
                 (vla-intersectwith
                   (vlax-ename->vla-object (car s1))
                   (vlax-ename->vla-object (car s2))
                   acExtendnone
                 )
               )
             )
        pt11 (polar pt
                    (+ (angle (dxf 10 es1) pt) (* pi 0.5))
                    (dxf 40 es1)
             )
        pt22 (polar pt
                    (- (angle (dxf 10 es2) pt) (* pi 0.5))
                    (dxf 40 es2)
             )
  )
  (mkla "切角" 1)
  (setvar"osmode"0)
  (command "line" pt11 pt "")
  (setq e1 (entlast))
  (command "line" pt pt22 "")
  (setq e2 (entlast))
  (mkla "切角标注" 3)
  (command "dimangular"
           (cons e1 '((0 0 0)))
           (cons e2 '((0 0 0)))
           (_midp (_midp pt pt11) (_midp pt pt22))
  )
  (cmdla1)
)
[/php]

狂刀

方法：
１求出曲线与其它物体的交点集
２，求交点处法线角

逐月飞鸿

很好用！谢谢xyp1964大虾，请那位大虾把弧线与直线的情况也完善一下吧！谢谢了！

xyp1964

[php]
(load "xyp_lib");加载通用函数
;|
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.lsp中增加(load"xyp_lib")
2.在每个程序内增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
通用函数下载地址：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
|;

;;;线弧交点切线角度标注
(defun c:test134 ()
  (cmdla0)
  (princ "\n选择圆弧 : ")
  (setq        s1         (uentsel 0 '("ARC" "LINE") "圆弧或线")
        s2         (uentsel 0 '("ARC" "LINE") "圆弧或线")
        es1         (entget (car s1))
        es2         (entget (car s2))
        pt10-es1 (dxf 10 es1)
        pt10-es2 (dxf 10 es2)
        pt         (vlax-safearray->list
                   (vlax-variant-value
                     (vla-intersectwith
                       (vlax-ename->vla-object (car s1))
                       (vlax-ename->vla-object (car s2))
                       acExtendnone
                     )
                   )
                 )
  )
  (if (/= "LINE" (dxf 0 es1))
    (setq pt11 (polar pt (+ (angle pt10-es1 pt) (* pi 0.5)) (dxf 40 es1)))
    (setq pt11 pt10-es1)
  )
  (if (/= "LINE" (dxf 0 es2))
    (setq pt22 (polar pt (- (angle pt10-es2 pt) (* pi 0.5)) (dxf 40 es2)))
    (setq pt22 pt10-es2)
  )
  (mkla "法线" 1)
  (command "line" pt11 pt "")
  (setq e1 (entlast))
  (command "line" pt pt22 "")
  (setq e2 (entlast))
  (mkla "切角标注" 3)
  (command "dimangular"
           (cons e1 '((0 0 0)))
           (cons e2 '((0 0 0)))
           (_midp (_midp pt pt11) (_midp pt pt22))
  )
  (if (= "LINE" (dxf 0 es1))
    (entdel e1)
  )
  (if (= "LINE" (dxf 0 es2))
    (entdel e2)
  )
  (cmdla1)
)[/php]

huiling6868

输入命令再输入比例后出错:(选择圆弧 : 错误:no function definition: UENTSEL)

xyp1964

最初由 huiling6868 发布
[B]输入命令再输入比例后出错:(选择圆弧 : 错误:no function definition: UENTSEL) [/B]

这是最新自定义的函数“UENTSEL”，作用类似entsel，但可以控制过滤dxf代码，如果不符合过滤要求，会一直提示用户按要求选择物体。

请在签名栏下重新下载通用函数xyp_lib。

逐月飞鸿

重新下载后还是
输入命令再输入比例后出错:(选择圆弧 : 错误:no function definition: UENTSEL)
其实最好将函数uentsel 直接放在（defun c:test134 () ）中，这样单个加载就可以使用了。。。。

xyp1964

切角标注：QJBZ

大黄蜂

很好用！不过，好像有的时候标注的并非是你选的那个夹角，而是其对顶角或其补角.....
有个不情之请能否公布源码阿？大虾，也让小弟学学！

xyp1964

最初由 大黄蜂 发布
[B]很好用！不过，好像有的时候标注的并非是你选的那个夹角，而是其对顶角或其补角.....
有个不情之请能否公布源码阿？大虾，也让小弟学学！ [/B]

“源码”就在7楼！不过考虑得不是太细致，标注角度的位置与画图的顺序有关（dxf 10代码），有时并不是实际需要的，正像你所说可能是“对顶角或其补角”，不过基本可用。