填充函数

cable2004 · 发表于 2013-1-19 12:14:16

(defun c:test ( / acdoc acblk acspc block hobj obj1 obj2 )
  (vl-load-com)
  (setvar "cmdecho" 0)
  (or *acad* (setq *acad* (vlax-get-acad-object)))
  (or *acdoc* (setq *acdoc* (vla-get-activedocument *acad*)))
  (setq space (if (= 1 (getvar 'cvport))
                     (vla-get-paperspace *acdoc*)
                     (vla-get-modelspace *acdoc*)
                     )
         )
(setq a (car (entsel "\n选择封闭边界:")))
(vla-hatch a "ANSI38" 10  2 "0")
(princ)
)
(defun vla-hatch (en a b c d /)
  (setq en-vl (vlax-ename->vla-object en))
  (setq hatch (vla-addhatch space achatchpatterntypepredefined a :vlax-false 0))
  (vlax-invoke hatch 'appendouterloop (list en-vl))
  (vlax-put-property hatch 'patternscale b);比例
  (vlax-put-property hatch 'color c);颜色
  (vlax-put-property hatch 'layer d);图层
  (vla-evaluate hatch)
  (vla-delete en-vl)
  )

zzc83 · 发表于 2013-1-20 22:45:26

以前论坛里面有个以选择图元当填充图案的，好像差不多

lidaxiu · 发表于 2013-1-21 19:09:37

这个如果对封闭图形不能批量填充的话，好话意义不是太大吧？？？

cable2004 · 发表于 2013-1-21 19:20:34

起点，终点加直线，生成面域，再填充图案，再删除直线面域不就可以了。我只是提供一个填充的子函数而已。

xiaoyuzj-503 · 发表于 2013-5-28 23:12:56

感谢楼主分享。收藏了

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

[源码] 填充函数

本帖子中包含更多资源

评分