2013-07-13 明经 AutoLISP 编程(102918348) 群聊记录：http://nonsmall.mjtd.com/ 今天晚上线上lisp开

明经快报

[不死猫][nonsmall]不死猫 12:32:47

http://nonsmall.mjtd.com/

今天晚上线上lisp开发
公开视频现场交流活动

欢迎各位参加

[lisp-study]jun 12:32:58

明经快报

[不死猫][nonsmall]不死猫 12:47:40

本活动永久免费

[LC100]建筑设计 12:47:49

diesel这个支持宏中的""暂停吗

明经快报

[zk2140]Kevin 14:26:10

请教：如何用lisp实现加载“菜单.mns”到CAD上面的下拉菜单？
(COMMAND "MENULOAD" "C:/Documents and Settings/Administrator/桌面/Menu.mns")        ;加载菜单file
(menucmd "OP50=123")        ;显示菜单
这个只能加载，但不能显示在下拉菜单处

明经快报

[236004]张牙舞爪 14:53:18

[qqimg]201307/{3E4C2947-EB13-8496-2977-D18A9D5EF4DD}.jpg[/qqimg]

既然有人把这程序放到陶包上去卖了

[不死猫][nonsmall]不死猫 14:55:08

不用怕他

[236004]张牙舞爪 14:55:50

这些人太无聊了，

[VBALISPER]恐龙 14:56:05

啥子程序,我看不到图

[pzweng][pzweng]路人 14:56:05

周刚的店

[VBALISPER]恐龙 14:57:21

卖的是什么程序.

[236004]张牙舞爪 14:57:42

[qqimg]201307/{280F5784-9712-D611-C7BE-A0007E915AE6}.jpg[/qqimg]

[不死猫][nonsmall]不死猫 14:58:16

不用替他打广告了

[236004]张牙舞爪 14:58:26

没有打，

我是无意看到的。

[flytoday]过^-^客 15:02:47

你在广告丨乛一丿丿

哦

张你很强大

[236004]张牙舞爪 15:08:16

不是我的

[flytoday]过^-^客 15:09:40

哦……我以为是你…

[236004]张牙舞爪 15:10:12

用猫老师的加密功能

[flytoday]过^-^客 15:15:20

张……你有广告之嫌

[236004]张牙舞爪 15:15:28

没有，

我是无意看到的，

[236004]张牙舞爪 15:18:04

放气LISP学C#，这样就不能反编译了

[vormittag]桔子 15:18:53

吃饭被噎着了就不吃饭了？

[236004]张牙舞爪 15:19:09

吃面

明经快报

[雨的节奏][雨的节奏] 15:32:16

[qqimg]201307/{E3B63629-56C0-A0F5-A544-8640194992A2}.jpg[/qqimg]

[pzweng][pzweng]路人 15:35:05

人为的不保修，你命大

[236004]张牙舞爪 15:40:21

[qqimg]201307/{9BFF2135-0B1C-F377-BCFB-3760B3E96FE3}.jpg[/qqimg]

[qqimg]201307/{10C521F9-E4BE-4BC4-E9E6-B74EF18A13CC}.jpg[/qqimg]

这里二个都是选择的，在那里弄？

[VBALISPER]恐龙 15:41:19

LISP

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

会记下来上次选的

[vormittag]桔子 15:43:24

存成一个全局变量呗。

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

((= key "Option1") ; {"Option1"} (单选按钮)
     (set_tile "Option2" "0")
     (set_tile "Option3" "0")
     (setq op1(get_tile "Option1") op2 nil op3 nil)
     (mode_tile "Text1" 0)
     )
    ((= key "Option2") ; {"Option2"} (单选按钮)
     (set_tile "Option1" "0")
     (set_tile "Option3" "0")
     (setq op2(get_tile "Option2") op1 nil op3 nil)
     (mode_tile "Text1" 1)
     )
    ((= key "Option3") ; {"Option3"} (单选按钮)
     (set_tile "Option1" "0")
     (set_tile "Option2" "0")
     (setq op3(get_tile "Option3") op1 nil op2 nil)
     (mode_tile "Text1" 1)
     )

[VBALISPER]恐龙 15:43:53

你想两个都选?

你想两个都选?

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

一个

[VBALISPER]恐龙 15:44:35

(set_tile "Option1" "0")
     (set_tile "Option3" "0")就是这里嘛.

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

但我已经设 0了？

[236004]张牙舞爪 15:45:32

每次启动程序，是上次点击过的。

[pzweng][pzweng]路人 15:46:29

这程序有意思

[236004]张牙舞爪 15:46:38

？

[VBALISPER]恐龙 15:50:03

好象有一个要设为1

[236004]张牙舞爪 15:50:25

(if(and(= op1 nil)(= op2 nil)(= op3 nil))(set_tile "Option2" "1"))

在初始化那里 设1了

[236004]张牙舞爪 15:51:33

怎么改下？

明经快报

[500w008]500w008 16:12:32

太强大了 VLX现在都可以破解

[qqimg]201307/{0C12C54B-579A-A2E8-9658-F1CB3E63118E}.gif[/qqimg]

[500w008]500w008 16:17:53

[qqimg]201307/{91AE7D65-5E97-C37F-47D1-1C543EFD8A1D}.gif[/qqimg]

[qqimg]201307/{96EF250A-6CE0-4DBF-F3FA-1AE3F63DF6F7}.GIF[/qqimg] 我是菜鸟 我还是会支持别人破解给我用

明经快报

[不死猫][nonsmall]不死猫 17:00:41

