2013-05-03 明经 AutoLISP 编程(102918348) 群聊记录：看来得加入“查找”做为前缀才行

明经快报

[Lwcdgl]coming 16:26:23

(setq a(getreal " num1:"))
  (alert(strcat"num1=" (itoa a)))

我错了吗

那里错了?

[x_s_s_1]生无可恋 16:28:01

(setq a(getreal " num1:"))
  (alert(strcat"num1=" (rtos a 2 2)))

[Lwcdgl]coming 16:29:06

怎么要用到RTOS了

[x_s_s_1]生无可恋 16:30:12

getint，itoa

[Lwcdgl]coming 16:30:28

哦,谢谢,明白了

[x_s_s_1]生无可恋 16:30:34

数据类型不同

[weiqi]weiqi 16:34:36

建立两个视窗 怎么调节让两个视窗不一样大？

明经快报

[kwok][kwok]巭隼 16:49:08

[qqimg]oldimg/{CED2FF26-C477-96AA-7CED-A6B7B3A98ED4}.jpg[/qqimg]同时选多个对象阵列后怎么选取最后的集?
如图,阵列了4个后想选取最后红色的集 再阵列

[x_s_s_1]生无可恋 16:55:04

难啊

有个办法，不阵列，用拷贝

[x_s_s_1]生无可恋 16:56:28

变通下

[328302216]小莫 16:56:31

用ssget“p”也不行吗？

[x_s_s_1]生无可恋 16:56:40

不行

选择的应该是原始对象

[x_s_s_1]生无可恋 16:57:42

阵列实际上不就是拷贝

明经快报

[kwok][kwok]巭隼 18:00:22

拷贝也是一种方式，

[雨的节奏][雨的节奏] 18:00:31

[qqimg]oldimg/{A73ACE75-DBD0-8257-71E2-C204F1F1D780}.jpg[/qqimg]

[328302216]小莫 18:02:15

阵列用vl函数好简单的说，才两句就搞定了

[kwok][kwok]巭隼 18:03:17

[x_s_s_1]生无可恋 18:07:09

写了个返回最后一个选择集的

需要不？

[x_s_s_1]生无可恋 18:07:45

放到论坛里

将帖子链接给我

[【KAIXIN】] [【KAIXIN】]炫翔 18:10:11

[【KAIXIN】] [【KAIXIN】]炫翔 18:14:56

[x_s_s_1]生无可恋 18:20:25

[qqimg]oldimg/{6C8AFCDB-FE18-B3C5-8026-84167D55199C}.gif[/qqimg]

没卵用，纯练习

[kwok][kwok]巭隼 18:26:23

[kwok][kwok]巭隼 18:27:40

没在论坛发贴呢

[x_s_s_1]生无可恋 18:27:53

vla-ArrayRectangular试试

[kwok][kwok]巭隼 18:28:13

好

[kwok][kwok]巭隼 18:30:02

其实是想选一个后，做不同距的阵列，选阵10 一样，再阵几个，用来画立面窗时，因层高不同，可以一次过

[x_s_s_1]生无可恋 18:30:33

不懂

[kwok][kwok]巭隼 18:30:43

[【KAIXIN】] [【KAIXIN】]炫翔 18:31:14

多层？

方向呢？

[kwok][kwok]巭隼 18:31:28

一般向上，

[x_s_s_1]生无可恋 18:31:34

前面那个函数可以满足您的要求，不过啰嗦，我试试vla-ArrayRectangular的返回值

[kwok][kwok]巭隼 18:32:09

5层一样，中间有设备层，层高又不一样，到了上面几层可能又不一样层高

[kwok][kwok]巭隼 18:39:20

我在想笨人方法，直接选中框选对象做成组，然后就阵列，可以就可以达到我要求了.呵呵
只是最后要解组

明经快报

[x_s_s_1]生无可恋 18:50:10

用vla-ArrayRectangular阵列

然后将其转为表

表中的last就是你要的

[x_s_s_1]生无可恋 18:51:17

(setq array(vla-ArrayRectangular(vlax-ename->vla-object (car (entsel))) 3 3 1 9000 9000 0))
(vla-put-color(last(vlax-safearray->list (vlax-variant-value array)))1)

这是例子

[雨的节奏][雨的节奏] 18:52:26

[qqimg]oldimg/{9297E5B8-240D-FB17-2A95-0C1E97C79DE8}.gif[/qqimg]

[x_s_s_1]生无可恋 18:52:35

这个和前面我给你的函数区别是不能有角度，

[x_s_s_1]生无可恋 18:53:48

按前面函数的基本思路用vla-ArrayRectangular改写就是的

[linshiyin2]大地 18:56:46

[qqimg]oldimg/{E3347CA5-BADC-A73D-F97D-68F27D52606F}.gif[/qqimg]

大侠们，谁能做到那个动态的圆弧切线，

[夏生生][x_s_s_1]生无可恋 18:58:27

鸿业有吧

[linshiyin2]大地 19:00:14

lisp搞

非arx

[夏生生][x_s_s_1]生无可恋 19:00:38

不懂

[夏生生][x_s_s_1]生无可恋 19:01:57

要给规则，要不然非本专业写不出

[夏生生][x_s_s_1]生无可恋 19:03:00

研究研究grread，配合您本专业的知识还是比较简单的

明经快报

[mmh1]漫步地球 19:15:56

cad 表格导出到txt，给个思路、

[236004]张牙舞爪 19:18:13

读TXT，再写TXT

[R-BB勇] 19:19:01

。。正想弄个程序算窗开启面积。

[236004]张牙舞爪 19:19:25

