cad单线变双线lisp_晓东CAD家园-论坛-晓东工具箱、编程申请-求一个双线变单线的插件 - Powered by Discuz!...

(defun c:tt ()

(defun xd::ents:groupbyproperty (ss property tol / ents)

(if (= (type ss) 'PICKSET)

(setq ss (xdrx_pickset->ents ss))

)

(setq ss (mapcar '(lambda (x)

(list (if (= (strcase property) "ANGLE")

(xd::geom:angleformat

(xdrx_getpropertyvalue x property)

)

(xdrx_getpropertyvalue x property)

)

x

)

)

ss

)

)

(xd::list:groupbyindex ss tol)

)

(if (and (xdrx_initssget "\n选取变单的双线:")

(setq ss (xdrx_ssget '((0 . "LINE"))))

(setq ents (xd::ents:groupbyproperty ss "length" 1.0))

)

(progn

(mapcar

'(lambda (x)

(setq el (xd::ents:groupbyproperty (cdr x) "angle" 0.1))

(mapcar

'(lambda (y)

(setq el1 (cdr y)

el1 (xd: