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

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

如题， 用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 static/image/common/back.gif
(command "_rectang" (setq P1 (getpoint"\n指定起点" )) (setq P2 (getcorner P1 "\n指定另一角点")))

正解，要的就是这种效果！
页: [1]
查看完整版本: lisp中用 command “rectang“ 命令时怎么不显示 矩形的引线框？