请问有没有办法直接输入命令可以画一个矩形然后向内偏移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

学习一下！

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

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

本帖子中包含更多资源

本帖子中包含更多资源

点评