自贡黄明儒 发表于 4 天前

用entmake生成hatch太复杂

用entmake生成hatch太复杂，用苦大师的代码没成功。还是下面的代码好用
;;(T:MakeHatch4PTLst (list (list -500.0 -2000.0) (list 500.0 -2000.0) (list 500.0 0.0) (list -500.0 0.0)) "gravel" "0"30 2)
(defun T:MakeHatch4PTLst (WCSLst PatNam PatLay PatSca PatCol / E PT)
(setq        E (entmakeX
          (append
              (list '(0 . "LWPOLYLINE")
                  '(100 . "AcDbEntity")
                  '(100 . "AcDbPolyline")
                  (cons 90 (length WCSLst))
                  '(70 . 1)
              )
              (mapcar '(lambda (pt) (cons 10 pt)) WCSLst)
          )
          )
)
(vl-cmdf "-hatch" "_S" e "" "_CO" PatCol "." "_LA" PatLay "_P" PatNam PatSca 0 "")
)

sniper1111 发表于 4 天前

dbx填充求助
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=194196&fromuid=7329611
(出处: 明经CAD社区)
大师，帮我看看这个有可能实现吗，就是不打开cad文件就能给文件里的矩形框填充上。

czb203 发表于 4 天前

感谢黄大师的分享，又学到一招

xyp1964 发表于 4 天前

其实四点生成多段线和建立图层没必要搅和到一起
(defun MakeHatch (ss hpname hpscale hpang)
(command "-hatch" "p" hpname hpscale hpang "s" ss "" "")
(entlast)
)

caoyin 发表于 4 天前

给定边界，用VLA简单

xyp1964 发表于 4 天前

caoyin 发表于 2025-12-8 20:51
给定边界，用VLA简单

比 command -hatch 简单？
页: [1]
查看完整版本: 用entmake生成hatch太复杂