用简单的代码做了个圆弧辅助角插件

chen3732088

运行代码，选择圆弧的切点跟圆心，获取切点与圆心的连线，同时旋转90度后找交点，然后生成辅助角并置于不打印图层，同时提示辅助角的角度。
代码简简单单，没有复杂的函数，对于新手来说，只能做到这样了，望大佬们提出宝贵的修改意见。

xyp1964

1. ;; (abc (setq s1(car(entsel"\n选择圆弧: "))))
   
2. (defun abc (s1 / pc p1 p2 p1a p2a p3)
   
3.   "圆弧两端点相交切线"
   
4.   (setq pc (cdr (assoc 10 (entget s1)))
   
5.         p1 (vlax-curve-getStartPoint s1)
   
6.         p2 (vlax-curve-getEndPoint s1)
   
7.   )
   
8.   (if (setq p1a (polar p1 (+ (angle pc p1) (* pi 0.5)) 10)
   
9.             p2a (polar p2 (+ (angle pc p2) (* pi 0.5)) 10)
   
10.             p3  (inters p1 p1a p2 p2a nil)
    
11.       )
    
12.     (command "line" "non" p1 "non" p3 "non" p2 "")
    
13.   )
    
14. )

;; (abc (setq s1(car(entsel"\n选择圆弧: "))))<br /> (defun abc (s1 / pc p1 p2 p1a p2a p3)<br />   "圆弧两端点相交切线"<br />   (setq pc (cdr (assoc 10 (entget s1)))<br />         p1 (vlax-curve-getStartPoint s1)<br />         p2 (vlax-curve-getEndPoint s1)<br />   )<br />   (if (setq p1a (polar p1 (+ (angle pc p1) (* pi 0.5)) 10)<br />             p2a (polar p2 (+ (angle pc p2) (* pi 0.5)) 10)<br />             p3  (inters p1 p1a p2 p2a nil)<br />       )<br />     (command "line" "non" p1 "non" p3 "non" p2 "")<br />   )<br /> )

panliang9

这有个讨论贴讨论了相关的问题，其中的 “Draw_PolyArc.lsp” 很有意思，和院长的异曲同工，区别就是它画了一个临时的，会消失。
https://forums.augi.com/showthread.php?111361-lisp-to-generate-tangent-lines-for-a-selected-arc

chen3732088

飞雪神光 发表于 2024-10-30 17:01
手动指定的三个点都是可以从属性获取的 为什么不自动获取呢

大佬，假如在同一条多段线内有多个圆弧的话，也可以获取到指定那个圆弧的属性值吗？

飞雪神光

手动指定的三个点都是可以从属性获取的 为什么不自动获取呢

xyp1964

飞雪神光

chen3732088 发表于 2024-10-30 17:06
大佬，假如在同一条多段线内有多个圆弧的话，也可以获取到指定那个圆弧的属性值吗？

可以获取和根据现有参数算出来

chen3732088

飞雪神光 发表于 2024-10-30 20:01
可以获取和根据现有参数算出来

大佬能麻烦给下思路嘛，我研究研究

chen3732088

xyp1964 发表于 2024-10-30 19:15

之前在论坛上有下载过类似的，但是会把多段线上所有圆弧都作出辅助角。
而且有些圆弧还是在块里面的，所有有点不方便。

自贡黄明儒

这个不是早讨论过了吗？直接拾取弧就可以了，包括块中弧。

chen3732088

自贡黄明儒 发表于 2024-10-31 10:27
这个不是早讨论过了吗？直接拾取弧就可以了，包括块中弧。

大佬可以说下获取块中和多段线中指定弧的思路吗