求助坐标生成

乔峰 · 发表于 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:00以前我在编程申请里有贴过,自己去找吧或者到下载中心下载冲模设计工具,里面也有这个功能

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

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:00以前我在编程申请里有贴过,自己去找吧

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

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

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

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

试一试这个..... ;=====================================
;点坐标输出
;编程 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 · 发表于 2004-9-19 10:19:00

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

账号		自动登录	找回密码
密码			注册