[qqimg]201307/{7BE005D0-7217-10B6-D5F4-C16338F79974}.jpg[/qqimg]

[pzweng][pzweng]路人 17:04:54

黑猫白猫

[500w008]500w008 17:07:40

这一个获取点表有没错

[阿然][阿然] 17:08:48

apply前连个括号都没有，肯定错

[500w008]500w008 17:09:15

阿然 怎么改

[zk2140]Kevin 17:09:19

(defun c:zb (/ p p1 p2 p3 p4 p5 s oldos)
  (princ "标注拾取点坐标")
  (setq p (getpoint " 拾取点:"))
  (setq oldos (getvar "osmode"))
  (setvar "osmode" 0)
  (setq p1 (polar p 0 (* -5.0 aaaaa)))
  (setq p2 (polar p 0 (* 5.0 aaaaa)))
  (setq p3 (polar p (/ pi 2.0) (* -5.0 aaaaa)))
  (setq p4 (polar p (/ pi 2.0) (* 5.0 aaaaa)))
  (setq p5 (polar p (/ pi 4.0) (* 3.0 aaaaa)))
  (setq s (rtos (car p) 2))
  (setq s (strcat s ","))
  (setq s (strcat s (rtos (cadr p) 2)))
  (command "line"
       p1
       p2
       ""
       "line"
       p3
       p4
       ""
       "text"
       p5
       (* 3.0 aaaaa)
       0.0
       s
  )
  (setvar "osmode" oldos)
)

拾取点:; 错误: 参数类型错误: numberp: nil

求指导

[286168051]勤龙 17:10:22

数值类型错误

[阿然][阿然] 17:10:32

aaaaa是啥？

[zk2140]Kevin 17:11:30

中间值，只是用来代换的

[500w008]500w008 17:20:17

有这个提示

; 警告: 参数太多: (APPLY (QUOTE LAMBDA) (X) (( ... ) S_LST))

[阿然][阿然] 17:20:55

p_lst的值贴出来

[500w008]500w008 17:21:44

这样检测没错误

p_lst 是个空集

[阿然][阿然] 17:22:32

那就s_lst

[500w008]500w008 17:25:21

检测没提示有错啊

[检查文字 函数测试1-点表.lsp 正在加载...]
.
; 检查完成.

[pzweng][pzweng]路人 17:25:35

语法错了

[500w008]500w008 17:25:43

哦

[pzweng][pzweng]路人 17:26:05

(append lst lst)
你这里(append lst)

[500w008]500w008 17:28:06

那还得用 APPLY

[阿然][阿然] 17:28:47

你直接说这个程序是干嘛的吧

这段代码

[500w008]500w008 17:30:43

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

要写这个功能

这一段 是获得字符表中 坐标表的

[500w008]500w008 17:38:06

[qqimg]201307/{91AE7D65-5E97-C37F-47D1-1C543EFD8A1D}.gif[/qqimg] [qqimg]201307/{12C2D1A1-9811-FE1B-D10C-83BB0E8A330F}.jpg[/qqimg]

明经快报

[500w008]500w008 17:55:17

;返回已知PTO点距离最近(图层为lgj1)字符
(defun get_tx_nearm ( pto / )
  (setq ss (ssget '((0 . "text") (8 . "lgj1"))))
  ;选择集转表
  (if ss
    (progn
      (setq s_lst '(lambda  (x) (= (type x) 'ENAME)))
      (vl-remove-if-not s_lst (mapcar 'cadr (ssnamex ss)))
    )
  )
  ;得到字符坐标点表
    (setq dis_lst 
      (cons 
         (foreach e s_lst
              (apply 
           '(lambda (x)
                (distance pto (cdr (assoc 10 e))
                )
            )
            s_lst
          )
         )
         dis_lst
      ) 
    )
(if (= (min dis_lst))
    (setq 返回字符 e)
)      
(princ)
)

明经快报

[flytoday]过^-^客 18:06:18

[500w008]500w008 18:06:42

[qqimg]201307/{91AE7D65-5E97-C37F-47D1-1C543EFD8A1D}.gif[/qqimg]

[flytoday]过^-^客 18:07:15

很强大了

[500w008]500w008 18:07:25

过客 又在叫别人别指导我了

[flytoday]过^-^客 18:07:38

没有

[500w008]500w008 18:07:39

[qqimg]201307/{2CE16159-2610-DCA0-311E-B2B39C47C627}.gif[/qqimg] 你只会干这事

[qqimg]201307/{96EF250A-6CE0-4DBF-F3FA-1AE3F63DF6F7}.GIF[/qqimg][qqimg]201307/{0C12C54B-579A-A2E8-9658-F1CB3E63118E}.gif[/qqimg]

我凑的代码大部分都发了 你呢

[236004]张牙舞爪 18:08:33

cad临时文件在哪个文件夹

[500w008]500w008 18:08:43

这段代码是获得计算书的 以后 就直接 批量写承台

把 吊筋值也完善进去

在高手面前 我不敢说写 只能说凑 [qqimg]201307/{91AE7D65-5E97-C37F-47D1-1C543EFD8A1D}.gif[/qqimg]

[flytoday]过^-^客 18:09:33

我不会

不会编会用

明经快报

[不死猫][nonsmall]不死猫 19:17:20

每周六晚八点半,线上Lisp开发视频直播
本活动永久免费
今晚活动主题isp开发小助手(自动生成lisp代码工具)汉化版现场开发,源码直播
YY频道83001199,欢迎参加
详见http://nonsmall.mjtd.com/