求一个线均分的工具（类似divide）

doro · 发表于 2013-5-31 11:44:08

对象：多线或线
输入：一个数值n
执行后：多线每一段（或线）等分，份数=ceil(每一段长度/n)，如ceil(900/200)=5

风雨依然 · 发表于 2013-5-31 20:33:49

先将曲线原位复制，再在2点打断，
再用cad的divide命令和measure命令即可满足要求
使用时先设置好pdmode和pdsize，或用块（此回答明经里面有不知道是不是你想要的）
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=92651

风雨依然 · 发表于 2013-5-31 20:44:58

yjpzc · 发表于 2013-5-31 21:03:24

(defun yjp-df-obj(df-obj jd-dis / i obj-length pt pt-list)
  (setq obj-length(Vlax-Get df-obj 'Length ))
  (setq i 0 pt-list '())
  (repeat (1+ (fix (/ obj-length jd-dis)))
(setq pt(vlax-curve-getPointAtDist df-obj (* jd-dis i)))
(setq pt-list(cons pt pt-list))
(setq i(1+ i))
  )
  (setq pt-list (reverse (cons (car (reverse (yjp-lw-pt df-obj)))  pt-list)))
)
;按距离等分

USER2128 · 发表于 2013-6-1 09:11:26

yjpzc 发表于 2013-5-31 21:03
(defun yjp-df-obj(df-obj jd-dis / i obj-length pt pt-list)
(setq obj-length(Vlax-Get df-obj 'Len ...

请提供函数：yjp-lw-pt，谢谢！

yjpzc · 发表于 2013-6-1 09:22:02

最后一句可以去掉  我忘记去掉了最后一个最多段线节点坐标
(defun yjp-lw-pt(df-obj / lst lw-name a)
  (setq lw-name  (entget (vlax-vla-object->ename df-obj)))
  (setq lst '())
  (foreach  a lw-name
(if (= (car a) 10)
      (if (= (length (cdr a)) 3)
         (setq lst (cons (cdr a) lst))
         (setq lst (cons (append (cdr a) '(0.0)) lst))
      )
   )
)
  (setq lst (reverse lst))
)

yjpzc · 发表于 2013-6-1 09:23:28

(defun yjp-df-obj(df-obj jd-dis / i obj-length pt pt-list)
  (setq obj-length(Vlax-Get df-obj 'Length ))
(setq i 0 pt-list '())
(repeat (1+ (fix (/ obj-length jd-dis)))
   (setq pt(vlax-curve-getPointAtDist df-obj (* jd-dis i)))
   (setq pt-list(cons pt pt-list))
   (setq i(1+ i))
  )
  pt-list
)

USER2128 · 发表于 2013-6-1 09:31:47

yjpzc 发表于 2013-6-1 09:23
(defun yjp-df-obj(df-obj jd-dis / i obj-length pt pt-list)
(setq obj-length(Vlax-Get df-obj 'Len ...

万分感谢！

doro · 发表于 2013-6-5 10:07:26

多谢楼上各位！

doro · 发表于 2013-6-5 10:19:13

本帖最后由 doro 于 2013-6-5 10:23 编辑

按楼上提供的函数自己摸索下，还有就是我没有表述清楚，重新上个图

图中 n=400
380=1900/ceil(1900/400)
309=1234/ceil(1234/400)

函数ceil(z)： 返回 ≥ z 的最小整数。
就是以最接近n的一个值等分各线段

账号		自动登录	找回密码
密码			注册

[提问] 求一个线均分的工具（类似divide）

相关帖子

本帖子中包含更多资源