?

[wdsheng101]东升 19:26:20

大侠们有知道哪有卖Lisp代码的网站吗

[精诚]1093446400 19:27:04

500[qqimg]oldimg/{D6CE7D1E-4EE6-1FB5-D118-8D0AFC1432D1}.jpg[/qqimg]

[alwtyp] 19:27:35

你可以在明经上找大神们定制

[wdsheng101]东升 19:27:52

一般怎么收费的啊

[alwtyp] 19:28:41

不知道，你可以在定制版块中发个信息，如果有人想做，会和你谈的

[wdsheng101]东升 19:30:02

定制板块在哪啊

[alwtyp] 19:30:45

[qqimg]oldimg/{E7626867-69C1-D42C-C9DA-2FD994BBEC48}.jpg[/qqimg]

[wdsheng101]东升 19:31:24

3q

[alwtyp] 19:31:41

NTKS

明经快报

[kwok][kwok]巭隼 19:44:59

[qqimg]oldimg/{1E8A59C0-423E-3337-088B-BC5D73219D80}.jpg[/qqimg]这个数是什么意思?

[linshiyin2]大地 19:45:25

前面函数的参数

[kwok][kwok]巭隼 19:46:13

试了一下，冒似没反应

[kwok][kwok]巭隼 19:47:27

数太大，跑远了，没看到，以为没有

[linshiyin2]大地 19:48:18

zoom

加o

[kwok][kwok]巭隼 19:48:52

怎么弄成框选呢，

[linshiyin2]大地 19:49:02

ssget

[夏生生][x_s_s_1]生无可恋 19:54:10

要先将选择集转成vla对象表

然后挨个放血

[linshiyin2]大地 19:59:37

grvecs这个能绘制圆弧吗

那个函数能在屏幕上绘制圆弧

[kwok][kwok]巭隼 20:00:22

(defun c:tt2()
   (setq ss (ssget))
(setq array (vlax-ename->vla-object ss))
(setq array (vla-ArrayRectangular array 3 3 1 9000 9000 0))
(vla-put-color(last(vlax-safearray->list (vlax-variant-value array)))1)
      (princ)
)弄不出来呢，请再指点一下

[夏生生][x_s_s_1]生无可恋 20:01:06

你这个搞不明白就用我原来给你的函数

my_array

(vlax-ename->vla-object ss)

选择集不是图元名

[夏生生][x_s_s_1]生无可恋 20:04:50

搞清楚函数的参数

错了

[夏生生][x_s_s_1]生无可恋 20:06:17

绘制圆弧用grvecs拟合

[kwok][kwok]巭隼 20:06:34

谢谢

[夏生生][x_s_s_1]生无可恋 20:07:08

但是[linshiyin2]你那个东西用不到grvecs，直接先entmake再删除就是的，利用grread

[夏生生][x_s_s_1]生无可恋 20:10:10

(setq gr (car(grread)))
(cond ((= gr 2)......))

明经快报

[夏生生][x_s_s_1]生无可恋 20:30:46

下面是利用vla-ArrayRectangular方法求最后一个选择集的函数

[kwok][kwok]巭隼 20:32:23

代码好长，呵呵，以为可以好简单呢

[夏生生][x_s_s_1]生无可恋 20:32:43

思路是很简单

代码长不代表复杂

后面test1是给你的测试代码

[mmh1]漫步地球 20:34:08

ssadd里面的图元如何取出来？
(setq ssb2 (vl-sort ssb
         (function (lambda(e1 e2)
               (< (car (cdr(assoc 10 (entget e1)))) (car (cdr(assoc 10 (entget e2))))))))
      )
出错

[kwok][kwok]巭隼 20:34:45

我学习一下，最后的集名是那个？可以得重复阵列后的每个集吗？意思每阵列一次就要取最后一集然后用它再阵列...

[夏生生][x_s_s_1]生无可恋 20:37:16

因为vla-ArrayRectangular是对一个vba对象操作，所以要转化ss为lst再mapcar保证返回您需要的lst

[kwok][kwok]巭隼 20:37:33

测试不行，

错误: ActiveX 服务器返回错误: 非选择性的参数。

[夏生生][x_s_s_1]生无可恋 20:37:50

我这里没问题

是不是没拷贝完全

[qqimg]oldimg/{B4F702B8-562C-5FB3-0A22-136C38DC9D56}.jpg[/qqimg]

[夏生生][x_s_s_1]生无可恋 20:39:48

您先把俩个自定义函数搞懂吧，自己逐行注释，这样学的快，否则光拿别人的用没提高的

[夏生生][x_s_s_1]生无可恋 20:40:18

看帮助，逐个函数搞明白它的含义

[kwok][kwok]巭隼 20:41:02

vla-ArrayRectangular刚刚在看这个帮助，都是英文看不懂，费劲

只能猜，

[夏生生][x_s_s_1]生无可恋 20:41:28

看vba的帮助

明经有的

[夏生生][x_s_s_1]生无可恋 20:42:32

[qqimg]oldimg/{32848746-AE7A-0403-1387-A3F251E18760}.jpg[/qqimg]

[qqimg]oldimg/{C8485799-610A-E93A-C3D7-A3221357C10B}.jpg[/qqimg]

明经快报

日月星 22:32:20

怎么获取文字的实际宽度和高度啊？求老师指点

明经快报

[linshiyin2]大地 23:52:17

dxf

日月星 23:52:37

？？？

dxf组码？

[linshiyin2]大地 23:52:59

组码

日月星 23:56:14

谢谢

[仑通]仑通 23:56:36

get dxf