Entmake LWPOLYLINE

Free-Lancer · 发表于 2013-6-17 07:46:36

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 Free-Lancer 于 2013-6-17 09:36 编辑

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

q3_2006 · 发表于 2013-6-17 07:58:35

这个有用，收了！

xtdwynij · 发表于 2013-6-17 09:22:34

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

laibinwu · 发表于 2013-6-17 14:16:53

请问entmake与entmakeX的区别 :dizzy:

Free-Lancer · 发表于 2013-6-17 15:01:30

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

Entmake 返回值

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

Entmakex 返回值

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

Lispboy · 发表于 2013-6-17 16:14:02

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

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

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

(entmakex (append '((0 . "LWPOLYLINE")
(100 . "AcDbEntity")
(100 . "AcDbPolyline")
)
pts
)
)
;改为如下，是否要好一点点
(entmake (cons '(0 . "LWPOLYLINE")
(cons '(100 . "AcDbEntity")
(cons '(100 . "AcDbPolyline")
pts
)
)
)
)

复制代码

XDSoft · 发表于 2013-6-17 18:43:14

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 · 发表于 2013-6-17 19:16:11

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

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

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

按照你说的都一样啊

laibinwu · 发表于 2013-6-17 19:16:53

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

学习了。谢谢

牢固 · 发表于 2013-6-17 20:37:03

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

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

Free-Lancer · 发表于 2013-6-17 21:02:05

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

账号		自动登录	找回密码
密码			立即注册

[选择集] Entmake LWPOLYLINE

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

点评