阅读下一篇
发一个lisp程序：将所选的二维多义线、圆弧、直线尽可能连接为二维多段线.;;;;;;将所选的二维多义线、圆弧、直线尽可能连接为二维多段线.;;;(defun c:jointtopl (/ kst sset i pp d1 yn f1) (setvar "cmdecho" 0) (princ "\n选择欲连接的所有二维多义线、圆弧、直线:")(setq sset (ssget '((-4 . " "))) i 0) (while (< i (sslength sset))
回帖成功
经验值 +10
全部回复（1 ）
只看楼主 我来说两句 抢板凳