[求助]：lisp坐标生成点

ykwater · 发表于 2007-4-3 21:58:36

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

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

×

给定点的xyz坐标，生成点。代码如下，但总是出错。请高手指教。
entx enty entz分别为点的xyz坐标
(setq entxyz (list 10 entx enty entz))
(entmake '((0 . "point")
   (100 . "AcDbEntity")
               (8 . "GCD")
               (100 . "AcDbpoint")
               (entxyz)
   ;(210 0.0 0.0 1.0)
   ;(50 . 0.0)
   )
)

Underway · 发表于 2007-4-3 22:06:18

(entmake
(list
'(0 . "point")
'(100 . "AcDbEntity")
'(8 . "GCD")
'(100 . "AcDbpoint")
entxyz
;(210 0.0 0.0 1.0)
;(50 . 0.0)
)
)

ykwater · 发表于 2007-4-4 18:29:43

谢谢underway

li809 · 发表于 2007-4-14 23:07:55

看不明白？

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

[求助] [求助]：lisp坐标生成点

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

相关帖子