2013-11-03 明经 AutoLISP 编程(102918348) 群聊记录：这样的表((a b)(1 2 3)(f)...)这样的表怎么能把它弄到只有一

明经快报

■■■■ 09:48:01

这样的表((a b)(1 2 3)(f)...)这样的表怎么能把它弄到只有一层？

[【KAIXIN】] [【KAIXIN】]炫翔 09:48:40

APPEND

■■■■ 09:49:09

一个个的取出来往空表里边APPEND?

[【KAIXIN】] [【KAIXIN】]炫翔 09:49:31

试试

[hawnn]hawnn 09:55:30

前段时间不是有人问过么
而且还发了个程序的

(defun xy_list_ZK (lst)
  (if lst
    (if    (listp (car lst))
      (append (xy_list_ZK (car lst)) (xy_list_ZK (cdr lst)))
      (list lst)
    )
  )
)

■■■■ 09:55:54

类似FLAT?

[236004]张牙舞爪 09:56:24

有不有读取文件夹的创建时间的函数 ？

[【KAIXIN】] [【KAIXIN】]炫翔 09:57:03

论坛好像有

■■■■ 10:03:36

[qqimg]201311/{E49AB45E-5C3D-3528-8B24-A865C121D1BC}.jpg[/qqimg]

[q3_2006]q2 10:04:31

(defun ListAll (tlst / lst)
  (defun aaa (tlst)
    (foreach b tlst
      (if (listp b)
        (aaa b)
        (setq lst (cons b lst))
      )
    )
    lst
  )
  (if (listp tlst)
    (if        (setq lst (aaa tlst))
      (reverse lst)
    )
  )
)

[q3_2006]q2 10:05:17

(A B 1 2 3 F)

是要这个吧。。

■■■■ 10:05:41

就是要这个

[hawnn]hawnn 10:06:36

呃……
看来是我没弄清楚

■■■■ 10:06:38

[qqimg]201311/{FA325DE0-3A40-2C73-7BD0-D7C831E6FE0A}.jpg[/qqimg]

[hawnn]hawnn 10:06:56

[qqimg]201311/{FFDD8282-53B0-60ED-1679-ABA4E562118A}.jpg[/qqimg]

[q3_2006]q2 10:14:36

就是我的问题，逐层展开。。。

[hawnn]hawnn 10:15:16

那你有没有grread的捕捉方式

■■■■ 10:23:58

郁闷，熬了一晚上现在脑袋不够用了。。。

[hawnn]hawnn 10:24:06

这是我写的图框插入程式
但我不没写好捕捉
你们那有没有相应Grread开启捕捉的源码

[qqimg]201311/{B303ACF2-7D91-9A19-2998-2CBEED536051}.gif[/qqimg]

■■■■ 10:24:47

要开什么捕捉？

[hawnn]hawnn 10:25:15

端点捕捉，最近点捕捉，圆心捕捉
这三种就好了

■■■■ 10:25:21

插入图框不是直接给个定位点就往那放么？

[hawnn]hawnn 10:25:34

我的能动态调整大小和位置的

不一样

我再截个图给你看

■■■■ 10:25:45

设置osmode系统变量啊

[hawnn]hawnn 10:25:54

grread
与变量无关

[浮世小半生]X 10:26:45

插入是按照图框倍数还是按照框选范围

[hawnn]hawnn 10:27:16

都有

[qqimg]201311/{569D8221-D012-CB86-EC0C-A883C16AB699}.jpg[/qqimg]

[浮世小半生]X 10:28:00

图框一般是按照倍数的

两点就不规范了

[hawnn]hawnn 10:28:46

没关系的
有时候零件太小
图框太大，打印出来空白地方太大
模具的零件图纸不用比率来的

反正我每种方式都有
要哪种自由选择就好了
我现在的问题是，捕捉

[hawnn]hawnn 10:30:50

[qqimg]201311/{DFD3EF69-4CF1-194B-AA5B-FC1F31415723}.gif[/qqimg]

[hawnn]hawnn 10:31:41

你们有没有可供的参考的源码
关于Grread函数的捕捉

