[求助]：如何替换图元的数据？？

浪奔 · 发表于 2005-10-14 16:43:07

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

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

×

从一个图形文件中提取一个元素的数据，

例如：'((0 . "CIRCLE")  (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbCircle") (10 839.718 503.022 0.0) (40 . 189.566) (210 0.0 0.0 1.0))

我想在别的图中调用这个图形
能否这样？

(setq a '(0 . "CIRCLE")
b '(100 . "AcDbEntity")
c '(67 . 0)
      d '(410 . "Model")
      e '(8 . "0")
f '(100 . "AcDbCircle")
      g '(10 839.718 503.022 0.0)
      h '(40 . 189.566)
      i  '(210 0.0 0.0 1.0)
)
(entmake '( a b c d e f g h i ))

似水无痕 · 发表于 2005-10-14 17:20:47

(setq a (list '(0 . "CIRCLE") '(100 . "AcDbEntity") '(67 . 0) '(410 . "Model")
'(8 . "0") '(100 . "AcDbCircle") '(10 839.718 503.022 0.0)
'(40 . 189.566) '(210 0.0 0.0 1.0))
)
(entmake a)

浪奔 · 发表于 2005-10-14 21:16:23

非常感谢！

如果我只想将其中的一项赋值，

例如将其中的(100 . "AcDbEntity")指定为bb

那么,下面的列表还可以生成图元吗？
(setq a (list '(0 . "CIRCLE") bb '(67 . 0) '(410 . "Model")
'(8 . "0") '(100 . "AcDbCircle") '(10 839.718 503.022 0.0)
'(40 . 189.566) '(210 0.0 0.0 1.0))
)
(entmake a)

似水无痕 · 发表于 2005-10-14 22:12:07

(setq a '(0 . "CIRCLE")
b '(100 . "AcDbEntity")
c '(67 . 0)
d '(410 . "Model")
e '(8 . "0")
f '(100 . "AcDbCircle")
g '(10 839.718 503.022 0.0)
h '(40 . 189.566)
i '(210 0.0 0.0 1.0)
)
(entmake (list a b c d e f g h i ))
你说的是这个意思么？

浪奔 · 发表于 2005-10-15 10:18:30

正是这个意思，谢谢指点!

hy_rxiao · 发表于 2005-10-16 11:11:26

没区别

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

[求助] [求助]：如何替换图元的数据？？

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

相关帖子

没区别