czx663 发表于 2010-5-18 22:13:00

[求助]用entmake如何创建多义线和椭圆

用entmake如何创建多义线和椭圆如:(entmake (list&nbsp;(0 . "LWPOLYLINE") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbPolyline") (90 . 3) (70 . 0) (43 . 0.0) (38 . 0.0) (39 . 0.0) (10 217.208 703.749) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 477.857 472.286) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 692.51 668.008) (40 . 0.0) (41 . 0.0) (42 . 0.0) (210 0.0 0.0 1.0))) 怎么不行啊<br/>

caoyin 发表于 2010-5-19 10:33:00

本帖最后由 作者 于 2010-5-19 11:07:40 编辑

(entmake '((0 . "LWPOLYLINE")(100 . "AcDbEntity") (67 . 0)
(410 . "Model") (8 . "0") (100 . "AcDbPolyline") (90 . 3)
(70 . 0) (43 . 0.0) (38 . 0.0) (39 . 0.0) (10 217.208 703.749)
(40 . 0.0) (41 . 0.0) (42 . 0.0) (10 477.857 472.286) (40 . 0.0)
(41 . 0.0) (42 . 0.0) (10 692.51 668.008) (40 . 0.0) (41 . 0.0) (42 . 0.0) (210 0.0 0.0 1.0)))1.由于版本历史的原因，enmake创建有的对象的一些组码不能少，例如lwpolyline的(100 . "AcDbEntity") 必不可少
2.几个函数的帮助要看一下：listconsquote

czx663 发表于 2010-5-19 19:33:00

<p>谢谢大侠!搞定了,在做一个cad图元的复制.在有的图里Ctrl+C用不了.想把要拷贝的图元全部信息保存到一个文件然后再从按照文件的信息在另一个图里生成元.</p><p>大侠你用的是什么编辑器,有行号的,挺好的</p>

xyp1964 发表于 2010-5-19 20:38:00

(entmake '((0 . "LWPOLYLINE")<br/>&nbsp;&nbsp;&nbsp; (100 . "AcDbEntity")<br/>&nbsp;&nbsp;&nbsp; (100 . "AcDbPolyline")<br/>&nbsp;&nbsp;&nbsp; (90 . 3)<br/>&nbsp;&nbsp;&nbsp; (10 217.208 703.749)<br/>&nbsp;&nbsp;&nbsp; (10 477.857 472.286)<br/>&nbsp;&nbsp;&nbsp; (10 692.51 668.008)<br/>&nbsp;&nbsp; )<br/>)

cockiseva 发表于 2010-5-29 12:38:00

你可以先随便画个多义线和椭圆，然后用(entget(car(entsel)))函数取得串行数据，替换掉其中要修改的数据，再用(entmake)创建就没问题了。

500w008 发表于 2023-3-28 00:39:56

页: [1]
查看完整版本: [求助]用entmake如何创建多义线和椭圆