[求助]：我的程序，在14中好用，2004中为何不行？

tjtghtghtgh · 发表于 2006-2-27 23:14:29

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

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

×

我自编的量面积的小程序，在14中挺好，2004中不行，请教大侠。
程序如下
(defun c:mj ( / h1 p0  a t)
  (setvar "cmdecho" 1)
  (setvar "osmode" 0)

  (setq p0 (getpoint "\n选取面积区域内任一点"))
  (command "boundary"  p0  )
  (setq t (getstring "\n该区域正确吗<Y>"))
(command "" )
(setq a (entlast))
  (command "area" "o" a )
  (setvar "cmdecho" 0)
  (command "erase" a "")
  (setvar "osmode" 33)
)
先感谢了

ljpnb · 发表于 2006-2-28 08:17:52

(defun c:mj ( / h1 p0 a tt)
(setvar "cmdecho" 1)
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(setq p0 (getpoint "\n选取面积区域内任一点"))
(command "boundary" p0 )
(setq tt (getstring "\n该区域正确吗"))
(command "" )
(setq a (entlast))
(command "area" "o" a )
(entdel a)
(setvar "osmode" os)
(setvar "cmdecho" 0)
)

tjtghtghtgh · 发表于 2006-2-28 18:35:26

(entdel a)
删除这个实体，起到什么作用，不删为何出错？

ljpnb · 发表于 2006-2-28 18:41:42

你的程序不是(entdel a)的关系，是变量用了一个"T"，这个是不能用来当变量的，可能R14里可以。另外(entdel a)也是用来删除物体的

tjtghtghtgh · 发表于 2006-2-28 21:54:54

不知还有哪些变量限制？

ljpnb · 发表于 2006-3-1 07:43:12

逻辑运算符如T、nil
函数名
这些都不能用来当变量

tjtghtghtgh · 发表于 2006-3-3 23:16:25

最初由 ljpnb 发布
[B]逻辑运算符如T、nil
函数名
这些都不能用来当变量 [/B]

非常感谢，大侠能否推荐一本教科书，

rainlighter · 发表于 2007-2-14 22:30:29

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

[求助] [求助]：我的程序，在14中好用，2004中为何不行？

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

相关帖子