2013-07-08 明经 AutoLISP 编程(102918348) 群聊记录：有人么？

明经快报

[kob5891]XD 17:29:19

Automation 错误。 命名选择集已存在
每次运行都是在这出错
(setq sSetObj(vla-add sSets "SSET1"))

怎么删除命名选择集

[kob5891]XD 17:31:21

(setq sSets(vla-get-selectionSets acadDocument))

[flytoday]过^-^客 17:31:50

[qqimg]201307/{8BBC1725-9419-CE69-ED66-E90800BA7FA9}.jpg[/qqimg]各位老大这个软件基于CAD基础上。。这个属于什么构件

[kob5891]XD 17:33:02

这是什么类型

[flytoday]过^-^客 17:33:14

我也不懂

相信一定哪位大大懂

[开1心]开心就好 17:33:30

[pzweng][pzweng]路人 17:34:10

这是别的软件画出来的

[flytoday]过^-^客 17:34:24

的

[mitenickevin]kevin 17:34:30

非CAD标准图元。

[kob5891]XD 17:34:48

传上过来 让大家看看

[开1心]开心就好 17:36:09

http://www.lubansoft.com/index.p ... anpin_list&id=1

[qqimg]201307/{E05AD149-EFDB-C705-CB8A-9931873F62EA}.jpg[/qqimg]

[vormittag]桔子 17:36:41

就和et里的arcalignedtext是一样的。

[qqimg]201307/{ECADEC39-5806-C7D3-C32A-BFDCE1750E0D}.jpg[/qqimg]

[开1心]开心就好 17:37:08

这个ttr如果能修改一下，好像能成功的

[kob5891]XD 17:37:24

桔子

[hsxtjd]xtjd 17:42:27

明经快报

[kwok][ww5w]行舟月下 19:31:28

