2013-10-11 明经 AutoLISP 编程(102918348) 群聊记录：我装了2014

明经快报

[tryhi]大海 16:12:32

悬赏2明经币求助

[q3_2006]q2 16:13:32

上图，你表达得不清楚。。。

[tryhi]大海 16:16:04

我在别的图使用
(setq a(ssget))
(command"_copybase" "0,0" a "")

也就是带基点复制，几点是0，0

[tryhi]大海 16:16:38

然后在别的图带基点粘贴，基点也是0，0，想粘贴之后窗口定位到图形上面

[VBALISPER]恐龙 16:21:09

zoom w 左上角点 右下角点

明经快报

[gdslqs]Leon 16:55:01

请教：用ssget选对象的是否，怎么返回点击点坐标？

[q3_2006]q2 16:55:52

getpoint

[gdslqs]Leon 16:56:58

我是问我用ssget选择了对象，怎么得到ssget使用时的点击点坐标

[q3_2006]q2 16:57:23

ssget不是点击。。。

entsel

是点击

[tryhi]大海 16:57:42

只能entsel

[VBALISPER]恐龙 16:57:45

想要左下角和右下角的坐标嘛

[gdslqs]Leon 16:57:45

你不晓得ssget可以点击吗？

[q3_2006]q2 16:59:38

不知道。。

[gdslqs]Leon 16:59:50

entsel可以返回点击位置，就是想知道ssget怎么返回点击位置

[q3_2006]q2 16:59:57

学的时间短，知道得少！

[gdslqs]Leon 17:00:12

ssget可点选，可框选

明经快报

[q3_2006]q2 17:10:44

ssget 怎么点。。你的代码怎么写的。。后面有参数吧。。

[gdslqs]Leon 17:12:11

ssget后面加";E"可点选

[kewyst]………… 17:13:02

[q3_2006]q2 17:13:29

o....没用过。。

[tryhi]大海 17:13:42

[gdslqs]Leon 17:14:29

这个问题我自己找到方法了，你也可以看看

ssnamex

[q3_2006]q2 17:14:53

什么方法。。

点击坐标？？怎么提取

[gdslqs]Leon 17:15:37

看函数说明

[q3_2006]q2 17:15:52

哪里看。。

[qqimg]201310/{0044692F-0FFC-F778-C330-3491392395E5}.jpg[/qqimg]

这里吗

[gdslqs]Leon 17:16:20

对

萧邦的夜曲 17:17:06

谁有arx中文函数说明

[q3_2006]q2 17:18:36

没看出来怎么提点击的坐标呀。。？？

lastpoint

[gdslqs]Leon 17:19:18

[qqimg]201310/{A3823409-9155-99B5-569F-E2804AF79A74}.jpg[/qqimg]

[q3_2006]q2 17:23:59

我点了6下。。怎么一块查。。。

[gdslqs]Leon 17:27:43

？

明经快报

[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对应的坐标信息呢?

明经快报

[weiqi]weiqi 23:48:03

[qqimg]201310/{F194E55F-E12B-1F09-7554-EA1D8640DB0E}.jpg[/qqimg]