原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
练习LISP程序设计
;;; 1 将现有图中的直线移到指定的图层。（图层由用户确定）
(Defun c:LX1( / ly ss1 n i entnm b)
(Setq ly (Getstring \nLayer:)) ；；；输入指定的图层名
(Setq ss1 (Ssget x ((0 . line)))) ；；；现有图中直线的选择集
(Command change ss1 p la ly )
)
Command: change
Select objects: 1 found
Select objects:
Properties/Change point: p
Change what property (Color/Elev/LAyer/LType/ltScale/Thickness) ? la
New layer 0: lin
Change what property (Color/Elev/LAyer/LType/ltScale/Thickness) ?
Command:
CHANGE
;;;
;;; 2 将现有的多段首尾相接的直线编辑成多义线。
(Defun c:LX2()
(Setq ss (Ssadd)) ；；； ；；；Entsel prompt）返回所选实体的名称及选取该实体的选点坐标。只能用点去选，不能用Window选，提示参数的缺省值是Select objects.
(While (/= ssi nil)
(Ssadd (car ssi) ss)
(Setq ssi (entsel))
)
(Setq entnm (Ssname ss 0))
；；； (Ssname ss n) 获得选择集 ss 中的第 n 个图元名
(Command pedit entnm y j ss x)
)
Command: pedit
Select polyline:
Close/Join/Width/Edit vertex/Fit/Spline/Decurve/Ltype gen/Undo/eXit X: j
Select objects: 1 found
Select objects: 1 found
Select objects: 1 found
Select objects: 1 found
Select objects: 1 found
Select objects: 1 found (1 duplicate)
Select objects:
4 segments added to polyline
Open/Join/Width/Edit vertex/Fit/Spline/Decurve/Ltype gen/Undo/eXit X: x
Command:
;;; 3 改变现有图中所有圆的颜色。（颜色由用户确定）
(Defun c:LX3()
(Setq col (Getint \nColor:))
(Setq ss1 (Ssget x ((0 . circle))))
(Command change ss1 p c col )
)
;;; 4 改变用户所选定实体的线型。（线型由用户确定）
(Defun c:LX4()
(Setq lt (Getstring \nLinetype:))
(Setq nm (Car (Entsel \nSELECT OBJECT:)))
(Setq b (Entget nm))
(Setq old (Assoc 6 b))
(If (= old NIL)
(Setq b (Cons (Cons 6 lt) b))
(Setq b (subst (Cons 6 lt) old b))
)
(Entmod b)
)
;;; 5 将目标变为当前层的颜色。
(Defun c:LX5( / a)
(Setq b (Getvar CLAYER))
(Setq a (Entget (Car (Entsel \nPick the
SOURCE OBJECT))))
(Setq a (Subst (cons 8 b) (assoc 8 a) a))
(Entmod a)
)
;;; 6 将目标 2 层变为目标 1 层。
(Defun c:LX6( / a)
(Setq a (Entget (Car (Entsel \nPick the
文档评论（0）