2013-09-05 明经 AutoLISP 编程(102918348) 群聊记录：删除列表中第N个元素是用哪个函数？vl-remove 是把列表里相同都会删掉

明经快报

[328302216][328302216]小莫 09:46:57

删除列表中第N个元素是用哪个函数？vl-remove 是把列表里相同都会删掉了？

[caoyin][caoyin] 09:47:34

这个问题这几天讨论了好几次

[328302216][328302216]小莫 09:48:12

前几天 我刚好都没在  前几天公司换办公室 都没时间

[caoyin][caoyin] 09:48:53

http://bbs.mjtd.com/thread-90335-1-1.html

[pzweng][pzweng]路人 09:48:59

(1 2 3 4 5 6 7 8 9)
(1 2 3 4) (6 7 8 9)
(cons (1 2 3 4) (6 7 8 9))

[caoyin][caoyin] 09:50:30

[pzweng][pzweng]路人 09:50:39

append

[328302216][328302216]小莫 09:50:42

我以为是有可以直接一个函数就可以删除呢  这贴之前也看过了   谢谢曹版

[pzweng][pzweng]路人 09:51:15

C版，哪个最快

[caoyin][caoyin] 09:51:38

后面有测试，我也忘了

[雨的节奏][雨的节奏] 09:51:42

用repeat可以吗

[pzweng][pzweng]路人 09:51:50

可以

[caoyin][caoyin] 09:51:53

好像有个递归的不错

[pzweng][pzweng]路人 09:51:58

讲的是速度不是方法

递归会不会溢出？

[328302216][328302216]小莫 09:52:59

路人没研究过这贴？

[pzweng][pzweng]路人 09:53:16

没有

我的思路跟G版一样的

先判断表长

[【KAIXIN】] [【KAIXIN】]炫翔 10:02:08

代码长不一定慢

递归遇到大数据 就哭吧

[328302216][328302216]小莫 10:03:18

最快的和最慢的时间差最大应该也就几秒钟吧！

[pzweng][pzweng]路人 10:03:19

以前用C语言写过递归

[【KAIXIN】] [【KAIXIN】]炫翔 10:03:33

能不循环就不循环

[pzweng][pzweng]路人 10:03:35

不是

可能是几个小时

哈哈

[【KAIXIN】] [【KAIXIN】]炫翔 10:03:53

看数据的大小去

慢的到死机

[328302216][328302216]小莫 10:04:42

明白   这就看数据大小来定了

[AMKYUD][AMKYUD]??? 10:05:48

能不循环就不循环？

应该是能不递归就不递归吧

[pzweng][pzweng]路人 10:07:06

(setq a (car lst) b lst (cdr lst) new_lst (cons a new_lst))
(setq a (car lst) b lst (cdr lst) new_lst (cons a new_lst))
(setq a (car lst) b lst (cdr lst) new_lst (cons a new_lst))
(setq a (car lst) b lst (cdr lst) new_lst (cons a new_lst))
......

这样就不循环了

明经快报

[LC100]建筑设计 10:54:57

统一标高的程序谁有

有些线或者其它东西，画的起点终点都不在0.00上

[tzan8752][tzan8752]测量工 10:56:21

[qqimg]201309/{E0D6C43E-1054-8DAD-B383-0EF38E78B524}.gif[/qqimg]

明经快报

[woky57]WOKY 11:08:53

(setq sn (vl-string-subst "%%130"  "s"  sn))
 (setq sn (vl-string-subst "%%131"  "d"  sn))
 (setq sn (vl-string-subst "%%132"  "f"  sn))

哪位大位能帮我简化一下吗

明经快报

[OWEN7][qqou7]clever 15:46:33

[qqimg]201309/{84D83B97-83A5-0012-5FB5-C4C862EFC8F1}.jpg[/qqimg]高飞鸟的这个怎么调出来的

明经快报

[LC100]建筑设计 16:03:09

(defun  c:test (/ ss n e el p21 p22 p23 p24 tcbl)
(setq ss (ssget))
(setq n 0);序号的初值为0
(repeat (sslength ss);重复执行，执行的次数等于所选对象的个数  
(setq e (ssname  ss  n));得到选择集内第n个对象的图元名
(setq el (entget e));得到这个对象的图元表
 (setq tcbl (getdist " 输入填充比例"))
 (setq el (subst (cons 41 tcbl)(assoc 41 el) el));修改图元表内
 (entmod el) ;更新图形数据库的el图元表
(setq n (1+ n))
  );repeat重复部分
  );end

填充比例是修改成功了，不过为什么没有刷新填充图案呢

[【KAIXIN】] [【KAIXIN】]炫翔 16:06:04

更新图元

U...

[LC100]建筑设计 16:06:25

更新图元部分不是有了么

[【KAIXIN】] [【KAIXIN】]炫翔 16:06:49

entupd

[LC100]建筑设计 16:06:57