想问一下，很多lsp在后面(princ前都会加上
(setq i (1+ i)),,这个功能是什么意思？

[VBALISPER]恐龙 19:32:46

计数器啊.循环要用到的.和其它编程语言基本一致.

与princ无关.

[kwok][ww5w]行舟月下 19:33:40

谢谢，

明经快报

[xiaomm250][lisp_](car (entsel)) 20:05:02

[qqimg]201307/{54C66AF4-6D80-DE31-016A-0039F5D3513C}.jpg[/qqimg]  这个是如何实现的?就是你输入了一个命令,然后要么你选择,如果你输入S的话,就设置,请问如何实现这个呢?

[pzweng][pzweng]路人 20:05:58

if

[xiaomm250][lisp_](car (entsel)) 20:06:14

什么意思?

具体呢?

[pzweng][pzweng]路人 20:06:26

加一个if

cond也行

[xiaomm250][lisp_](car (entsel)) 20:07:08

不懂,能具体的代码吗

[pzweng][pzweng]路人 20:08:39

(setq a (getstring ""))
(if (= a s)
  ...

[xiaomm250][lisp_](car (entsel)) 20:09:16

但是这个并不能选择呀?

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

网上一大把的

就是判断你输的值呗

[xiaomm250][lisp_](car (entsel)) 20:09:58

但是并没有出现ssget

[xiaomm250][lisp_](car (entsel)) 20:12:14

但是关键是不按S的话就出现选择,你这个必须输入h呀

[pzweng][pzweng]路人 20:12:36

道理相同

输入S就是执行另一个子程序

[pzweng][pzweng]路人 20:13:48

请求输入值[A]或[B]
如果输入是A那么执行相对应的程序
如果输入是B那么执行B相对应的程序

[xiaomm250][lisp_](car (entsel)) 20:16:01

关键这个在于没有输入呀

[pzweng][pzweng]路人 20:17:33

其实有三个程序
如果没输就是执行默认的子程序

[pzweng][pzweng]路人 20:20:33

有没有人推荐买个手机

内存有1G左右

双核

[jslxt]落水笑天 20:21:21

国产的就不错

[pzweng][pzweng]路人 20:21:24

屏幕要求3.5-4英寸

现在的手机太大了

简直不是手机了

口袋都放不下

[jslxt]落水笑天 20:22:18

....买个诺基亚算了

[pzweng][pzweng]路人 20:22:22

本看上了三星的galaxy s3

[jslxt]落水笑天 20:22:25

充话费送手机

[pzweng][pzweng]路人 20:22:34

4.5英寸

你还别说，我现在都想买个NOKIA的

原始的那种

[jslxt]落水笑天 20:23:21

对 就那个 就不错

[pzweng][pzweng]路人 20:23:32

我不喜欢玩手机，但是有时候查查地图和车票，智能手机虽然好，但是太大

查了一两个小时了，没点收获

[jslxt]落水笑天 20:25:09

花个千把买个国货 丢了也不心疼

[pzweng][pzweng]路人 20:25:30

华为的也看了，都是4英寸以上的

搞不懂手机为什么屏幕越做越大

[jslxt]落水笑天 20:26:34

手机的需求不一样了

[pzweng][pzweng]路人 20:26:57

害得我都没法换手机了

[jslxt]落水笑天 20:27:39

吃饭  到现在还没吃饭了

[ZZXXQQ] 20:29:41

...
(initget 1 "s")
(setq s1 (entsel " Select a Line :"))
(if (= s1 "s") (progn
;set something.
) (progn
;do ...
))

明经快报

[VBALISPER]恐龙 21:09:48

打扰一下,问个题外的哈.

[snowblade]逍遥 21:09:50

我买的小米2a
(QQ for ad支持个性表情发送: http://im.qq.com/pad)

[VBALISPER]恐龙 21:09:54

InlineShapes 和 Shapes请问一下,WORD里的一种图片类型,这是什么意思.词典都没查到.不要字面意思.

要含义

[snowblade]逍遥 21:10:34

汗

研究这个有啥用

[VBALISPER]恐龙 21:12:01

我没搞懂啊.一个宏里用了两个循环,分别循环这两种类型.我想看看是什么含义.有没有必要删除一个

[qqimg]201307/{A4BEE470-7A78-F2C6-FD31-3419406CF1C3}.gif[/qqimg]

[kwok][ww5w]行舟月下 21:12:57

[qqimg]201307/{EDF5B6BE-D7E5-24E2-57DE-7AC6C52219D0}.jpg[/qqimg]

[开1心]开心就好 21:19:51

有没有办法寻找PL线围成范围内的一点啊

[开1心]开心就好 21:20:29

L型的PL线

[VBALISPER]恐龙 21:20:58

方法应该多吧.

L型是什么意思.

[开1心]开心就好 21:21:14

[qqimg]201307/{AF1CE568-C0BF-7AB2-E522-858E9C7AD93B}.jpg[/qqimg]

[开1心]开心就好 21:21:44

能取点的话，挂EXTRIM能批量删除L型内的线的~

[VBALISPER]恐龙 21:23:12

我的办法是先把这个缩到窗口内,然后创始多边形选择区域,看是否能选中你那个点.造中了,说明点在内.

[开1心]开心就好 21:23:46

[开1心]开心就好 21:24:33

谢谢，虽然我还是不懂编这个。。先学吧

[VBALISPER]恐龙 21:25:01

我开小差了.你是要删除.你想法计算一条位于这个区域内,栏选的直线.剪切应该就好办了.

[开1心]开心就好 21:25:53

你怎么知道我要剪切啊。。。

太有才了这个。。

[VBALISPER]恐龙 21:26:22

我难道是神仙

[开1心]开心就好(67512820)  21:21:54
能取点的话，挂EXTRIM能批量删除L型内的线的~

[开1心]开心就好 21:26:35

明经快报

风中 /xin/kf 21:44:03

大家好，有问题请教。我做设计的时候需要对多段线进行标注，每次都需要先量出长度和角度，才能往上标，太麻烦，求指教如何编程序

风中 /xin/kf 21:44:41

另外，求邀请码一枚，多谢

[ZZXXQQ] 21:45:37

先改群昵称

[VBALISPER]恐龙 21:46:22

他在求邀请码,改不了.

风中 /xin/kf 21:46:38

嗯

风中 /xin/kf 21:47:25

稍等

[ZZXXQQ] 21:49:22

+后面少了空格

[kwok][ww5w]行舟月下 21:50:26

也不行，加了空格，这样写法有错吗

[ZZXXQQ] 21:51:09

getbox是啥函数？

[kwok][ww5w]行舟月下 21:52:22

getbox是求包围圈最大最小点函数

也主是左下角和右上角，

[ZZXXQQ] 21:53:11

它将替换lambda函数的返回值

[kwok][ww5w]行舟月下 21:53:49

中点表

[vormittag]桔子 21:54:02

这个写的是对的。

你写的是错的。

[ZZXXQQ] 21:54:19

[ZZXXQQ](1468225785)  21:53:20
它将替换lambda函数的返回值

[vormittag]桔子 21:54:40

你定义的lambda是一个二元函数，函数参数却只有一个。

[kwok][ww5w]行舟月下 21:54:48

那求点表要怎么写?请指点

那求中点表要怎么写?请指点

[ZZXXQQ] 21:55:36

删了getbox函数

[ZZXXQQ] 21:56:39

I think is list of point.

[caoyin][caoyin] 21:57:56

[ZZXXQQ] 21:58:30

caoyin 好

[caoyin][caoyin] 21:58:50

周老师好

[7299969]人生 21:58:54

曹仁

[caoyin][caoyin] 21:59:13

桔子兄好

[caoyin][caoyin] 22:00:15

不带这么刷滴

[vormittag]桔子 22:00:27

曹兄好！

周老师好！

[kwok][ww5w]行舟月下 22:00:36

这个是G版的写的排列，它是以左下角的，我想学改成包围圈中心，弄了半天不行,请各位大大前辈指点一下

[vormittag]桔子 22:00:40

大家好才是真的好！

[vormittag]桔子 22:01:24

明明是G版写的。

[qqimg]201307/{615393FB-C6E2-AAFE-0A90-8DE5D047DEAF}.gif[/qqimg]，我看成是C版写的。

[caoyin][caoyin] 22:02:17

[vormittag]桔子 22:05:37

人家这个不是求左下角，是求左下角和右上角两个点。

[kwok][ww5w]行舟月下 22:07:07

那怎么写才能是求左下角和右上角两个点的中点?

[vormittag]桔子 22:09:21

在G版的子程序gxl-getbox 最后加上这一句。

[kwok][ww5w]行舟月下 22:11:30

然后还要改那个地方，加上了不行

[vormittag]桔子 22:12:25

把他的数据结构变了，还想能行？

[kwok][ww5w]行舟月下 22:16:35

Z版，加了你发的码提示参数太少，

明经快报

[ZZXXQQ] 22:32:15

(setq boxlst (mapcar '(lambda (x) (GXL-GETBOX x)) ss))
   (setq mptlst (mapcar '(lambda (x) (mapcar '(lambda (a b) (* (+ a b) 0.5)) x)) boxlst))
   (setq mptlst (vl-sort mptlst '(lambda (a b) (< (car a) (car b)))))
;   (setq boxlst (vl-sort boxlst '(lambda (a b) (< (caar a) (caar b)))))
   (setq pt (car mptlst))