songfu163 发表于 2005-11-22 23:59:00

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

<P>我画图到一半的时候发现平面图上的线在三维空间里是混乱的。。。。。</P>
<P>怎么样把所有的线对齐到一个平面上啊~</P>
<P>高手救命啊</P>

小雨点儿 发表于 2005-11-23 12:28:00

Z轴归零

xyp1964 发表于 2005-11-23 13:23:00

(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 发表于 2005-11-23 14:26:00

<P>@@</P>
<P>能说的具体点么？我是编程小白......</P>
<P>z轴归零的具体操作？</P>

songfu163 发表于 2005-11-23 19:03:00

<P>问题解决~非常好用~</P>
<P>谢谢大家了~</P>

小雨点儿 发表于 2005-11-23 19:28:00

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

weiqi 发表于 2012-12-29 00:08:22

院长代码有误

起点归0了，端点没归0，反正把起点给加上去了~
页: [1]
查看完整版本: 救命啊~高手来看看，急急急