本帖最后由 czcxxx 于 2015-10-26 12:56 编辑
院长辛苦了！！！！
好好研究一下院长的编程思路。
谢谢了！！！
期待更多精彩！！！
本帖最后由 xyp1964 于 2017-11-20 21:46 编辑
dianbotang 发表于 2015-10-24 23:37 static/image/common/back.gif
请问院长，能否提供一下画多段线函数(xyp-pline dl nil)？
;; xyp-Pline 建立多段线 (xyp-Pline 点集 闭合参数)
;; 闭合参数tn: t闭合，nil打开
(defun xyp-Pline (ptlst Close-tnil / a s1)
(entmake (append (list '(0 . "LWPOLYLINE")
'(100 . "AcDbEntity")
'(100 . "AcDbPolyline")
(cons 90 (length ptlst))
(cons 70 (if Close-tnil 1 0))
(cons 38
(if (nth 2 (car ptlst))
(nth 2 (car ptlst))
0
)
)
)
(mapcar '(lambda (a) (cons 10 a)) ptlst)
)
)
(entlast)
)
本帖最后由 czcxxx 于 2015-10-27 09:08 编辑
昨天看了院长的几个函数，非常精彩！
通用性非常强，考虑因素全面，递归函数使用巧妙！！
谢谢院长分享！！！！
要抓紧时间继续学习。
有时间就来看看 能有收获 自定义函数真好
求院长这个源码xyp-Xls2List
本帖最后由 xyp1964 于 2017-11-20 21:46 编辑
;; xyp-Erase 删除 (xyp-Erase ss)
;; ss:实体、选择集或表
(defun xyp-Erase (ss)
(cond((= (type ss) 'ENAME) (vla-erase (xyp-e2o ss)))
((= (type ss) 'VLA-OBJECT) (vla-erase ss))
((and (= (type ss) 'PICKSET) (> (sslength ss) 0))
(xyp-Erase (xyp-ss2list ss))
)
((= (type ss) 'LIST)
(foreach s1 ss (xyp-Erase s1))
)
)
)
必须顶
本帖最后由 xyp1964 于 2017-11-20 21:47 编辑
;; xyp-Erase 删除 (xyp-Erase e)
;; e:实体、选择集或表
(defun xyp-Erase (e)
(cond ((= (type e) 'ENAME) (vla-erase (xyp-e2o e)))
((= (type e) 'VLA-OBJECT) (vla-erase e))
((= (type e) 'LIST) (mapcar 'xyp-Erase lst))
((= (type e) 'PICKSET) (xyp-Erase (xyp-Ss2List e)))
)
)
整整25页，看的头都大了，有好多不懂的
由衷的感谢院长的无私，
祝您老人家身体健康！
感谢院长无私奉献