2013-05-02 明经 AutoLISP 编程(102918348) 群聊记录：....

明经快报

[yxp]小蜜蜂 03:56:01

....

[仑通]仑通 03:56:22

睡了一个多小时自然醒

明经快报

[weiqi]weiqi 11:07:49

(ssget "x"
           (list (cons 8 (cdr (assoc 8 (entget (car en))))) (cons 0 "TEXT")  )
        )

改成(cons 0 "TEXT") 和(cons 0 "MTEXT")
得怎么写

[pzweng]路人 11:08:41

(ssget "x"
           (list (cons 8 (cdr (assoc 8 (entget (car en))))) (cons 0 "TEXT,MTEXT")  )
        )

[weiqi]weiqi 11:08:47

3Q

[vormittag]桔子 11:09:19

(cons 0 "*text") 也可以。

[pzweng]路人 11:09:24

这句错了吧

(cons 8 (cdr (assoc 8 (entget (car en)))))

[x_s_s_1]生无可恋 11:10:23

(cons 0 "*TEXT")

[pzweng]路人 11:14:59

(ssget "x" (list (assoc 8 (entget (car (entsel)))) (cons 0 "*TEXT")))

[zhuquanmao]关中 11:16:02

生无可恋 正解

[蔡__洛]不快乐 11:16:05

popup_list怎么取得list的选项数目？？

[zhuquanmao]关中 11:16:26

桔子的也没错

[x_s_s_1]生无可恋 11:23:08

[qqimg]oldimg/{6AE7CE4A-1018-1720-9611-8430BE4C4C76}.jpg[/qqimg]什么东西

什么叫list的选项数目

[x_s_s_1]生无可恋 11:24:19

popup又是什么函数？

[zhuquanmao]关中 11:24:22

读成表 取得数量

DCL里的下拉选单

[x_s_s_1]生无可恋 11:24:48

哦

dcl不会

谢谢

[328302216]小莫 11:34:28

都用ODCL了？

明经快报

[x_s_s_1]生无可恋 11:51:44

关于对话框一窍不通

[fsxm]飞诗 11:51:55

[x_s_s_1]生无可恋 11:52:28

所以用飞诗的dcl编辑器

[328302216]小莫 11:52:54

[fsxm]飞诗 11:53:01

[x_s_s_1]生无可恋 11:53:24

爽不

[pzweng]路人 11:53:35

dcl其实简单

[x_s_s_1]生无可恋 11:53:42

拍的正到好处

[mitenickevin]kevin 11:57:00

感觉还是ODCL简单

[x_s_s_1]生无可恋 11:57:21

英文不行，学鸟啊

明经快报

[zhuquanmao]关中 12:52:03

LEE MAC作品之“纯lisp在不打开图纸情况下提取其内属性块”
http://bbs.xdcad.net/thread-667718-1-1.html

[HNFSF](看海) 12:56:16

有没有地梁钢筋批量镜像的工具？

位置镜像和排列镜像

[kewyst]………… 12:56:42

高边坡放样  大家都是怎么搞的

明经快报

[zhuquanmao]关中 14:01:06

[qqimg]oldimg/{ADC74EA0-7AED-B0B3-A1BC-D5C4EADF02E0}.gif[/qqimg]

明经快报

[VBALISPER]恐龙 14:43:25

[明经快报](1732402727) 14:33:36 
欢迎 Angel(1794863523) 加入明经 AutoLISP 编程,请先将你在群中的昵称修改为“[论坛用户名]Angel”格式，如果你未加入明经CAD社区，请先到http://bbs.mjtd.com注册用户。

[如梦] 14:43:49

@出来

[kwok][kwok]巭隼 14:45:10

小明现在不闲聊了，大家注意!!!

[如梦] 14:46:10

[vormittag]桔子 14:46:28

别玩小明了，想玩的单独去聊不行么？

[Angel1995][Angel1995]Angel 14:56:21

我想说这个

不然群里感觉乱

明经快报

[zhuquanmao]关中 15:26:06

太乱

[【KAIXIN】] [【KAIXIN】]炫翔 15:33:37

能不能限制每个人玩的次数？

[236004]张牙舞爪 15:34:02

可以，

[236004]张牙舞爪 15:34:44

(IF(< A 10)
(....)
(exit)
)

最简单的，

[【KAIXIN】] [【KAIXIN】]炫翔 15:34:57

[236004]张牙舞爪 15:35:22

复杂点的加自己的算法，

[328302216]小莫 15:41:46

真专业 

[236004]张牙舞爪 15:43:03

我是菜NIAO级

明经快报

[蔡__洛]不快乐 16:32:30

有种东西叫爆破

[236004]张牙舞爪 16:33:10

做个为码，就不能了

用猫的加密技术

明经快报

[蔡__洛]不快乐 17:27:15

自己写一个 加密模块就行了

明经快报

[328302216]小莫 18:10:37

(defun c:lsp_39()
    (setq dd (getdist " 输入字与线间距 : "))
    (if (null dd) (setq dd 2.0))
    (setq ss (ssget))
    (setq i 0)
    (repeat (sslength ss)
       (setq ssn (ssname ss i))
       (setq ssdata (entget ssn))
       (setq key (cdr (assoc 0 ssdata)))
       (if (= key "TEXT")
          (progn
             (command "ucs" "e" ssn)
             (setq box (textbox ssdata))
             (setq p1 (car box))
             (setq p3 (cadr box))
             (setq p2 (list (car p3) (cadr p1)))
             (setq p4 (list (car p1) (cadr p3)))
             (command "pline" p1 p2 p3 p4 "c")
             (setq ee (entlast))
             (if (/= dd nil)
               (progn
                  (command "offset" dd (list ee p1) (polar p3 (/ pi 2) dd) "")
                  (entdel ee)
               )
             )
          )   
        )
        (setq i (1+ i))
     )
     (command "ucs" "")
     (prin1)
)

书上的这个烂程序怎么没反应？

[328302216]小莫 18:11:35

给文字加矩形框

[【KAIXIN】] [【KAIXIN】]炫翔 18:18:42

[【KAIXIN】] [【KAIXIN】]炫翔 18:19:12

书一般都以介绍方法为主

[328302216]小莫 18:19:24

ucs  直接就没 "e"选项……

[328302216]小莫 18:20:17

但是也不能整些错误的来愚弄人啊

[【KAIXIN】] [【KAIXIN】]炫翔 18:20:45

也许是故意的

考试

[328302216]小莫 18:21:52

果然是开心老大   总是能从乐观的一面看问题 

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

我看程序，一般是看思路

很少...