2013-05-18 明经 AutoLISP 编程(102918348) 群聊记录：为T就不用加载了

明经快报

[流动的清泉][权心权意] 22:13:23

请教大家一个问题，我做一个插件的子程序，想分开输入不同的字符，执行不同的操作！

(setq aa (getstring " 请选择矩形(j)/圆或圆弧(y)"))
  (if (= aa j)
    (cl_circle) (cl_lwpolyline)
    )

[流动的清泉][权心权意] 22:14:12

我原来设想的是这样的，好像不行啊！有哪位大侠看下是出了什么问题！

[LC100]建筑设计 22:14:48

前面还差一点。

[ZZXXQQ] 22:14:59

(= (strcase aa) "J")

[yxp]小蜜蜂 22:15:02

嗯，没设置关键字

[ZZXXQQ] 22:15:28

关键字对getstring无效

[yxp]小蜜蜂 22:16:00

应该用 getpoint

再用 initget 设置关键字

[ZZXXQQ] 22:16:12

要用getlword

getkword

[yxp]小蜜蜂 22:16:23

插入块的时候需要 点

[yxp]小蜜蜂 22:16:55

getpoint

[ZZXXQQ] 22:17:04

你怎么知道要插入块？

[yxp]小蜜蜂 22:17:32

(setq aa (getpoint " 请选择矩形[j]/圆或圆弧"))

这样可以默认一个啊。

[流动的清泉][权心权意] 22:18:08

不是插入块！ 就是将aa  定义成 j 或者 y，然后执行不同的命令！

[ZZXXQQ] 22:18:41

看看，小蜜蜂弄错了吧

[yxp]小蜜蜂 22:18:44

哦，不需要点用 getkword

[LC100]建筑设计 22:18:44

;文字设置
(defun C:wzzd  (/ ss dq)
  (prompt "选择要修改对齐方式的文字[CAD文字]. ")
  (setq SS (ssget))
  (initget "Z MC C R")
  (setq dq (getkword "对齐方式:[左(Z)/正中(C)/右(R)]:"))
  (if (not dq) (setq dq "MC"))
  (if (= dq "C") (setq dq "MC"))
  (if (= dq "Z") (setq dq "L"))
(command "justifytext" SS "" dq )
)

[yxp]小蜜蜂 22:18:50

看错了

[LC100]建筑设计 22:18:54

拿这个来改吧，

[流动的清泉][权心权意] 22:19:08

getpoint，不是指定点吗，我要输入，y 或者j

恩，好的，我试下，谢谢两位仁兄了！

[ZZXXQQ] 22:19:46

get系函数就getstring不支持initget

[LC100]建筑设计 22:20:45

我听人说天正的如果用vlisp就不会出错是吧，普通的lisp改天正的组码的确会出错。

[ZZXXQQ] 22:21:35

好象都不太好用

[yxp]小蜜蜂 22:21:48

天正反应器用的多

[mitenickevin]kevin 22:21:55

好像都会出错，

[yxp]小蜜蜂 22:22:05

估计是修改组码后，反应器乱了。

[LC100]建筑设计 22:22:10

我昨天在论坛看的，好像是有人这么说。

[yxp]小蜜蜂 22:22:36

没试过

[LC100]建筑设计 22:22:42

哦。

我有好多功能编写好了，都来都不用了，一改，天正老挂

[LC100]建筑设计 22:23:29

你有试过有vlisp么？

纯lisp我知道绝对挂

[mitenickevin]kevin 22:24:35

也一样，我觉得是天正为了保护自己的图元。对接口有限制。

[LC100]建筑设计 22:25:23

哦，那他妈的，他的帮助里面都写着修改组码那些东西我们。

[mitenickevin]kevin 22:26:52

那就是个骗子，一改就挂。我这还咨询过天正，没有回应。

斯维尔建筑就不会。

[mitenickevin]kevin 22:28:28

喜欢编程操作建筑的，大力推荐用斯维尔.
这个和天正功能一样。且程序接口都支持。

[LC100]建筑设计 22:28:28

斯维尔我也在用，的确没这个问题，不过目前斯维尔还不是很好用。有个别功能不爽，叫他们改了，他们没改，后来我就不用了。

