绘制特定矩形

ADAM'S_APP · 发表于 2022-7-7 16:09:16

你好

虽然我的AutoCAD技能很高，但我还不知道如何指定矩形或正方形的尺寸。有人知道我在输入“rec”命令后需要遵循的提示吗？

最好的
亚当

ReMark · 发表于 2022-7-7 16:35:20

在我看来，还有几个其他的选择要快一点。

1）启动矩形命令，后跟“@”符号，然后是X和Y尺寸

2）如果启用了动态输入，请启动rectangle命令，然后是X和Y尺寸

ADAM'S_APP · 发表于 2022-7-7 16:43:50

正如nestly所指出的，绘制矩形有多种方法。如果你对另一个感兴趣，可以看看这个链接，在这里你可以看到两个自定义矩形lisp例程的示例。

http://www.cadtutor.net/forum/showthread.php?36713-矩形绘制LISP-%E2%80%93需要帮助

nestly · 发表于 2022-7-7 17:08:33

这是绘制矩形的另一个变体，但角度和偏移也被夹入

copy

; draw pits with 100mm walls
(setq oldsnap (getvar "osmode"))
(setq oldlayer (getvar "clayer")) 
(command "_layer" "n" "Design-Drainage-Pits" "c" 4 "Design-Drainage-Pits" "")
(setvar "clayer" "Design-Drainage-Pits")
(setq length (getreal "\nPlease enter length m eg 0.9: "))
(setq width (getreal "\nPlease enter width : "))
(setq pt1 (getpoint "\npick 1st point to place pit : "))
(setq pt2 (getpoint "\nPick 2nd point for orientation"))
(setvar "osmode" 0)
(setq pt7 (getpoint "\Pick pt on pit side : "))
(setq ang (angle pt1 pt2))
(setq ang5 (angle pt2 pt7))
(setq diffang (- ang ang5))
(if (> diffang 1.5707) 
(setq ang2 (- ang 1.570796))
(setq ang2 (+ ang 1.570796))
)
(setq ang3 (+ ang 3.1415926))
(setq ang4 (- ang 1.570796))
(setq pt3 (polar pt1 ang length))
(setq pt4 (polar pt3 ang2 width))
(setq pt5 (polar pt4 ang3 length))
(command "pline" pt1 pt3 pt4 pt5 "c")
(setq pt6 (polar pt1 ang 50.0))
(command "offset" 0.1 pt4 pt6 "")
(setvar "osmode" oldsnap)
(setvar "clayer" oldlayer)
(princ)

ReMark · 发表于 2022-7-7 17:10:00

很抱歉背驮到这个线程中。。。。。。。。。。
我们最近安装了2012架构，我在以上述选项2中提到的方式绘制矩形时遇到问题。这就是我一直在画它们的方式，我发现由于某种原因，它目前不起作用，这让我非常沮丧。。。。。。我打开了动态输入，可以输入第一个维度，然后当我点击下一个维度时，它完全忽略了它，并绘制了一个完全随机大小的矩形？！有什么想法吗？？？我将暂时使用矩形和维度选项。

提前感谢，

斯佩扎

[综合讨论] 绘制特定矩形

发表回复

精选推荐