用法
评论
建议
取 消
确 定
(defun m:coord-chg (pt-wcs o-ucs o-ang / pt1a x y z) (setq pt1a (mapcar (quote -) pt-wcs o-ucs)) (setq x (car pt1a)) (setq y (cadr pt1a)) (list (+ (* x (car o-ang)) (* y (cadr o-ang))) (- (* y (car o-ang)) (* x (cadr o-ang))) 0))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 733 个
函数库类别: 51 种
上传记录
刷新