乔峰 发表于 2004-9-14 21:26:00

求助坐标生成

各位大侠，我需要一个坐标生成程序，就是找到图中所有的圆点，给编上号以后自动找到坐标生成一个表格，在此拜托各位了

xyp1964 发表于 2004-9-15 01:02:00

上传一个dwg文件！

spring 发表于 2004-9-15 07:58:00

以前我在编程申请里有贴过,自己去找吧


或者到下载中心下载冲模设计工具,里面也有这个功能

NetBee 发表于 2004-9-15 13:22:00

spring发表于2004-9-15 7:58:00static/image/common/back.gif以前我在编程申请里有贴过,自己去找吧



或者到下载中心下载冲模设计工具,里面也有这个功能

<BR>请人帮助，还要别人自己找？是不是有点夸张了!!

spring 发表于 2004-9-15 14:12:00

已经告诉他有现成的程序,自己搜索就好拉.


难不成还要把程序去找出来再送给他???


自己动手丰衣足食

meworld 发表于 2004-9-15 15:42:00

你所说的圆点指什么啊？圆心吗？说明白点，我帮你做一个。

乔峰 发表于 2004-9-16 21:51:00

谢谢各位大侠，在SPRING的帮助下我己经能用了，不过真诚的感谢大家

meflying 发表于 2004-9-17 08:16:00

NetBee发表于2004-9-15 13:22:00static/image/common/back.gif以前我在编程申请里有贴过,自己去找吧



或者到下载中心下载冲模设计工具...


都告诉他在编程申请里了,只是让楼主自己找一下,好象不过分吧,而且他是帮助人,不是请人帮助


倒是你的话有点夸张,还有你的表情贴图,好象过分了点...

ljcgq 发表于 2004-9-19 10:16:00

<TABLE class=tablebody2 style="TABLE-LAYOUT: fixed; WORD-BREAK: break-all" width="90%" border=0>
<TBODY>
<TR>
<TD style="FONT-SIZE: 9pt; LINE-HEIGHT: 12pt" width="100%"><IMG alt=发贴心情 src="http://www.mjtd.com/bbs/skins/default/topicface/face1.gif" border=0>        <B></B><BR>试一试这个.....



;=====================================<BR>;点坐标输出<BR>;编程 ljc <BR>;=====================================<BR>(defun c:hh()<BR>       (setq ss (ssget '((0 . "point")) ))<BR>       (setq zg(getint "请输入字高"))<BR>       (setq pp(getpoint "请选择位置"))<BR>       (setq ppx(car       pp))<BR>       (setq ppy(cadr pp))


       (setq n (sslength ss))<BR>       (setq a 0) <BR>       (setq b 0)<BR>       (repeat n<BR>                       (setq mz (ssname ss a))<BR>                       (setq q(entget mz))<BR>                       (setq pp1(list ppx (- ppy b)))<BR>                       (setq pp2(list (+ ppx (* 10 zg)) (- ppy b)))       <BR>                       (setq pp3(list (+ ppx (* 30 zg)) (- ppy b)))       <BR>                       (setq pp4(list (+ ppx (* 50 zg)) (- ppy b))) <BR>        <BR>                       (setq qd1(assoc 10 q))<BR>                       (setq qd(cdr qd1) ) <BR>                       <BR>                       (setq qdx (car qd))<BR>                       (setq qdy (cadr qd))<BR>                       (setq qdz(caddr qd))


                       <BR>                       (command "text" "j" "tc" qd       zg 0 a "")<BR>                       (command "text" "j" "tl" pp1 zg 0 a "")<BR>                       (command "text" "j" "tl" pp2 zg 0 qdx "")<BR>                       (command "text" "j" "tl" pp3 zg 0 qdy "")<BR>                       (command "text" "j" "tl" pp4 zg 0 qdz       "")<BR>                       (setq b (+ b (* zg 2)))<BR>                       (setq a (+ a 1))<BR>       )


       <BR>        )<BR>

</TD></TR></TBODY></TABLE>

ljcgq 发表于 2004-9-19 10:19:00

<A href="http://www.mjtd.com/bbs/dispbbs.asp?boardid=25&amp;star=2&amp;replyid=30398&amp;id=21312&amp;skin=0&amp;page=1" target="_blank" >http://www.mjtd.com/bbs/dispbbs.asp?boardid=25&amp;star=2&amp;replyid=30398&amp;id=21312&amp;skin=0&amp;page=1</A>
页: [1]
查看完整版本: 求助坐标生成