[LISP程序]：offset到当前层程序

conn · 发表于 2004-4-1 21:55:05

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

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

×

(defun c:of( / clayer ent)
  (setq clayer (getvar "clayer"))
  (setq ent (entlast))
  (command "_.offset")
  (while (/= (getvar "cmdactive") 0)
(command pause)
  )
  (while (setq ent (entnext ent))
(command "_.change" ent "" "p" "la" clayer "")
  )
  (princ)
)

来自明经meflying

陌生人 · 发表于 2004-4-2 00:35:56

是你写的么？我在明经那里先看到这个程序的哦
如果是别人的，应该注明引用了谁编写的程序，这是对别人的劳动成果的尊重！！！

conn · 发表于 2004-4-2 07:42:02

更好的按陌生人的改进

[program]
(defun c:text( / clayer ent)
  (setvar "cmdecho" 1)
  (setq clayer (getvar "clayer"))
  (setq ent (entlast))
  (command "_.offset")
  (while (/= (getvar "cmdactive") 0)
(command pause)
  )
  (while (setq ent (entnext ent))
(command "_.change" ent "" "p" "la" clayer "")
  )
  (princ)
)
[/program]

snsj · 发表于 2004-4-2 08:24:43

你试试看用取消退出的时候会不会到当前层～～～
直观点
[php]
(defun c:cs(/ dst ent)
  (setvar "cmdecho" 1)
  (if (null(setq dst (getdist(strcat "\n输入偏移距离<目前为"
(rtos(getvar "OFFSETDIST")2 0)">:"))))
(setq dst (getvar "OFFSETDIST")))
  (setq ent (entsel))
  (while (vl-cmdf "_.offset" dst ent pause "")
(vl-cmdf "_.change" (entlast) "" "p" "la" (getvar "clayer") "")
(setq ent(entsel))(if (null ent)(exit))
  )(princ)
)
[/php]

snsj · 发表于 2004-4-2 09:45:57

一步一转化，退出也没事，注意上面的VL-CMDF是不能用COMMAND替换的，也就是只能在2000＋运行，这里就体现VL-CMDF比COMMAND的优越性了～～～

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

[LISP程序]：offset到当前层程序

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

相关帖子