求助坐标生成

乔峰

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

xyp1964

上传一个dwg文件！

spring

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


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

NetBee

spring发表于2004-9-15 7:58:00以前我在编程申请里有贴过,自己去找吧 或者到下载中心下载冲模设计工具,里面也有这个功能

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

spring

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


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


自己动手丰衣足食

meworld

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

乔峰

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

meflying

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



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

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


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

ljcgq

试一试这个..... ;===================================== ;点坐标输出 ;编程 ljc ;===================================== (defun c:hh() (setq ss (ssget '((0 . "point")) )) (setq zg(getint "请输入字高")) (setq pp(getpoint "请选择位置")) (setq ppx(car pp)) (setq ppy(cadr pp)) (setq n (sslength ss)) (setq a 0) (setq b 0) (repeat n (setq mz (ssname ss a)) (setq q(entget mz)) (setq pp1(list ppx (- ppy b))) (setq pp2(list (+ ppx (* 10 zg)) (- ppy b))) (setq pp3(list (+ ppx (* 30 zg)) (- ppy b))) (setq pp4(list (+ ppx (* 50 zg)) (- ppy b))) (setq qd1(assoc 10 q)) (setq qd(cdr qd1) ) (setq qdx (car qd)) (setq qdy (cadr qd)) (setq qdz(caddr qd)) (command "text" "j" "tc" qd zg 0 a "") (command "text" "j" "tl" pp1 zg 0 a "") (command "text" "j" "tl" pp2 zg 0 qdx "") (command "text" "j" "tl" pp3 zg 0 qdy "") (command "text" "j" "tl" pp4 zg 0 qdz "") (setq b (+ b (* zg 2))) (setq a (+ a 1)) ) )

ljcgq

http://www.mjtd.com/bbs/dispbbs.asp?boardid=25&star=2&replyid=30398&id=21312&skin=0&page=1