entmake lisp 对齐_求修改lisp程序，如何提取CAD中多个点的坐标，（本人想提取UCS坐标系）另外只需要提取X,Y值，不要Z...

答：我有提取CAD里的坐标到Excel表格的软件，可以永久使用的，你要吗？

答：(defun c:tqzb (/) (setq cm (getvar "cmdecho")) (setvar "cmdecho" 0) (if (setq wjm (getfiled "请指定要保存的坐标文件" "e:\\" "txt" 1)) (if (setq ssa (ssget '((0 . "LWPOLYLINE")))) (progn (setq fff (open wjm "w") n (sslength ssa)...

答：(setq a 30) ;角度 (setq a (/ (* 30 pi) 180))；转为弧度 (setq pt '(200 0 0)) ;ucs原点(注:相对WCS) (setq x (list (sin a) (cos a) 0.)) ;X向量(注:相对WCS) (setq y (list (cos a) (sin (- a)) 0.)) ;Y向量(注:相对WCS) (entmake (list '(0...

答：但是仅有两个点是无法确定唯一的坐标系的，以这两点的连线为轴会有无数个坐标系可以满足！ 三点确定一个平面，同样要确定唯一坐标系也是需要三点的！ 代码给你，如果第三点不确定，只能保证给定的两点转换后坐标是对的！ (defun c:ducs() (setq ...