chen3732088 发表于 2024-10-30 16:09:30

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

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

xyp1964 发表于 2024-10-31 09:33:21

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

panliang9 发表于 2024-11-5 11:17:50

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





chen3732088 发表于 2024-10-30 17:06:30

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

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

飞雪神光 发表于 2024-10-30 17:01:23

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

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


飞雪神光 发表于 2024-10-30 20:01:22

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

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

chen3732088 发表于 2024-10-31 08:33:41

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

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

chen3732088 发表于 2024-10-31 08:36:07

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


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

自贡黄明儒 发表于 2024-10-31 10:27:06

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

chen3732088 发表于 2024-10-31 10:40:40

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

大佬可以说下获取块中和多段线中指定弧的思路吗
页: [1] 2
查看完整版本: 用简单的代码做了个圆弧辅助角插件