huanghanyi
发表于 2008-11-13 21:46:00
Q:714168925知道用的教下
sy100
发表于 2008-11-20 13:17:00
谢谢提供！下载试用。
cgz314
发表于 2008-11-23 22:11:00
<p>请教使用方法！谢谢</p><p>E-mail:cgz314@163.com</p>
cmxtmq
发表于 2008-11-24 10:50:00
请问楼主你这个软件适合于那个版本的CAD软件啊？2004的能否使用呢？
nt1070
发表于 2009-3-5 17:42:00
太有用了，高人
孟紫仪
发表于 2009-3-16 21:02:00
<p>各位有谁会了啊</p><p>教一下我拉</p>
cashzx
发表于 2009-3-23 21:37:00
楼主，辛苦了
wangyuran005
发表于 2009-4-11 14:32:00
好东东大家顶起来
gongbing2508
发表于 2009-4-12 09:26:00
<p>我自己写的第一个LSP程序，加载后运行DZB，然后点取需要的坐标点，能输出该点的XYZ坐标，但还不会自定义输出文件，学习中</p><p>(defun c:dzb()<br/> (graphscr)<br/> (setvar "osmode" 16255)<br/> (princ "\n开始点取等高线上的坐标点:")<br/> (setq a1 1)<br/> (setq count 1)<br/> (setq Fn (getstring T "请输入文件名："))<br/> (setq Fname(strcat "f:\\" fn ".txt"))<br/> (setq file1 (open Fname "a"))<br/> (while (> count 0)<br/> (setq p0 (getpoint "\n点取等高线上的点:"))<br/> (setq x1 (car p0)<br/> y1 (cadr p0)<br/> z1 (caddr p0)<br/> )<br/> (setq count z1)<br/> (setq str1 (strcat (itoa a1)<br/> ","<br/> " "<br/> ","<br/> (rtos x1 2 3)<br/> ","<br/> (rtos y1 2 3)<br/> ","<br/> (rtos z1 2 3)<br/> )<br/> )<br/> <br/> (write-line str1 file1)<br/> (setq a1 (1+ a1))<br/> )<br/> (close fp1)</p><p> )</p>
8wy1655977
发表于 2009-7-25 00:17:00
dddddddddddddddddddddddddddddd