请问这种两点填充怎么写代码呀？

sbwdx · 发表于 2019-10-17 15:18:42

代码里面的填充，图案我是可以换的，主要用来画剖面，钢筋混凝土，石膏板，木板等等，请各位老师帮忙一下

start4444 · 发表于 2019-10-17 15:18:43

(defun c:tt5 ()
(setq p1 (getpoint"\n起点:") p2 (getcorner p1"\n终点:"))
(command "RECTANG" "non" p1 "non" p2 "HATCH" "p" "ANSI31" 500 0 "s" (setq rc (entlast)) "" "ERASE" rc "")
(princ)
)

要什么填充自己改："ANSI31" 500 0 =》填充名比例角度

sbwdx · 发表于 2019-10-18 10:21:08

start4444 发表于 2019-10-17 17:00
(defun c:tt5 ()
(setq p1 (getpoint"\n起点:") p2 (getcorner p1"\n终点:"))
(command "RECTANG" "non ...

谢谢啦，可以了

sbwdx · 发表于 2019-10-24 13:40:29

sbwdx 发表于 2019-10-18 10:21
谢谢啦，可以了

亲，可以让这个填充图案在一个新建图层上面嘛颜色为250色？

start4444 · 发表于 2019-10-24 18:17:05

sbwdx 发表于 2019-10-24 13:40
亲，可以让这个填充图案在一个新建图层上面嘛颜色为250色？

(defun c:tt5 (/ p1 p2 rc)
(if (null (tblsearch "layer" "layname"))
(command "_layer" "m" "layname" "c" "250" "" ""))
(setq p1 (getpoint"\n起点:") p2 (getcorner p1"\n终点:"))
(command "RECTANG" "non" p1 "non" p2 "HATCH" "p" "ANSI31" 500 0 "s" (setq rc (entlast)) "" "ERASE" rc "")
(princ)
)

layname = 图层名

sbwdx · 发表于 2019-10-25 11:59:21

start4444 发表于 2019-10-24 18:17
(defun c:tt5 (/ p1 p2 rc)
(if (null (tblsearch "layer" "layname"))
(command "_layer" "m" "lay ...

谢谢，可以啦

sdbaijiao · 发表于 2019-10-27 09:38:09

谢谢start4444，设定几个常用的填充图案，方便了很多。

红豆沙煎焖子 · 发表于 2024-8-14 11:58:57

start4444 发表于 2019-10-24 18:17
(defun c:tt5 (/ p1 p2 rc)
(if (null (tblsearch "layer" "layname"))
(command "_layer" "m" "lay ...

您好，我测试了下功能很不错，但是我的对话框的提示文字显示乱码，想和您请教一下这是什么原因呢？生成的图层也是乱码

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

[提问] 请问这种两点填充怎么写代码呀？

最佳答案