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. 如用于商业用途,请到官方购买正版软件,追究法律责任与“猿沐软件网”无关!
- 老师个人微信
- 微信扫一扫
-
- 设计课堂公众号
- 微信扫一扫
-
评论