[求助]：急问。这个程序为什么不行？

clearlai · 发表于 2007-9-30 16:01:34

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

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

×

(defun c:oo(/ name oldlayer newlayer dis ent)
  (setq dis (* wblx 80))
  (command "offset" dis pause pause nil)
  (setq name (entget (entlast)))
  (setq oldlayer (assoc 8 name))
  (setq newlayer '(8 . R0))
  (subst newlayer oldlayer name)
  (entmod name)
  (princ)
  )
没有更改到层呀。层本就存在
Error:DXF 组不正确: (8 . R0)

xgr · 发表于 2007-9-30 16:17:51

(setq newlayer '(8 . "R0"))

zxq0220 · 发表于 2007-9-30 21:28:03

(setq newlayer '(8 . R0))
改成:
(setq newlayer (cons 8 R0))

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

[求助] [求助]：急问。这个程序为什么不行？

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

相关帖子