救命啊~高手来看看，急急急

songfu163

我画图到一半的时候发现平面图上的线在三维空间里是混乱的。。。。。

怎么样把所有的线对齐到一个平面上啊~

高手救命啊

小雨点儿

Z轴归零

xyp1964

2. (defun c:test ()
3.   (setq ss (ssget "X" '((0 . "CIRCLE,ELLIPSE,*LINE,ARC")))
4. i  -1
5.   )
6.   (while (setq s1 (ssname ss (setq i (1+ i))))
7.     (setq pt (vlax-curve-getstartPoint s1)
8.    y  (caddr pt)
9.     )
10.     (if (/= y 0.0)
11.       (command "move" s1 "" (list 0 0 y) (list 0 0 0))
12.     )
13.   )
14. )

(defun c:test ()   (setq ss (ssget "X" '((0 . "CIRCLE,ELLIPSE,*LINE,ARC"))) i  -1   )   (while (setq s1 (ssname ss (setq i (1+ i))))     (setq pt (vlax-curve-getstartPoint s1)    y  (caddr pt)     )     (if (/= y 0.0)       (command "move" s1 "" (list 0 0 y) (list 0 0 0))     )   ) )

songfu163

@@

能说的具体点么？我是编程小白......

z轴归零的具体操作？

songfu163

问题解决~非常好用~

谢谢大家了~

小雨点儿

把3楼的内容复制到记事本，另存为TEST.LSP文件复制到CAD的安装目录，在CAD里的  工具---加载应用程序  找到TEST.LSP文件，点击加载，关闭对话框，在命令行输入TEST命令即可。

weiqi

院长代码有误

起点归0了，端点没归0，反正把起点给加上去了~