[求助]：关于实体选择的问题？？

ghl_729 · 发表于 2004-5-27 12:00:17

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

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

×

大家请看下面的小程序：
  （defun c:hui()
      (command  "line"  "0,0"  "100,100"  "")
      (setq e1 (entnext))
   (setq  ss ssadd)
   (ssadd e1 ss)
   (command  "circle" "0,0" 50 "")
   (setq e2 (entnext e1))
   (ssadd e2 ss)
  )
那位高手知道为什么当程序执行到 (setq e2 (entnext e1))时出错呢！
望指点

eachy · 发表于 2004-5-27 12:13:30

最初由 ghl_729 发布
[B]大家请看下面的小程序：
  （defun c:hui()
      (command  "line"  "0,0"  "100,100"  "")
      (setq e1 (entnext))
   (setq  ss ssadd)
   (ssadd e1 ss)
   (command  "circle" "0,0"... [/B]

为什么不用 (entlast) 呢？

hi71400 · 发表于 2004-6-3 15:27:45

（defun c:hui()
(command "line" "0,0" "100,100" "")
(setq e1 (entlast))
(setq ss ssadd)
(ssadd e1 ss)
(command "circle" "0,0" 50 "")
(setq e2 (entlast))
(ssadd e2 ss)
)

lsjjm · 发表于 2004-6-10 10:18:24

最初由 ghl_729 发布
[B]...那位高手知道为什么当程序执行到 (setq e2 (entnext e1))时出错呢！望指点 [/B]

1. 恐怕到第4行(setq ss ssadd)就出错了吧! 这是问题所在.
应该为: (setq ss (ssadd)).
2. 至于 (setq e1 (entnext)) , (setq e2 (entnext e1))只是逻辑意义不对,
程序句法没有错.

yjtdkj · 发表于 2004-6-11 20:55:19

3楼的说点有意义的好不好，不要跟着人家后面！！！

陌生人 · 发表于 2004-6-12 00:10:11

最初由 yjtdkj 发布
[B]3楼的说点有意义的好不好，不要跟着人家后面！！！ [/B]

人家整理一下也没什么不好

lsjjm · 发表于 2004-6-14 04:48:46

最初由陌生人发布
[B]人家整理一下也没什么不好 [/B]

关键是没有整理对: (setq ss ssadd) ??

陌生人 · 发表于 2004-6-14 19:39:49

最初由 lsjjm 发布
[B]

关键是没有整理对: (setq ss ssadd) ?? [/B]

哈哈，还真是的

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

[求助] [求助]：关于实体选择的问题？？

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

相关帖子

Re: [求助]：关于实体选择的问题？？

Re: [求助]：关于实体选择的问题？？