[求助]：怎么样才能把方格网十丝取坐标整数插入

blue · 发表于 2003-11-9 22:19:07

您需要登录才可以下载或查看，没有账号？立即注册

×

lisp里有没有这样的函数,在插入方格网十字丝的时候,比如:坐标为100,100。我在屏幕上点取这个点周围的任意一个位置，十字丝以100，100整数插入。

Tong · 发表于 2003-11-10 01:16:40

周围的范围有多大呢？（120 120） & （195 195）？

blue · 发表于 2003-11-10 21:14:41

最初由 Tong 发布
[B]周围的范围有多大呢？（120 120） & （195 195）？ [/B]

如果是1:500的图,以模型空间50米为一个单位所组成的正方形,分成田字格四等分,四个角坐标控制四个区域,在所控制的区域里任意一个位置可以控制十字丝以整数插入.如果光标点在四个角坐标的对角线上,可以在程序里分配给某一个角点的坐标.

不知我说的明不明白?呵呵

zhynt · 发表于 2003-11-11 00:56:26

用网格捕捉啊。

blue · 发表于 2003-11-11 20:33:35

最初由 zhynt 发布
[B]用网格捕捉啊。 [/B]

晕

zhynt · 发表于 2003-11-12 09:32:22

最初由 blue 发布
[B]

晕 [/B]

你先别急着晕啊，我哪儿说得不对吗？

blue · 发表于 2003-11-12 20:32:59

最初由 zhynt 发布
[B]

你先别急着晕啊，我哪儿说得不对吗？ [/B]

我说的是地形图的方格网,讲究的是地理坐标,用方格网来控制地理坐标的位置.
如果方格网之间的距离是100或者1000米那怎么办?
我看到过其它在CAD平台上二次开发的,绘地形图软件可以取整数插入方格网.

aeo · 发表于 2003-11-13 00:19:57

就是那地形图上画小十字吧,很简单的:

;;;十字线长1600,要改就改下面的800
;;;层自己设吧
(defun c:fg( / li-x li-y p1 p2 x x1 x2 y y1 y2 creatline)
(defun creatline(p dis)
(entmake(list '(0 . "LINE")'(100 . "AcDbEntity")(cons 10(polar p pi dis))(cons 11(polar p 0 dis))))
(entmake(list '(0 . "LINE")'(100 . "AcDbEntity")(cons 10(polar p(* 1.5 pi)dis))(cons 11(polar p(/ pi 2)dis))))
)
(if(and
(setq p1(getpoint "\n选原点:"))
(setq p2(getcorner p1"\n范围:"))
)
(progn
(setq x1(car p2) x2(car p1)x(min x1 x2)
y1(cadr p2)y2(cadr p1)y(min y1 y2)
)
(setq dis(getdist "\n每格距离(50000)"))
(if(not dis)(setq dis 50000))
(while(<= x(max x1 x2))(setq li-x(cons x li-x) x(+ x dis)))
(while(<= y(max y1 y2))(setq li-y(cons y li-y) y(+ y dis)))
(command"undo""begin")
(foreach a li-x
(foreach b li-y(creatline (list a b)800))
)
(command"undo""end")
)))

命令名 FG

chenhang1203 · 发表于 2003-11-14 21:19:13

要是能自动标注出坐标就好了

Gxiaofeng · 发表于 2003-11-15 11:48:37

提取每个线的端点坐标不就行了

dlldll · 发表于 2003-11-16 20:30:44

最初由 blue 发布
[B]
我说的是地形图的方格网,讲究的是地理坐标,用方格网来控制地理坐标的位置.
如果方格网之间的距离是100或者1000米那怎?.. [/B]

其实你也别晕，下载小虾多。

blue · 发表于 2003-11-17 21:37:23

谢谢aeo,问题已经解决,虽然不是我想像的那样,但还是能用的.

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

[求助] [求助]：怎么样才能把方格网十丝取坐标整数插入