线变复线的命令实现方式，连接LINE,POLYLINE到连续的PL线

Lisphk · 发表于 2016-10-29 15:44:36

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

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

×

(defun c:tt (/ varlist oldvars ss1)
    (setq varlist (list "cmdecho" "peditaccept")
      oldvars (mapcar 'getvar varlist)
    ) ;_  end setq
    (mapcar 'setvar varlist (list 0 1))
    (setq ss1 (ssget '((0 . "LINE,*POLYLINE"))))
    (if    (> (sslength ss1) 1)
    (progn
        (vl-cmdf "_pedit" "_M" ss1 "" "J" "0" "")
        (princ (strcat "\n" (itoa (sslength ss1)) " Lines 转换. "))
    ) ;_  end progn
    (progn
        (vl-cmdf "_pedit" ss1 "")
        (princ (strcat "\n" (itoa (sslength ss1)) " Line 转换. "))
    ) ;_  end progn
    ) ;_  end if
    (mapcar 'setvar varlist oldvars)
    (princ)
)

yoyoho · 发表于 2016-10-29 17:31:48

感谢 Lisphk 分享程序!

qqqincccken · 发表于 2016-10-29 18:18:19

谢谢提供,下载用用了!!!!1

ssddssdd · 发表于 2016-10-29 19:29:13

啥也不说了，感谢楼主分享哇！

sicky111 · 发表于 2016-10-30 23:14:04

增强型PE

jxwfz19740724 · 发表于 2017-6-23 08:22:34

我看看就好，反正程序看不懂。

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

[每日一码] 线变复线的命令实现方式，连接LINE,POLYLINE到连续的PL线

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