[mitenickevin]kevin 22:29:20

斯维尔我用也没有什么问题。

[LC100]建筑设计 22:29:41

我节能都用斯维尔的啦

[mitenickevin]kevin 22:29:46

天正要是支持提供的接口就好了。

我节能用PKPM

日照用天正

[LC100]建筑设计 22:30:40

哦

设计用天正么

[mitenickevin]kevin 22:33:20

我有时用斯维尔

[LC100]建筑设计 22:33:50

我试了一个工程用了一回，后来就不用了

[流动的清泉][权心权意] 22:33:58

能执行了，谢谢大家！

明经快报

[LC100]建筑设计 23:08:48

有什么办法快速找出多余括号

[yxp]小蜜蜂 23:09:11

vl 编辑器

[LC100]建筑设计 23:09:44

[qqimg]oldimg/{D611A538-DA0A-81FE-006D-0387BF41526E}.jpg[/qqimg]

[yxp]小蜜蜂 23:09:50

加载检查

shift + F11

[LC100]建筑设计 23:11:21

哦，试一下

[yxp]小蜜蜂 23:12:16

工具 检查编辑器中的文字

[野狼谷]笨鸟 23:14:20

用格式按钮

[LC100]建筑设计 23:14:40

没找到，现在只找到是那个文件出了问题。

[LC100]建筑设计 23:17:11

可以了，开始爱上这个编辑器了。

[yxp]小蜜蜂 23:17:54

也就是查错误语法用一下，平时不用。

[LC100]建筑设计 23:18:20

比较好用嘛

[yxp]小蜜蜂 23:18:34

个人习惯吧

[LC100]建筑设计 23:18:45

呵呵

[yxp]小蜜蜂 23:19:42

黑色背景还是好些，眼睛不累

[qqimg]oldimg/{92268F92-10C3-825F-8A03-1E19656B62BA}.jpg[/qqimg]

[LC100]建筑设计 23:20:43

这个容易看哦。

好像有个中文的编辑器啊。不过不知道在那找。

[wjaub]爱之微 23:22:06

[不死猫][nonsmall]不死猫 23:27:14

[qqimg]oldimg/{E87B209F-4DC6-DB15-552C-940C3AC15C40}.jpg[/qqimg]

[fsxm]飞诗 23:31:29

还有lisplink好用么？

[fsxm]飞诗 23:32:52

如果变量重命名一个，别的跟着变就爽

有时改个变量名也是个麻烦事

[fsxm]飞诗 23:34:03

正则替换可以实现

[LC100]建筑设计 23:36:43

哦，我知道好像有个飞诗工具

[fsxm]飞诗 23:37:37

[qqimg]oldimg/{9F8757B3-0C49-35B3-BDC7-4CFBA34B0A63}.gif[/qqimg]飞诗工具不是编辑器

[LC100]建筑设计 23:37:57

我是说你编写了个工具，我没说他是编辑器

[yxp]小蜜蜂 23:39:22

飞诗的DCL啥时候放出来？

只见打雷不见下雨

[LC100]建筑设计 23:40:35

问飞诗

海飞诗

[fsxm]飞诗 23:40:57

哎，

[yxp]小蜜蜂 23:41:06

咋了？

[fsxm]飞诗 23:41:08

现在忙

N多事，没啥时间搞dcl

现在搞lisp编辑器

【7299969】人生 23:42:21

问下，net2002是编cad06用的吗

[fsxm]飞诗 23:43:25

net2002是啥

【7299969】人生 23:43:38

C++

【7299969】人生 23:44:56

我发现编个程序很不容易，这个VS版本颇多，程序还大，网上下载都找不到北

【7299969】人生 23:45:26

直接死在起跑线上

[yxp]小蜜蜂 23:45:43

用lisp么

基本上各个版本都一样

【7299969】人生 23:46:18

伙哪个灰可以，哪个都不会

[fsxm]飞诗 23:49:55

[qqimg]oldimg/{9F8757B3-0C49-35B3-BDC7-4CFBA34B0A63}.gif[/qqimg]是vs吧，乍成了net2002了

[798146410]背 23:50:55

http://www.baidu.com/link?url=-H ... _gowYNtO8PU1wSmkdwa