2013-04-29 明经 AutoLISP 编程(102918348) 群聊记录：(setq ss (ssget "X" '((0 . &

明经快报

[fsxm]飞诗 16:13:01

[qqimg]oldimg/{A8FE5B27-368C-4C57-B07C-3E4B82C92185}.gif[/qqimg]

[appleke]一点通 16:13:19

[linshiyin2]大地 16:16:17

终于搞定创建字段了

这下可以联动了

[appleke]一点通 16:17:29

[linshiyin2]大地 16:18:15

[qqimg]oldimg/{EE998C5B-4FE3-F137-9DD3-D3ABA87E55B3}.jpg[/qqimg]这个里面的/要用//代替，不然不行

(strcat "%%"
               )

替换成

[linshiyin2]大地 16:19:26

之后用text随便写了

[linshiyin2]大地 16:22:00

字段在06上正常使用，一会试一下04行不行

保存格式为04一样是有效

明经快报

[亮]123379932 17:04:14

lisp 多段线转二维多段线有什么好的方法不

[亮]123379932 17:05:53

都出来透透气

[328302216]小莫 17:06:45

[qqimg]oldimg/{0F88BC16-274A-05CC-90F5-DEF665CC3C35}.jpg[/qqimg]

[亮]123379932 17:07:11

[亮]123379932 17:08:02

二维多段线转多段线好弄，反过来了就不清楚了

[亮]123379932 17:10:07

二维多段线转多段线？

[亮]123379932 17:11:09

区别好大

[kewyst]………… 17:12:04

还是有区别的

[328302216]小莫 17:13:37

多个z坐标？

[亮]123379932 17:13:42

lsp好像对这块非常薄弱

不是的

[kewyst]………… 17:14:15

多个z 那应该是三维的吧

[亮]123379932 17:14:56

二维多段线的端点坐标放在好多个图元里面

[亮]123379932 17:15:43

((-1 . ) (0 . "OLYLINE") (5 . "424") (102 . 
"{ACAD_REACTORS") (330 . ) (102 . "}") (330 . ) (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "JZD") (6 . 
"Continuous") (100 . "AcDb2dPolyline") (66 . 1) (10 0.0 0.0 0.0) (70 . 129) (40 
. 0.15) (41 . 0.15) (210 0.0 0.0 1.0) (71 . 0) (72 . 0) (73 . 0) (74 . 0) (75 . 
0) (-3 ("SOUTH" (1000 . "300000") (1000 . "11222111") (1000 . "一") (1000 . 
"222"))))

这个就是二维多段线的列表

[亮]123379932 17:16:28

现在是看不出来端点坐标的

maiqi杂填土 17:16:43

能求一程序吗？

文本断线

[亮]123379932 17:16:59

什么东西

[VBALISPER]恐龙 17:25:17

用遮罩

[VBALISPER]恐龙 17:25:58

ET工具:textmask

【7299969】人生 17:26:25

shenme什么叫文本断线

[kewyst]………… 17:26:54

:textmask

什么用途啊

[VBALISPER]恐龙 17:27:39

选择要屏蔽的文字对象或 [屏蔽类型(M)/偏移(O)]:

maiqi杂填土 17:28:22

不会用

maiqi杂填土 17:29:00

等下聊 有特殊要求的

[亮]123379932 17:33:49

消隐是不是

消隐简单

打断有点复杂

明经快报

maiqi杂填土 17:48:02

哦

water_system 17:56:39

幻灯片如何精确掌握尺寸？

[vormittag]桔子 17:57:27

用 Beamer

water_system 18:00:32

sld文件

water_system 18:01:12

mslide命令怎么把握尺寸

beamer是另外的软件吧

明经快报

[weiqi]weiqi 18:17:34

贱工具的 手动切换图层 得怎么写？。

(defun c:`zm ()
(ssget)
(setq tcmc "E-照明")
(command "LAYER" "n" tcmc "C" "3" tcmc "")
(command "change" "p" "" "p" "la" tcmc "")
(setvar "clayer" tcmc)
)

我这么写有个问题，如果我 SSGET为空的时候。。。。上次选择对象也会跳图层。。

[weiqi]weiqi 18:18:52

我是想 如果我选择对象不为空的时候  
所选择的对象 跳图层。
如果选择对象 为空的时候，只切换图层。

water_system 18:24:17

if语句

[weiqi]weiqi 18:25:03

[qqimg]oldimg/{4E83E8CD-B2CC-078E-386A-FAE1445530DB}.jpg[/qqimg]

贱人工具 貌似不用选择对象的，不知道怎么实现

[weiqi]weiqi 18:26:06

用IF的话，会提示 选择对象吧。

贱人工具那个 自动判断有没选择对象？

明经快报

[龙吟小调] 20:26:33

谁能指教下CAD里如何设置双线宽度为默认值

【7299969】人生 20:31:22

请教下，有没有反编译的程序

[ZZXXQQ] 20:31:54

没有

[蔡__洛]不快乐 20:35:16

z请问下 如何让 对话框暂时消失 处理函数完成以后 重现刚才的对话框呢？

[ZZXXQQ] 20:36:16

把对话框显示部分放在while循环中

[蔡__洛]不快乐 20:36:53

什么叫部分显示？

[ZZXXQQ] 20:37:15

反了。是显示部分

[alwtyp] 20:37:43

是（START_DIALOG）吗？

[蔡__洛]不快乐 20:37:55

你是说（START_DIALOG）？

[ZZXXQQ] 20:38:04

不全是

要包括new_dialog

[蔡__洛]不快乐 20:38:36

有给个范例么？

[ZZXXQQ] 20:38:47

论坛上有

[蔡__洛]不快乐 20:39:31

但是 功能按钮是 对话框本身的一个按钮呢

[ZZXXQQ] 20:40:48

一定要按一个按钮才行的了

[蔡__洛]不快乐 20:41:29

我就是想实现 填充命令中 那个选择对象 按钮的效果

[ZZXXQQ] 20:41:54

去论坛找找吧

[蔡__洛]不快乐 20:42:00

对话框打开后 点击按钮 对话框暂时消失 选择完毕后 对话框重现

[VBALISPER]恐龙 20:42:17

好象VBA可以实现,  .hide       .show

[蔡__洛]不快乐 20:43:07

因为 按钮的消息处理函数 entsel 启动时候  对话框不消失 所以没办法选择 就这样抱死了 什么都做不了

明经快报

[ruirui9]睿睿哥 21:26:58

一只壁虎误入鳄鱼池，丧命之时壁虎急中生智一把抱住鳄鱼大叫：妈妈！鳄鱼一愣，立即老泪纵横：别再上班了，都瘦成这样了！51放假好好休息吧！

明经快报

[weiqi]weiqi 21:41:21

("aa" "bb" "cc" "dd")

只现在 前3个，得怎么写？

[VBALISPER]恐龙 21:41:47

通顺吗

[xiabin68]测绘 21:41:55

什么意思，

[ZZXXQQ] 21:42:11

(reverse(cdr(reverse lst)))

[weiqi]weiqi 21:42:16

。。。。

[qqimg]oldimg/{7E37CFB7-E6BE-926B-743E-9B52F3ADA50C}.jpg[/qqimg]

我要的是，例如一个表有 10个元素
我要 指定只保留前几个

这里的函数貌似没有？

[798146410]背 21:43:27

vrx的有

vlx的

[weiqi]weiqi 21:48:39

貌似不行~我再找找。。。

明经快报

[weiqi]weiqi 22:16:41

(repeat (- (length aa)  (length (member 3  aa)))
(setq szh2 (cons (nth  n aa) szh2)
(setq n (+ n 1))

)

明经快报

[野狼谷]笨鸟 22:26:50

(defun lst_cult    (a b lst / lst2)
     (setq lst2 lst)
     (repeat (- a 1)
      (setq lst2 (cdr lst2))
     )
     (defun lst_cult2 (n lst)
      (if (> n 0)
           (append (list (car lst))
               (lst_cult2 (- n 1) (cdr lst))
           )
      )
     )
     (lst_cult2 (1+ (- b a)) lst2)
)

[weiqi]weiqi 22:30:06

3q可以用

明经快报

[龙吟小调] 23:10:24

[qqimg]oldimg/{5AFCB35F-BFAE-E5C6-FC47-786CE1B6A772}.jpg[/qqimg]

这是怎么回事啊，谁指教下