用法
评论
建议
取 消
确 定
(defun entity:add-entitys-to-block (block ss / lst mat) "添加选择集到块定义。" (setq lst (pickset->vlalist ss) mat (entity:reference->definition block) mat (vlax-tmatrix (append (mapcar (quote append) (car mat) (mapcar (quote list) (cadr mat))) (quote ((0.0 0.0 0.0 1.0)))))) (foreach obj lst (vla-transformby obj mat)) (vla-copyobjects (std:active-document) (vla:objarray lst) (vla-item (vla-get-blocks (std:active-document)) (vla-get-name block))) (foreach obj lst (vla-delete obj)) (vla-regen (std:active-document) acallviewports))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 733 个
函数库类别: 51 种
上传记录
刷新
冀公网安备 13050302000400号