救助~怎样在一个命令按扭中这个命令的选项也加进去，使之能一次到位。

hrdzz · 发表于 2003-10-30 01:49:00

比如我在点选PEDIT这个命令按钮选择目标后，就会现一大堆的选项，但我只想用加宽这一个项，每次在键盘上去点W和回车好麻烦且很慢，所以请教各位是否有解决的方法，能将点W和回车两个动作集成到按钮里去，这样不但省去了麻烦也提高了工作效率。
在此谢谢大家了~~~``````

hrdzz · 发表于 2003-10-30 01:51:00

r0r · 发表于 2003-10-30 06:58:00

同求

BDYCAD · 发表于 2003-10-30 08:53:00

又是一句話的程序, 試試用這樣.
  使用方式執行后的第一步是選好要加寬的線. 再輸入加寬多少.

;BY BDYCAD
;DATA 2003-10-30
(DEFUN C:WW (/ LW A SW AS n SA)
  (setvar "cmdecho" 0)
  (SETQ LW (GETVAR "

LINEWID"))
  (SETQ A (ssget))
  (SETQ SW (GETREAL "\n輸入線寬:"))
  (setq as (sslength a))
  (setq n 0)
  (repeat as
(SETQ SA (CDR (ASSOC 0 (entget (ssname a N)))))
   (IF (= SA "LWPOLYLINE") (COMMAND "

EDIT" (ssname a N) "w" sw ""))
(IF (= SA "LINE") (COMMAND "

EDIT" (ssname a N) "" "w" sw "" ""))
(IF (= SA "ARC") (COMMAND "

EDIT" (ssname a N) "" "w" sw "" ""))
(setq n (1+ n))
  )
  (setvar "pliewid" lw)
  (setvar "cmdecho" 1)
  (PRINC)
)

hrdzz · 发表于 2003-10-30 17:24:00

谢谢，很好使的程序，但每次都要加载吧？嘿嘿，不要怪我太懒和太挑啊。能不能不用每次加载，而载能嵌入到命令按钮里最好，嘻嘻。
再次谢谢，3Q~~~`````

gzy · 发表于 2003-10-30 17:29:00

这样做有很大的局限，就象把其他选项都屏蔽了一样。
当然程序都是符合自己习惯而编写的，这样做也无可厚非。

hrdzz · 发表于 2003-10-30 17:30:00

我又试了一下非多段线，第一次用这个程序时会出现错误，再次用这个程序加宽同一目标虽说能完成加宽，但最后还是会出现“; 错误: AutoCAD 变量设置被拒绝: "pliewid" 0.0”这样的提示，请问能解决吗。

gzy · 发表于 2003-10-30 17:44:00

程序不能应用，望BDYCAD兄尽快解决。

hrdzz · 发表于 2003-10-30 17:57:00

我的意思是新建个按钮，把这段程序嵌入到里面去

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

救助~怎样在一个命令按扭中这个命令的选项也加进去，使之能一次到位。

补充一下，我用的是AutoCAD2004

我的意思是新建个按钮，把这段程序嵌入到里面去