求 超级等分 等分线，圆弧，多段线 的节点和端点画圆的LISP和程序

吴外安放

求 超级等分 等分线，圆弧，多段线 的节点和端点画圆的LISP和程序

pxr201419

(defun c:tt()
   (cond ((setq ss (ssget '((0 . "CIRCLE,ARC,*LINE"))))
          (cond ((and (setq num (getint "\n等分段数:"))
                      (setq r (getdist "\n画圆半径")))
                 (setq i 0)
                 (setq old (getvar "osmode"))
                 (setvar "osmode" 0)
                 (while (< i (sslength ss))
                    (setq e (ssname ss i))
                    (setq s (vlax-curve-getDistAtParam e (vlax-curve-getEndParam e)))
                    (setq l (/ s num 1.0)
                          s0 0.0)
                    (while (<= s0 (+ s 1e-8))
                       (vl-cmdf "circle" (vlax-curve-getpointatdist e s0) r)
                       (setq s0 (+ s0 l)))
                    (setq i (1+ i)))
                 (setvar "osmode" old)))))
   (princ))

Lisphk

顶点（间）等分拷贝

18 个回复 - 805 次查看

1、等分数小于2，只拷贝顶点 2、大于2，顶点拷贝，每个顶点间按给的等分数拷贝 **** 本内容被作者隐藏 ****

2018-9-10 20:26 - Lispboy - 每日插件

智能等分线

5 个回复 - 265 次查看

根据朋友的申请，http://bbs.xdcad.net/thread-725838-1-1.html 需要的函数：XD::Pickset:PickLineSeg 见： http://bbs.xdcad.net/thread-725858-1-1.html **** 本内容被作者隐藏 ****

2020-5-17 01:15 - XDSoft - 每日插件

等分连线

1 个回复 - 26 次查看

有选项，对于多段线，可以按每个子段进行等分 全局等分4段和子段等分4段的区别

2020-5-13 17:52 - Lispboy - 每日插件

画等分线（可角等分、线等分）

5 个回复 - 769 次查看

等分数： 正数-角等分，负数-线等分（端点连线），对平行线，只有线等分效果

2018-9-10 18:15 - newer - 每日插件

等分曲线

5 个回复 - 595 次查看

2017-5-31 12:34 - Lispboy - 每日插件

/db_自贡黄明儒_

divide命令似乎就可以了。

吴外安放

/db_自贡黄明儒_ 发表于 2020-8-3 10:13
divide命令似乎就可以了。

一个一个点好麻烦，能不能一次全选 的那种

吴外安放

Lisphk 发表于 2020-8-3 10:01
顶点（间）等分拷贝18 个回复 - 805 次查看1、等分数小于2，只拷贝顶点 2、大于2，顶点拷贝，每个顶点间按 ...

“等分曲线”http://bbs.xdcad.net/forum.php?mod=viewthread&tid=709542&highlight=%B5%C8%B7%D6可以一次性选取然后等分段了，能不能在等分段节点上和端点上一次性画圆 ，

wysclc

你要这种类似功能吗？

吴外安放

wysclc 发表于 2020-8-3 12:15
你要这种类似功能吗？

对，你这个是直线，圆弧 多段线是分开的，这样就是分三次操作了，我想要的是一次性选中操作

吴外安放

pxr201419 发表于 2020-8-4 08:35
(defun c:tt()
   (cond ((setq ss (ssget '((0 . "CIRCLE,ARC,*LINE"))))
          (cond ((and (setq  ...

谢谢大神，牛牛