社区 › 编程申请 › 请问有没有办法直接输入命令可以画一个矩形然后向内偏移3mm，并且填充。

664571221 发表于 2022-3-16 11:31:38

start4444 发表于 2021-4-15 18:22
(command "RECTANG" (setq p1 (getpoint)) (setq p2 (getcorner p1))"OFFSET" 3 (setq l (entlast)) (map ...

你好大佬 能不能选择多边形偏移，可以输入距离，然后中间填充，希望大佬看下

start4444 发表于 2022-3-16 12:16:05

664571221 发表于 2022-3-16 11:31
你好大佬 能不能选择多边形偏移，可以输入距离，然后中间填充，希望大佬看下

(command "OFFSET" (setq d# (if (setq d## (getdist (if d# (strcat "\n指定偏移距离<" (rtos d# 2 2) ">：") "\n指定偏移距离："))) d## d#)) (setq l (entsel "\n选择要偏移的对象：")) pause "" "hatch" "p" "ANSI31" 0.5 0 "s" l "l" "" "CHANGE" "l" "" "p" "c" 9 "")

lee50310 发表于 2023-5-25 18:03:15

本帖最后由 lee50310 于 2023-5-25 18:04 编辑

664571221 发表于 2022-3-16 11:31
你好大佬 能不能选择多边形偏移，可以输入距离，然后中间填充，希望大佬看下



這裡有請參考看看
http://bbs.mjtd.com/thread-187785-1-1.html

红豆沙煎焖子 发表于 2024-7-25 10:33:14

本帖最后由 红豆沙煎焖子 于 2024-7-25 10:34 编辑

(defun c:jx ()
(command "RECTANG" (setq p1 (getpoint)) (setq p2 (getcorner p1))(mapcar'*(mapcar'+ p1 p2)'(0.5 0.5 0.5)) "" "hatch" "p" "ANSI31"100 0 "s" l "l" "" "CHANGE" "l" "" "p" "c" 9 "")
)
小改了一下，可以变成矩形填充，不过还有边线

czb203 发表于 2024-7-30 10:01:29

start4444 发表于 2022-3-16 12:16
(command "OFFSET" (setq d# (if (setq d## (getdist (if d# (strcat "\n指定偏移距离：") "\n指定偏移距 ...

大佬，请教您一下，向外侧偏移如何写~

jenlin 发表于 2024-8-24 08:07:23

学习一下！

675513233 发表于 2025-1-5 00:14:32

start4444 发表于 2021-4-15 18:22
(command "RECTANG" (setq p1 (getpoint)) (setq p2 (getcorner p1))"OFFSET" 3 (setq l (entlast)) (map ...

可以不要填充吗？只要2个矩形 ，比如用户指定基点，然后输入矩形长度，宽度，偏移厚度。等到2个矩形

查看完整版本: 请问有没有办法直接输入命令可以画一个矩形然后向内偏移3mm，并且填充。