多重多边形批量转换成HATCH,POLYLINE,REGION

Lispboy · 发表于 2017-8-29 23:21:45

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:xdtb_mpconvert (/ ss len)
(xdrx_begin)
(if (not #xd_var_mpolygon_oper)
(setq #xd_var_mpolygon_oper "H")
)
(xdrx_initget "H C R")
(if (setq sel (getkword (xdrx_prompt
"\n选取转出方式[填充(H)/多段线(C)/面域(R)<"
#xd_var_mpolygon_oper
">:" t
)
)
)
(setq #xd_var_mpolygon_oper sel)
)
(if (and (xdrx_initssget "\n选择要转换的MPOLYGON实体<退出>:")
(setq ss (xdrx_ssget '((0 . "MPOLYGON"))))
)
(progn
(setq len (sslength ss))
(cond
((= #xd_var_mpolygon_oper "H")
(xdrx_mpolygon->hatch ss)
)
((= #xd_var_mpolygon_oper "C")
(xdrx_mpolygon->polyline ss)
)
((= #xd_var_mpolygon_oper "R")
(xdrx_mpolygon->region ss)
)
)
(xdrx_prompt "\n操作完成! 转换了" len "个MPOLYGON。")
)
)
(xdrx_end)
(princ)
)

(defun c:xdtb_mpconvert (/ ss len) 
  (xdrx_begin) 
  (if (not #xd_var_mpolygon_oper) 
    (setq #xd_var_mpolygon_oper "H") 
  ) 
  (xdrx_initget "H C R") 
  (if (setq sel        (getkword (xdrx_prompt 
                            "\n选取转出方式[填充(H)/多段线(C)/面域(R)<" 
                            #xd_var_mpolygon_oper 
                            ">:" t 
                          ) 
                ) 
      ) 
    (setq #xd_var_mpolygon_oper sel) 
  ) 
  (if (and (xdrx_initssget "\n选择要转换的MPOLYGON实体<退出>:") 
           (setq ss (xdrx_ssget '((0 . "MPOLYGON")))) 
      ) 
    (progn 
      (setq len (sslength ss)) 
      (cond 
        ((= #xd_var_mpolygon_oper "H") 
         (xdrx_mpolygon->hatch ss) 
        ) 
        ((= #xd_var_mpolygon_oper "C") 
         (xdrx_mpolygon->polyline ss) 
        ) 
        ((= #xd_var_mpolygon_oper "R") 
         (xdrx_mpolygon->region ss) 
        ) 
      ) 
      (xdrx_prompt "\n操作完成! 转换了" len "个MPOLYGON。") 
    ) 
  ) 
  (xdrx_end) 
  (princ) 
)

kqqt6236 · 发表于 2017-8-30 00:06:11

沙发，支持一下。

liunian0524 · 发表于 2017-8-30 08:00:42

感谢楼主分享

神通不敌天数 · 发表于 2017-9-3 17:13:44

多谢分享，大神

yoyoho · 发表于 2017-9-12 22:38:32

感谢分享程序

weiyao586 · 发表于 2018-1-17 11:39:32

感谢分享程序

xoyo88 · 发表于 2019-5-6 23:47:20

感谢分享程序

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

[工具] 多重多边形批量转换成HATCH,POLYLINE,REGION

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。