[求助]如何将面域转为多义线？

dgygs · 发表于 2010-11-11 10:57:00

如题，如何用lisp将面域转为多义线？

Gu_xl · 发表于 2010-11-11 13:23:00

(defun c:tt()
(setq en (entlast))
(princ "\n选择面域：")
(setq e1 (car (entsel)))
(vla-explode (vlax-ename->vla-object e1))
(setq ss (ssadd))
(while (setq en (entnext en))
(ssadd en ss)
)
(command "pedit" (ssname ss 0) "y" "j" ss "" "")
(princ)
)

dgygs · 发表于 2010-11-11 17:15:00

可不可以一次选择多个面域操作的啊？要不然用bo就行了！

Gu_xl · 发表于 2010-11-11 19:41:00

(defun c:tt(/ cmdecho s n en e1 ss)
(setq cmdecho (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq s (ssget '((0 . "region"))))
(if s
(progn
(setq n (sslength s))
(repeat n
(setq en (entlast))
(setq e1 (ssname s 0))
(ssdel e1 s)
(vla-explode (vlax-ename->vla-object e1))
(setq ss (ssadd))
(while (setq en (entnext en))
(ssadd en ss)
)
(command "pedit" (ssname ss 0) "y" "j" ss "" "")
)
)
)
(setvar "cmdecho" cmdecho)
(princ)
)

wgq2808 · 发表于 2010-11-11 20:07:00

多段线顶点序列默认排布怎么有时候是顺，有时候是逆啊，它怎么自动确定的？

caoyin · 发表于 2010-11-11 20:10:00

不是所有面域都可以完全相同轨迹的转换为多段线的，因为面域中有可能饱含样条曲线的边界，但可以用多段线无限逼近的模拟

wgq2808 · 发表于 2010-11-11 20:28:00

版主能不能回答我多段线排序的问题呢

dgygs · 发表于 2010-11-20 11:12:00

多谢4楼，有用，但是含有圆的面域时还会编辑多义线，

还想问一下如何将多义线进行线弧转换，就是，那段是直线时可转为弧线，是弧线时可转为直线！

longer1000 · 发表于 2012-6-12 09:08:45

多谢4楼,,,,,,,,,,,,,,

pxt2001 · 发表于 2012-6-13 09:06:22

4楼和2楼是一个人，也要多谢2楼。

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

[求助]如何将面域转为多义线？

浏览过的版块