[q3_2006]q2 17:47:57
看“导读”就成
[q3_2006]q2 17:50:40
要坐标转换,麻烦得狠。。
[xiaomm250][lisp_](car (entsel)) 17:51:03
你是和我说吗?
[q3_2006]q2 17:51:13
不然呢。。
nentsel
[cvbnm8888] 男人 17:52:01
entget 获得列表,assoc 10获得坐标
[q3_2006]q2 17:52:23
他要块内的。。
[cvbnm8888] 男人 17:52:29
cdr 一下,就是坐标了
[xiaomm250][lisp_](car (entsel)) 17:52:50
entget 获得列表,assoc 10获得坐标
这个办法我试验过了,但是有的图块的插入坐标距离离图块实在是太远了,我不得不放弃这个办法
[q3_2006]q2 17:53:01
图块。。内。。
[xiaomm250][lisp_](car (entsel)) 17:53:17
所以只能改成图块内了
[q3_2006]q2 17:57:01
这个方法更麻烦。。
还要懂矩阵。。
[xiaomm250][lisp_](car (entsel)) 17:57:44
那用什么办法简单呢?
[q3_2006]q2 17:58:32
改下块的插入点。。有现成代码用。。呵呵
[q3_2006]q2 17:59:57
点子很馊,但对你说的问题还是适用的。。
[xiaomm250][lisp_](car (entsel)) 18:01:47
但是问题是,如果我能知道图块的位置的话,我就不用改块的插入点了
[q3_2006]q2 18:02:15
位置当然能知道。。
你到底要什么
你是要插入点对吧。。
[xiaomm250][lisp_](car (entsel)) 18:03:34
我就是要给出一个块的名称,然后从建筑图上框选一下,然后知道这些块在建筑图的什么地方,但是建筑图上的块的插入点有时候距离块实在是太远了
[q3_2006]q2 18:03:56
不然就9点坐标的中心点。。这个不管插入点在那里。。
[xiaomm250][lisp_](car (entsel)) 18:04:41
我就是要给出一个块的名称,然后从建筑图上框选一下,然后知道这些块在建筑图的什么地方,但是建筑图上的块的插入点有时候距离块实在是太远了.要是块的插入点就在块的附近,我就可以直接以块的插入点画一个圆,然后我就知道块在什么地方了
[q3_2006]q2 18:04:43
真的。。这个和插入点有关吗。。我还要试试。。
[xiaomm250][lisp_](car (entsel)) 18:06:04
((-1 . ) (0 . "INSERT") (330 . )
(5 . "28D3") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "JJFM") (100 .
"AcDbBlockReference") (2 . "A$C0A754D48") (10 4.30761e+006 1.39318e+007 0.0)
(41 . 1.0) (42 . 1.0) (43 . 1.0) (50 . 4.47035e-007) (70 . 0) (71 . 0) (44 .
0.0) (45 . 0.0) (210 -3.33495e-027 -1.98181e-028 1.0)) 没有9点坐标的中心点
[q3_2006]q2 18:07:35
这个要求呀。。
[xiaomm250][lisp_](car (entsel)) 18:08:05
[@1434177703,@[q3_2006]q2] 什么意思
[q3_2006]q2 18:08:22
你一点不会呀。。LISP??
[xiaomm250][lisp_](car (entsel)) 18:08:33
会一点
但是不会太多
[xiaomm250][lisp_](car (entsel)) 18:17:42
[@1434177703,@[q3_2006]q2] 你的9点坐标是什么意思?没有组码是9的呀
[q3_2006]q2 18:18:57
块中心。。
[xiaomm250][lisp_](car (entsel)) 18:19:38
但是我弄的块是ssget得到的
[q3_2006]q2 18:20:34
(ssname ss i)
[q3_2006]q2 18:21:07
加个循环就行了。。
[xiaomm250][lisp_](car (entsel)) 18:21:25
[qqimg]201310/{5DA338C5-3781-0578-6A3D-1E1E7D908946}.jpg[/qqimg]
你这个颜色为什么不亮?
这个函数是你自定义的吧
[q3_2006]q2 18:21:48
ET函数。。
CAD当成
自定义了。。
你也要装ET才能用哟。。
[xiaomm250][lisp_](car (entsel)) 18:25:23
不能通过读取块内的图元的办法吗?
[q3_2006]q2 18:25:55
随你便,方法很多。
[xiaomm250][lisp_](car (entsel)) 18:26:19
我就是想获取块内的某个图元,然后得到这个图元的组码10
[q3_2006]q2 18:26:54
这个简单。难的坐标转换。。
nentsel
[xiaomm250][lisp_](car (entsel)) 18:27:18
那你给一个例子,我自己看看,一个连接吧
[q3_2006]q2 18:27:31
坐标转换我不会。。
没法给。。
子图元。。简单
[xiaomm250][lisp_](car (entsel)) 18:28:03
子图元如何弄?
[q3_2006]q2 18:28:16
坐标
(nentsel)
就行
[xiaomm250][lisp_](car (entsel)) 18:29:14
(ssname ss i)是图块,这个能解决吗
[q3_2006]q2 18:30:13
就是块。。但坐标不是WCS
块内坐标是独立的。。
你
怎么不明白
[q3_2006]q2 18:32:16
块内图元的原点是。。插入点。。。
[q3_2006]q2 18:34:47
这是你选的图元的坐标。。
顶点坐标 。。。
相对于插入点的。。
是个四边形。。
4个点
[xiaomm250][lisp_](car (entsel)) 18:36:22
插入点+相对点= 这样就解决问题了?
我感觉是
我试试看
[q3_2006]q2 18:43:32
nentsel
[q3_2006]q2 18:44:07
[qqimg]201310/{757B8816-F590-0A7E-D986-A2BD42599CC2}.jpg[/qqimg]怎么来的。。
[q3_2006]q2 18:45:37
也是个方法。。呵呵
换算也还简单
[q3_2006]q2 18:46:57
插入点。。
你自己算吧。。
[q3_2006]q2 18:49:15
你前面提取到了呀。。
[xiaomm250][lisp_](car (entsel)) 18:49:51
有的块提取到了,有的没提取到
[q3_2006]q2 18:52:21
没有顶点。。
[xiaomm250][lisp_](car (entsel)) 18:59:00
如何获取图块内某个图元的组码10对应的坐标信息呢? |