CAD快速填充插件
(defun c:ex1()
(vl-load-com)
(setq acadobject (vlax-get-acad-object))
(setq acaddocument(vla-get-activedocument acadobject))
(setq mspace(vla-get-modelspace acaddocument))
(setq patternname "ansi31")
(setq patterntype 0)
(setq bassociativity :vlax-true)
(setq hatchobj(vla-addhatch mspace patterntype patternname bassociativity))
(setq center(vlax-make-safearray vlax-vbdouble '(0 . 2)))
(vlax-safearray-fill center '(30 30 0))
(setq radius 10)
(setq outerloopl (vla-addcircle mspace center radius))
(setq outerloop (vlax-make-safearray vlax-vbobject '(0 . 0)))
(vlax-safearray-fill outerloop (list outerloopl))
(vla-appendouterloop hatchobj outerloop)
(vla-evaluate hatchobj)
(vla-regen acaddocument :vlax-true)
(princ)
)
1. 如有链接无法下载、失效或广告，请联系QQ：3392178029 处理！
2. 本站的所有资源为购买、网络收集，或者用户投稿的资源，版权归原作者及网站所有!
3. 如若侵犯了您的权利，请及时联系站长删除!
4. 本站提供的资源，都不包含技术服务请大家谅解！
5. 此软件“仅限学习交流，不能用于商业用途”！
6. 如用于商业用途，请到官方购买正版软件，追究法律责任与“猿沐软件网”无关！
2. 本站的所有资源为购买、网络收集，或者用户投稿的资源，版权归原作者及网站所有!
3. 如若侵犯了您的权利，请及时联系站长删除!
4. 本站提供的资源，都不包含技术服务请大家谅解！
5. 此软件“仅限学习交流，不能用于商业用途”！
6. 如用于商业用途，请到官方购买正版软件，追究法律责任与“猿沐软件网”无关！
- 老师个人微信
- 微信扫一扫
-
- 设计课堂公众号
- 微信扫一扫
-
评论