用法
评论
建议
取 消
确 定
(defun entity:block (ss name insertionpoint / block) "将选择集、图元表、对象表创建为块。" (cond ((p:ename-listp ss) (setq ss (vla:objarray (mapcar (quote vlax-ename->vla-object) ss)))) ((p:vla-listp ss) (setq ss (vla:objarray ss))) ((p:picksetp ss) (setq ss (pickset->array ss)))) (setq block (vla-add (vla-get-blocks *doc*) (vlax-3d-point insertionpoint) name)) (vla-copyobjects *doc* ss block) (vla-insertblock *ms* (vlax-3d-point insertionpoint) (vla-get-name block) 1 1 1 0) (foreach obj (vlax-safearray->list ss) (vla-delete obj)) block)
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 767 个
函数库类别: 53 种
上传记录
刷新