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

sbwdx

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

start4444

(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

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

谢谢啦，可以了

sbwdx

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

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

start4444

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

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

谢谢，可以啦

sdbaijiao

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