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

czx663

用entmake如何创建多义线和椭圆如entmake (list (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))) 怎么不行啊

caoyin

1. (entmake '((0 . "LWPOLYLINE")(100 . "AcDbEntity") (67 . 0)
2. (410 . "Model") (8 . "0") (100 . "AcDbPolyline") (90 . 3)
3. (70 . 0) (43 . 0.0) (38 . 0.0) (39 . 0.0) (10 217.208 703.749)
4. (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 477.857 472.286) (40 . 0.0)
5. (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.几个函数的帮助要看一下：list  cons  quote

czx663

谢谢大侠!搞定了,在做一个cad图元的复制.在有的图里Ctrl+C用不了.想把要拷贝的图元全部信息保存到一个文件然后再从按照文件的信息在另一个图里生成元.

大侠你用的是什么编辑器,有行号的,挺好的

xyp1964

(entmake '((0 . "LWPOLYLINE")
    (100 . "AcDbEntity")
    (100 . "AcDbPolyline")
    (90 . 3)
    (10 217.208 703.749)
    (10 477.857 472.286)
    (10 692.51 668.008)
   )
)

cockiseva

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