Entmake LWPOLYLINE

Free-Lancer

1. ;;Pts 点集 , tf 闭合标志
   
2. ;;成功返回 Pline 实体
   
3. (defun XD::OBJ:MKPline (pts tf /)
   
4.   (setq pts (mapcar '(lambda (x) (cons 10 (list (car x) (cadr x))))
   
5.       pts
   
6.      )
   
7.   )
   
8.   (if tf
   
9.     (setq pts (cons '(70 . 1) pts)
   
10.    pts (cons (cons 90 (length pts)) pts)
    
11.     )
    
12.     (setq pts (cons (cons 90 (length pts)) pts))
    
13.   )
    
14.   (entmakex (append '((0 . "LWPOLYLINE")
    
15.         (100 . "AcDbEntity")
    
16.         (100 . "AcDbPolyline")
    
17.        )
    
18.       pts
    
19.      )
    
20.   )
    
21. )

;;Pts 点集 , tf 闭合标志<br /> ;;成功返回 Pline 实体<br /> (defun XD::OBJ:MKPline (pts tf /)<br />   (setq pts (mapcar '(lambda (x) (cons 10 (list (car x) (cadr x))))<br />       pts<br />      )<br />   )<br />   (if tf<br />     (setq pts (cons '(70 . 1) pts)<br />    pts (cons (cons 90 (length pts)) pts)<br />     )<br />     (setq pts (cons (cons 90 (length pts)) pts))<br />   )<br />   (entmakex (append '((0 . "LWPOLYLINE")<br />         (100 . "AcDbEntity")<br />         (100 . "AcDbPolyline")<br />        )<br />       pts<br />      )<br />   )<br /> )

q3_2006

这个有用，收了！

xtdwynij

支持一下，虽然老是没有时间！{:soso_e113:}

laibinwu

请问entmake与entmakeX的区别 :dizzy:

Free-Lancer

laibinwu 发表于 2013-6-17 14:16
请问entmake与entmakeX的区别

Entmake 返回值

如果成功，则 entmake 返回定义数据的图元表。如果 entmake 无法创建图元，则返回 nil。

Entmakex 返回值

如果成功，则 entmakex 返回定义数据的图元表。如果 entmakex 无法创建图元，则返回 nil。

Lispboy

laibinwu 发表于 2013-6-17 14:16
请问entmake与entmakeX的区别

除了上面FL说的，还有，entmake成功，实体所属blockID和owerid 是当前空间对象. 而entmakex没有所属，需要你自己添加，可以放到当前空间，也可以放到任意一个BLOCK块容器里面。

dnbcgrass

1. (entmakex (append '((0 . "LWPOLYLINE")
   
2.                     (100 . "AcDbEntity")
   
3.                     (100 . "AcDbPolyline")
   
4.                   )
   
5.                   pts
   
6.           )
   
7. )
   
8. ;改为如下，是否要好一点点
   
9. (entmake (cons '(0 . "LWPOLYLINE")
   
10.             (cons '(100 . "AcDbEntity")
    
11.                (cons '(100 . "AcDbPolyline")
    
12.                      pts
    
13.                )
    
14.             )
    
15.          )
    
16. )
    

复制代码

XDSoft

dnbcgrass 发表于 2013-6-17 18:20

:D 这样写就是太累了，对于构造很小的表来说，APPEND和CONS差距应该在微妙级别的。如果要APPEND的表很多呢，为了输入不累，

用论坛上函数发布那个，XD::List:Append
(XD::List::Append '((0 . "LWPOLYLINE") (100 . "AcDbEntity") (100 . "AcDbPolyline")) pts)

http://bbs.xdcad.net/forum.php?mod=viewthread&tid=668830 看看这个帖子。

laibinwu

Free-Lancer 发表于 2013-6-17 15:01
Entmake 返回值

如果成功，则 entmake 返回定义数据的图元表。如果 entmake 无法创建图元，则返回 nil ...

则 entmake 返回定义数据的图元表。如果 entmake 无法创建图元，则返回 nil。
则 entmakex 返回定义数据的图元表。如果 entmakex 无法创建图元，则返回 nil。

按照你说的都一样啊

laibinwu

Lispboy 发表于 2013-6-17 16:14
除了上面FL说的，还有，entmake成功，实体所属blockID和owerid 是当前空间对象. 而entmakex没有所属，需 ...

学习了。谢谢

牢固

建议tf参数为dxf表，这样更为灵活！

1. ;;参数 pts = 点表 dxf = dxf组码值表
   
2. (defun XD::OBJ:MKPline (pts dxf /)
   
3.   (entmakex (append '((0 . "LWPOLYLINE")
   
4.                       (100 . "AcDbEntity")
   
5.                       (100 . "AcDbPolyline")
   
6.                      )
   
7.                     (list (cons 90 (length pts)))
   
8.                     (mapcar
   
9.                       '(lambda (x) (cons 10 x))
   
10.                       pts
    
11.                     )
    
12.                     dxf
    
13.             )
    
14.   )
    
15. )

;;参数 pts = 点表 dxf = dxf组码值表<br /> (defun XD::OBJ:MKPline (pts dxf /)<br />   (entmakex (append '((0 . "LWPOLYLINE")<br />                       (100 . "AcDbEntity")<br />                       (100 . "AcDbPolyline")<br />                      )<br />                     (list (cons 90 (length pts)))<br />                     (mapcar<br />                       '(lambda (x) (cons 10 x))<br />                       pts<br />                     )<br />                     dxf<br />             )<br />   )<br /> )

Free-Lancer

我的理解，entmake返回你给定的表，entmakex返回实体名，可以直接进行entget,vlax-ename->vla-ename后续操作来自: Android客户端