[q3_2006]q2 10:32:24

图框这样缩放是不是太随意了。。总有个模数吧。。。

[hawnn]hawnn 10:32:53

模数我有参数可以设置
你每按一次键，按一定的数值或者比例也行
总之是可以控制的

■■■■ 10:33:17

可以先得到零件的大小，你的图框本来的大小，计算出相应的比例来去放

[hawnn]hawnn 10:33:55

很多公司不是这样用的

反正都行
用哪种都可以

[hawnn]hawnn 10:34:39

两点的方式，就可以动态调整大小
用比例方式插入，不行

■■■■ 10:36:15

意思是插入图框后，它零件大小变了，可以自动调整它？

[hawnn]hawnn 10:36:35

对

■■■■ 10:37:17

这倒有意思，一次按比例插入确实那就是死的了，要调整很不好弄的

[hawnn]hawnn 10:41:30

不会啊
我刚才不是弄了么

刚才不是有GIF图么

■■■■ 10:42:30

我是说一次按比例插入和你这方法比较起来，那是死的，你这个当然是活的，想怎么调都行

[hawnn]hawnn 10:42:45

两点的方式
根据你框的矩形的长度方向来决定图框的方向
横，或者竖向
感觉偏大或者偏小，都可以按1 或者2 来变大或者缩小

[hawnn]hawnn 10:43:20

我的都有啊
插入方式有两种
一种是两点的方式，一种，就是按比例插入
你没看我的图片么

[hawnn]hawnn 10:46:09

求教啊
Grread的捕捉开启
有实例最好

明经快报

[丽丽星空] 12:16:14

(defun c:tt ()
  (command "_.mline" )
  (while (= 1 (getvar 'CMDACTIVE)) (command pause))
  (command "_.explode" (entlast) )
)

明经快报

[丽丽星空] 12:32:24

谢谢  VBALISPER ，可以了

明经快报

[hawnn]hawnn 12:54:19

[qqimg]201311/{8DAB795C-92D1-9AF4-7F81-36B1E5CBBB16}.jpg[/qqimg]

明经快报

[davide]醒 13:33:07

看看

明经快报

[szx025][szx025]aaaa 14:13:51

(command"_ERASE"(ssget"X" "WP" pts)"");;pts为你那四个坐标点的点表,这个有点不明白，有高手详细说一下吗，比如我已经定义了四个点pt1 pt2 pt3 pt4,如何用上面的语句完成删除四个点范围的物体，

明经快报

[野狼谷]笨鸟 14:36:52

[qqimg]201311/{996C1850-6FDA-0373-EC10-665BFA02E2B0}.jpg[/qqimg]

[yjpzc][yjpzc]-蓝眼泪 14:40:11

[qqimg]201311/{37571767-5B9C-24E9-7FAB-0D0FEA13B00F}.gif[/qqimg]

明经快报

[davide]醒 15:40:18

请问[qqimg]201311/{A3244589-60C7-F77F-8AAB-CF48461750DE}.jpg[/qqimg]这两个路径是一回事不

[q3_2006]q2 15:42:36

是

这个目录可以重名的。。

不冲突

[davide]醒 15:47:09

这两个等同不？

[q3_2006]q2 15:47:51

这个好办。。你一试不就知道了。。应该也等同

[davide]醒 15:48:24

加载东西试？

[q3_2006]q2 15:48:33

对呀。。

[q3_2006]q2 15:49:03

建一个子目录。。看能调用不。。

。。有意义没。。

[davide]醒 15:50:38

支持

是一样的

[davide]醒 15:51:14

谢了  2 3

明经快报

[龙吟小调] 21:00:13

[qqimg]201311/{829489FE-EEBB-AFE6-0AA6-C28254D7B9FF}.jpg[/qqimg]谁知道这个怎么加载

[q3_2006]q2 21:05:07

ap

明经快报

[why1025][7299969]人生 21:27:28

[qqimg]201311/{D243FAFF-0633-2AB7-4669-D86CEFE7B808}.jpg[/qqimg]这是什么意思