2013-07-12 明经 AutoLISP 编程(102918348) 群聊记录：[image={5D3AFAB6-50FF-D345-4F00-8BA2F9

明经快报

[雨的节奏][雨的节奏] 08:28:12

[qqimg]201307/{5D3AFAB6-50FF-D345-4F00-8BA2F914DDB1}.gif[/qqimg]

明经快报

[邹锋]Tony 09:55:39

(SSGET '((1 . “01，02”)))怎麼把 01 02   01，02都選擇了？

明经快报

[阿然][阿然] 10:06:30

"[0-9][0-9]`#,100#"

"[0-9][0-9]`#,100`#"

不知道有没有更好的写法

[lisp-study]jun 10:06:54

[qqimg]201307/{F21119CF-89C5-0742-D291-6695ED31B889}.jpg[/qqimg]

[lisp-study]jun 10:07:41

只到100还是所有的数字都可以

[lisp-study]jun 10:11:08

"##`#，100#"

[邹锋]Tony 10:14:04

沒用用呢

[阿然][阿然] 10:14:38

"#`#,##`#,100`#"

[pzweng][pzweng]路人 10:16:46

论坛上有

自己搜一下

有很多范例

[邹锋]Tony 10:17:14

哦，

[lisp-study]jun 10:17:29

"#`#,##`#,100`#"这样肯定行的

我就用过

[邹锋]Tony 10:18:26

分號下面那個嗎

[阿然][阿然] 10:18:35

1左边

[邹锋]Tony 10:19:01

難怪我寫的沒用

明白

[lisp-study]jun 10:19:07

～

[邹锋]Tony 10:20:22

謝謝

搞定

[清风明月名字] 10:20:36

请问，lisp向命令行发送命令的函数是什么啊？查半天查不到

[邹锋]Tony 10:20:37

[pzweng][pzweng]路人 10:20:55

vla-seedcommand

[邹锋]Tony 10:20:55

COMMAMD

[pzweng][pzweng]路人 10:21:02

seendcommand

[pzweng][pzweng]路人 10:21:35

vla-sendcommand

[清风明月名字] 10:22:16

先要加这一句吧，
(vl-load-com)

这 种名称在哪本手册中查得到啊？

不能总问别人啊

[阿然][阿然] 10:23:32

[qqimg]201307/{FBACA4EB-6125-EEB0-96B2-AEA7B5D1B879}.jpg[/qqimg]

[pzweng][pzweng]路人 10:25:01

CAD自带的也有

[清风明月名字] 10:26:46

查了半天，也没有查到在哪本手册上，

[kwok][ww5w]行舟月下 10:28:52

葵花宝典论坛上

[pzweng][pzweng]路人 10:30:04

你先打开visual lisp界面
菜单栏上有个帮助文件

帮助选项

明经快报

军临天下 10:44:49

大家好：请教个问题
怎样判断cad中是否有命令，如：t1
(defun c:tt ()
  (if (= (c:t1) nil);检查是否有T1命令
    (c:t2);不存在执行t2
    (c:t1);存在执行t1
  )
  (princ)
)

就是运行程序，然后判断是不是有t1命令，有执行t1，没有就执行t2，大师们出来休息下
群主帮忙呀
就是怎样截获cad中有无这个命令？
其他的好办

[pzweng][pzweng]路人 10:45:13

要加载

[xyz8]咫尺天涯 10:45:30

检查已经加载的命令

路人大师帮忙看看

[xyz8]咫尺天涯 10:46:22

(getcname "line")

只能获取内部命令

[pzweng][pzweng]路人 10:47:18

(defun c:tt ()
  (if (= (c:t1) nil);检查是否有T1命令
    (progn
    (load "t1.lsp))
    (c:t2);不存在执行t2
)
(progn
(load (t2.lsp))
    (c:t1);存在执行t1
  )
  (princ)
)

第二个都不要

[xyz8]咫尺天涯 10:48:01

我试试

[阿然][阿然] 10:50:27

(if (member "c:t1" (atoms-family 1)) (c:t1)(c:t2))

[阿然][阿然] 10:52:12

"c:t1"要大写

[xyz8]咫尺天涯 10:53:14

谢谢阿然老师

[xyz8]咫尺天涯 10:56:33

谢谢阿然、路人二位

这个群真好

[pzweng][pzweng]路人 11:02:11

试试这样行不

[xyz8]咫尺天涯 11:06:00

好像不行

[pzweng][pzweng]路人 11:06:24

嗯，是不行

明经快报

[农]老农 11:49:23

灰常郁闷的事情...  
(vlax-get-or-create-object "mscomdlg.commondialog")无法创建对象，返回nil  
难道非要装上VB才能用吗  以前好像用的挺好啊

[阿然][阿然] 11:55:12

要注册控件

[pzweng][pzweng]路人 11:55:35

VB有哪些控件

[阿然][阿然] 11:55:47

*.ocx

[pzweng][pzweng]路人 11:55:48

lisp又能调用哪些控件呢

[农]老农 11:56:13

注册了，一样不能用

[pzweng][pzweng]路人 11:56:33

把程序发来，我试试

明经快报

[lisp-study]jun 12:15:56

(vlax-create-object "mscomdlg.commondialog")cad2010返回为nil

[lisp-study]jun 12:19:52

啥原因

[pzweng][pzweng]路人 12:26:03

命令: (vlax-create-object "mscomdlg.commondialog") #

[lisp-study]jun 12:31:25

我用07的就可以  用2010就不行 为啥呢

明经快报

[pzweng][pzweng]路人 13:38:58

2010可能要加载什么吧

明经快报

[kwok][ww5w]行舟月下 14:18:46

在2014里
(vl-cmdf "_.layer" "on" "*" "")
为什么不行运行，会出错
但(vl-cmdf "-layer" "on" "*" "")却可以

[kwok][ww5w]行舟月下 14:19:22

各位知道什么原因，之前都可以运行的，是不是有那个变量控制?

[hongyan]害虫在哪 14:20:17

"_.layer"是不是多了个点

[kwok][ww5w]行舟月下 14:21:21

昨天还可以运行的，今天就不行了，不管点的事吧，

今天打开了份别人的图就样了

[pzweng][pzweng]路人 14:24:03

重启试试

[kwok][ww5w]行舟月下 14:24:14

没用，

[kwok][ww5w]行舟月下 14:24:58

刚才在论坛搜了一下，好象也有人出现这种情况，但没解决

[pzweng][pzweng]路人 14:25:25

用command试试

[kwok][ww5w]行舟月下 14:25:37

一样的

都试了，我都删了用户词典，也一样。可能有那个变量控制

明经快报

[kwok][ww5w]行舟月下 14:48:19

我注删表全删子，完全重设cad环境，又可以了，真汗

[wh89103](阿天) 14:55:29

CAD镜像

文字能不翻转吗

[阿然][阿然] 14:55:56

mirrtext

明经快报

[lisp-study]jun 15:17:59

[qqimg]201307/{3FD45344-1E69-09EC-7B5F-7CD21D52B78D}.jpg[/qqimg]阿然 这个是啥原因？

屏幕是zoom过的

[lisp-study]jun 15:19:50

在程序中执行结果为nil  我退出程序 单独执行又有结果 郁闷