用法
评论
建议
取 消
确 定
(defun entity:reference->definition (ent / a n) "计算块参照与块定义的变换矩阵" "返 回 值:3x3矩阵和向量组成的表" "示 例:(entity:Reference->Definition e)" (setq a (vla-get-rotation e) n (vla:getvalue (vla-get-normal e))) ((lambda (m) (list m (mapcar (quote -) (vla:-getvalue (vla-get-origin (vla-item (vla-get-blocks *doc*) (vla-get-name e)))) (matrix:mxv m (trans (vla:-getvalue (vla-get-insertionpoint e)) n 0))))) (matrix:mxm (list (list (/ 1.0 (vla-get-xscalefactor e)) 0.0 0.0) (list 0.0 (/ 1.0 (vla-get-yscalefactor e)) 0.0) (list 0.0 0.0 (/ 1.0 (vla-get-zscalefactor e)))) (matrix:mxm (list (list (cos a) (sin (- a)) 0.0) (list (sin a) (cos a) 0.0) (list 0.0 0.0 1.0)) (mapcar (quote (lambda (e) (trans e n 0 t))) (quote ((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))))))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 733 个
函数库类别: 51 种
上传记录
刷新
冀公网安备 13050302000400号