[求助]：为什么错了？

hi71400 · 发表于 2004-6-23 21:01:42

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

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

×

这是点选修改文字或属性的东东，可是不对，哪里错了？
(DEFUN C:AA ( / B TYP )
  (setq B (car (entsel)))
  (setq TYP (cdr (assoc 0 (entget B))))
  (IF (= TYP "INSERT")
(COMMAND "_.ATTEDIT" B )
  )
(IF (= TYP "TEXT")
(COMMAND "DDEDIT" B NIL)
  )
)

aidraft · 发表于 2004-6-23 21:42:13

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

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

×

[PHP]
(DEFUN C:AA (/ B TYP)
  (setq B (car (entsel)))
  (setq TYP (cdr (assoc 0 (entget B))))
  (IF (AND (= TYP "INSERT") (assoc 66 (entget B)))
(PROGN
   (INITDIA 1)
   (COMMAND "_.ATTEDIT" B)
)
  )
  (IF (MEMBER TYP '("TEXT" "MTEXT"))
(COMMAND "_.DDEDIT" B "")
  )
)
[/PHP]

aeo · 发表于 2004-6-24 00:18:18

最初由 aidraft 发布
[B][PHP]
(DEFUN C:AA (/ B TYP)
  (setq B (car (entsel)))
  (setq TYP (cdr (assoc 0 (entget B))))
  (IF (= TYP "INSERT")
(PROGN
   (INITDIA 1)
   (COMMAND "_.ATTEDIT" B)
)
  )
  (I... [/B]

判断一下"INSERT")带不带属性. dxf66

hi71400 · 发表于 2004-6-25 09:01:38

多谢了。不过，我没看懂(INITDIA 1) 是做什么的。

陌生人 · 发表于 2004-6-25 12:46:50

属性可能有多个，如果是点选修改，直接用nentsel不好么？程序也会更简单。
cad（200x版本）中双击文本，属性块就可以调用反应器编辑，和你写的功能实际已经重复了。而且双击功能更强大

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

[求助] [求助]：为什么错了？

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

相关帖子

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

相关帖子