新老多段线互转工具

Lispboy · 发表于 2013-9-2 15:49:37

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

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

×

;|
新老多段线互转工具
|;
(defun c:XDTB_POLYCONVERT (/ e len ss tf)
  (XD::Begin)
  (initget "0 1")
  (if (not (setq tf (getkword "\n[0-新转老/1-老转新]<1>:")))
(setq tf 1)
  )
  (princ "\n选取要转换的多段线<退出>:")
  (if (setq ss (ssget (list (cons 0 (if (= tf "0")
                                    "lwpolyline"
                                    "polyline"
                                 )
                        )
                  )
            )
   )
(progn
   (setq len (sslength ss))
   (xdrx_setsstodb ss 0)
   (while (setq e (xdrx_getentdata 0))
      (if (= tf "1")
      (xdrx_polyline_ConvertFrom e)
      (xdrx_polyline->2dpolyline e)
      )
   )
   (princ (strcat "\n成功转换了" (itoa len) "个多段线."))
)
  )
  (XD::End)
  (princ)
)

gufengyin · 发表于 2013-9-2 16:11:48

与CAD自带的 convertpoly 有什么区别?

Lispboy · 发表于 2013-9-2 16:18:59

gufengyin 发表于 2013-9-2 16:11
与CAD自带的 convertpoly 有什么区别?

很早以前写过的一个工具，改到API下了，刚才看到一个朋友说裁剪图纸的工具不能裁2DPOLY，就把它拿出来了。
你说的命令还真没用过，很多时候需要什么的时候就顺手写个程序了，这个命令从哪个版本CAD开始带的？

renyong119 · 发表于 2013-9-3 09:07:02

后面的版本都有，是PE嘛？

gufengyin · 发表于 2013-9-3 09:35:16

Lispboy 发表于 2013-9-2 16:18
很早以前写过的一个工具，改到API下了，刚才看到一个朋友说裁剪图纸的工具不能裁2DPOLY，就把它拿出来了 ...

不太记得了好像是2000版本开始就有了吧不过CAD帮助里是找不到这个命令帮助的.

chenbing111 · 发表于 2013-9-13 16:59:22

非常感谢呵呵

lt77887788 · 发表于 2013-11-3 18:15:54

感谢分享，期望自己早日升级

enn09 · 发表于 2014-4-16 10:14:12

感谢分享，跟pe很像

chbddzx12 · 发表于 2014-10-10 07:59:14

看看你~~~~~~~~~~~~

微笑中的太阳 · 发表于 2016-11-13 15:23:40

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

[多段线] 新老多段线互转工具

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

点评

评分

点评