求将面域转化为封闭多段线的LISP

柱哥 · 发表于 2015-3-23 12:32:27

本帖最后由柱哥于 2015-3-23 17:01 编辑

附件的文件全部为面域，求将面域转化为封闭多段线的码。
自已动手把码写了，给有需要的人。

(defun c:rtp (/ ss n k en spg)
  (setvar "cmdecho" 0)
  (setq ss (ssget "X" '((0 . "REGION"))))
  (setq n (sslength ss)
k 0
  )
  (command "layer" "n" "PG" "c" "6" "PG" "s" "PG" "")
  (command "layer" "n" "PG1" "c" "7" "PG1" "s" "PG1" "")
  (command "peditaccept" 1)
  (repeat n
(setq en (ssname ss k))
(command "chprop" en "" "la" "PG1" "")
(command "explode" en)
(setq spg (ssget "X" '((8 . "PG1"))))
(command "pedit" "m" spg "" "j" "0" "")
(setq spg (ssget "X" '((8 . "PG1"))))
(command "chprop" spg "" "la" "PG" "")
(setq k (1+ k))
  )
  (command "peditaccept" 0)
  (command "layer" "s" "PG" "")
  (command "purge" "la" "" "no")
  (setvar "cmdecho" 1)
)

bookish · 发表于 2015-3-30 22:25:03

是面域的线是散的连成多段线

龙吟小调 · 发表于 2015-10-19 20:33:55

有什么办法不改图层和颜色啊

xiaoniao7619 · 发表于 2019-6-11 19:56:01

不错的东西。。

cjjh8301 · 发表于 2020-3-31 10:08:58

感谢，但是有点小问题，整个图里的面域全转了多段线，能不能改成选择修改呢，另外命令还会删除图层，不知道为什么！

xzklk · 发表于 2020-4-14 13:14:39

谢谢楼主，收藏个

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

[已解答] 求将面域转化为封闭多段线的LISP

本帖子中包含更多资源

点评

浏览过的版块