lisp中用 command “rectang“ 命令时怎么不显示矩形的引线框？

gcho · 发表于 2016-7-21 21:32:18

如题，用command调用 “ectang“ 命令时怎么不显示矩形的引线框呢？
(command "_rectang" (setq P1 (getpoint "\n指定起点" )) (setq P2 (getpoint P1 "\n指定另一角点" )))
也只能在指定另一角点是有个引线，但还是不能像在CAD中直接画矩形时那么直观地看到矩形框中的范围。
求解……

danxingpen · 发表于 2016-7-22 09:35:51

(command "_rectang" (setq P1 (getpoint "\n指定起点" )) (setq P2 (getcorner P1 "\n指定另一角点")))

maiko · 发表于 2016-7-21 23:12:43

只能用一个getpoint

自贡黄明儒 · 发表于 2016-7-22 08:26:04

(setq P2 (getpoint P1 "\n指定另一角点" ))
改为pauses

Sylvanas · 发表于 2016-7-22 08:35:10

本帖最后由 Sylvanas 于 2016-7-22 08:36 编辑

试试这个

(command "rectang" (setq p1 (getpoint)) pause)

gcho · 发表于 2016-7-22 16:07:23

danxingpen 发表于 2016-7-22 09:35
(command "_rectang" (setq P1 (getpoint "\n指定起点" )) (setq P2 (getcorner P1 "\n指定另一角点")))

正解，要的就是这种效果！

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

[讨论] lisp中用 command “rectang“ 命令时怎么不显示矩形的引线框？

相关帖子

[讨论] lisp中用 command “rectang“ 命令时怎么不显示 矩形的引线框？

相关帖子

[讨论] lisp中用 command “rectang“ 命令时怎么不显示矩形的引线框？