以下的程序怎样把指定第二点可以在屏幕上任意指定的功能加进去，同矩形命令默认的...
本帖最后由 李青松 于 2014-7-22 09:46 编辑以下的程序怎样把指定第二点可以在屏幕上任意指定的功能加进去，同矩形命令默认的那个功能。
(defun c:f3(/ osm p1 w)
(setq osm(getvar "osmode"))
(setvar "cmdecho" 0)
(setvar "osmode" 15359)
(initget 1)
(setq p1(getpoint"\n请指定矩形的插入点："))
(setq w(getstring "\n输入矩形的宽度高度，用逗号隔开(比如25,30):"))
(setvar "osmode" 0)
(command ".rectangle" p1 (strcat "@" w))
(setvar "osmode" osm)
(princ)
)
(defun c:f3(/ osm p1 w)
(setvar "cmdecho" 0)
(setq osm(getvar "osmode"))
(setvar "osmode" 15359)
(initget 1)
(setq p1 (getpoint "\n请指定矩形的插入点: "))
(if (= (setq w (getstring "\n输入矩形的宽度高度，用逗号隔开(比如25,30):")) "") (progn
(setq p2 (getcorner p1 "\n输入矩形另一角点: "))
(command ".rectangle" "non" p1 "non" p2)
)
(command ".rectangle" "non" p1 "non" (strcat "@" w))
)
(setvar "osmode" osm)
(setvar "CMDECHO" 1)
(princ)
)
本帖最后由 李青松 于 2014-7-22 09:48 编辑
以上程序并没有增加矩形命令默认的那个功能，第2点在屏幕上自由指定。
D:\LQS 是把动态输入打开的效果吧
页:
[1]