加在那？

[【KAIXIN】] [【KAIXIN】]炫翔 16:07:22

(entmod el) 后面

[LC100]建筑设计 16:07:42

(entmod el)这个不同的吗？

[【KAIXIN】] [【KAIXIN】]炫翔 16:08:00

一个是数据 一个是对象

[LC100]建筑设计 16:08:17

哦，明白了，谢谢。

[LC100]建筑设计 16:09:43

一点反应也没有

[【KAIXIN】] [【KAIXIN】]炫翔 16:10:23

那你明白啥

你去看看这个函数的帮助文件

[LC100]建筑设计 16:10:36

刚开始以为放上去就行了。

[【KAIXIN】] [【KAIXIN】]炫翔 16:10:38

有利用消化

[LC100]建筑设计 16:10:38

看了

[【KAIXIN】] [【KAIXIN】]炫翔 16:10:51

[LC100]建筑设计 16:11:31

没反应。

算了，我用别的方法来搞。

[【KAIXIN】] [【KAIXIN】]炫翔 16:11:43

(entupd e)

[LC100]建筑设计 16:12:53

还是没反应，算了，我用别的方法来搞。

[mitenickevin]kevin 16:15:18

你是什么图元组码是 41呢？ 如果是天正的用VL函数

[LC100]建筑设计 16:16:00

41

就是CAD的填充而

[【KAIXIN】] [【KAIXIN】]炫翔 16:16:57

好像还有45

[mitenickevin]kevin 16:17:20

那你用 VL看看

PatternScale = 100.0

[LC100]建筑设计 16:17:45

45不是的。

[【KAIXIN】] [【KAIXIN】]炫翔 16:17:55

[LC100]建筑设计 16:18:27

其实就有时候拿到别人的图，填充图案，一双击进去就有问题。就想修正一下

[mitenickevin]kevin 16:18:33

41是比例

[LC100]建筑设计 16:18:46

我就是要修改这个值啊

修改是改完了，没更新填充

[【KAIXIN】] [【KAIXIN】]炫翔 16:19:21

试试

[【KAIXIN】] [【KAIXIN】]炫翔 16:20:34

04测试OK

[LC100]建筑设计 16:21:17

不行。

06输入完比例后，后面什么都没有了。

[【KAIXIN】] [【KAIXIN】]炫翔 16:21:42

[LC100]建筑设计 16:21:49

[【KAIXIN】] [【KAIXIN】]炫翔 16:21:51

那你用VLA函数吧

[LC100]建筑设计 16:22:01

vla都不会用。

[【KAIXIN】] [【KAIXIN】]炫翔 16:22:07

vla-put-PatternScale

[LC100]建筑设计 16:22:09

我还是用CAD自带的修改一下好了。

[【KAIXIN】] [【KAIXIN】]炫翔 16:22:18

(vla-put-PatternScale (vlax-ename->vla-object name) bili)

[【KAIXIN】] [【KAIXIN】]炫翔 16:23:57

06不行？

我试试08

[【KAIXIN】] [【KAIXIN】]炫翔 16:25:18

还真不行

[LC100]建筑设计 16:25:24

呵呵

[【KAIXIN】] [【KAIXIN】]炫翔 16:25:32

用CAD命令

[LC100]建筑设计 16:25:36

没事，我用CAd自带的搞完了。

[【KAIXIN】] [【KAIXIN】]炫翔 16:28:01

明经快报

[亮]123379932 19:07:25

opendcl grid 获取标题名称是哪个函数

[mitenickevin]kevin 19:12:10

(dcl_Control_GetTitleBarText Untitled_Form1)

[mitenickevin]kevin 19:13:15

刚说错了。是这个
(dcl_Control_GetToolTipTitle Untitled_Form1_Grid1)

[亮]123379932 19:15:21

怎么为空啊

明经快报

[亮]123379932 20:57:00

[qqimg]201309/{B910C821-017C-0E7F-823A-EA2BA55B664E}.jpg[/qqimg]怎么获取第一行标题名称opendcl

[亮]123379932 20:57:55

获取opendcl列标题名称的函数

[亮]123379932 20:58:48

急用，，哪位知道

[亮]123379932 21:00:10

获取opendcl grid列标题名称的函数

[亮]123379932 21:01:34

群里面怎么冷清了

[pzweng][pzweng]路人 21:07:48

只会dcl

[亮]123379932 21:08:51

今天没几个人冒泡啊

[pzweng][pzweng]路人 21:09:05

下班了

[亮]123379932 21:09:11

呵呵

[pzweng][pzweng]路人 21:09:33

[亮]123379932 21:11:28

dcl里有grid控件么

[pzweng][pzweng]路人 21:11:43

没有

[flytoday]过^-^客 21:16:15

[qqimg]201309/{F37597FF-70C6-C13B-3F64-667288A16BCD}.gif[/qqimg]

[亮]123379932 21:16:41