用法
评论
建议
取 消
确 定
(defun entity:addhatch (outarray inarray name / hatchobj) "创建填充。outArray:外边界对象表,inArray:内边界对象表,name:充填名称" "填充体对象" (setq hatchobj (vla-addhatch (std:model-space) achatchpatterntypepredefined name :vlax-true)) (vla-appendouterloop hatchobj (vla:objarray (mapcar (quote vlax-ename->vla-object) outarray))) (if inarray (vla-appendinnerloop hatchobj (vla:objarray (mapcar (quote vlax-ename->vla-object) inarray)))) (vla-put-patternscale hatchobj 40) hatchobj)
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 767 个
函数库类别: 53 种
上传记录
刷新