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

yyz123121 · 发表于 2021-4-15 18:22

本帖最后由 yyz123121 于 2021-4-16 12:46 编辑

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

有个思路：
1.画出矩形来，可以任意两点，也可以输入尺寸，就像原有的矩形命令一样，矩形颜色随当前层；
2.选择已有的矩形，向内偏移3mm，产生新的矩形。
3.在两个矩形之间填充斜线，斜线颜色可以是250号色或者9号色。

不知道能不能实现。

start4444 · 发表于 2021-4-15 18:22

(command "RECTANG" (setq p1 (getpoint)) (setq p2 (getcorner p1)) "OFFSET" 3 (setq l (entlast)) (mapcar'*(mapcar'+ p1 p2)'(0.5 0.5 0.5)) "" "hatch" "p" "ANSI31" 0.5 0 "s" l "l" "" "CHANGE" "l" "" "p" "c" 9 "")

yyz123121 · 发表于 2021-4-16 12:45

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

谢谢，您帮我解决很多问题了！

dasha321 · 发表于 2021-6-25 23:39

请问，这个怎么用

yyz123121 · 发表于 2021-6-26 16:10

dasha321 发表于 2021-6-25 23:39
请问，这个怎么用

加到这里边直接输入命令
(Defun C:
。。。。。。。
(princ)
)

tigcat · 发表于 2021-6-26 20:58

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

大侠代码太精简了

dasha321 · 发表于 2021-6-26 21:04

yyz123121 发表于 2021-6-26 16:10
加到这里边直接输入命令
(Defun C:
。。。。。。。

谢谢大神回复

趣意人生 · 发表于 2021-9-16 10:03

收藏学习了！谢谢了！

Fengyi · 发表于 2021-10-30 15:57

收藏学习谢谢

yuyehuan · 发表于 2021-11-19 13:48

厉害，本帖对我有所启发

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

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

最佳答案