2013-06-24 明经 AutoLISP 编程(102918348) 群聊记录：[image={DA69B7D2-90F7-9D4C-E525-A6CBFF

明经快报

[xiaomm250][lisp](car (entsel)) 17:31:45

在dcl对话框中输入的东西,是全局变量吗

[vormittag]桔子 17:32:40

跟是否是dcl输入没有关系。

[xiaomm250][lisp](car (entsel)) 17:33:17

那难道不属于变量吗

[野狼谷]笨鸟 17:38:38

应该都不是

[328302216][328302216]小莫 17:41:56

暂时没遇到过这种情况，所以对这个全局变量和局部变量只是微懂

[xiaomm250][lisp](car (entsel)) 17:48:55

那dcl对话框中输入的是什么?

[ruirui9]睿睿哥 17:55:16

请教 一下 程序运行后 命令行末的
print 末产生的nil如何能让不显示？

[kwok][kwok]巭隼 17:56:11

setvar "cmdecho" 0

[阿然][阿然] 17:57:38

(princ)

[ruirui9]睿睿哥 17:59:24

还是有哇

(princ (strcat " 共打印了" (itoa i) "张图纸")) 
(princ)

是这么用么？

[qqimg]oldimg/{41DED167-E261-E20E-3043-52C4AC352C00}.jpg[/qqimg]

还是出现了这个nil

[ruirui9]睿睿哥 18:00:59

求赐教

明经快报

[流动的清泉][权心权意] 18:12:00

后面加个prin1就很好了

[ruirui9]睿睿哥 18:12:37

我知道为什么了 是我在之前回收变量引起的

我用了(setq xxx nil)

呵呵 要是这个不出来nil就好了

明经快报

[永不言弃]梦 18:27:20

(defun c:TT()
  (setq osmode_bak(getvar "osmode"))
  (Setvar "osmode" 0)
  (setq pt (getpoint "  输入指定点:"))
  (setq ss (getdist "  输入门宽："))
  (setq pt1 (polar pt 0 0.4))
  (setq pt2 (polar pt1 (/ pi 2) 1.6))
  (setq pt3 (polar pt2 0 ss))
  (setq pt4 (polar pt3 0 0.4))
  (setq pt5 (polar pt4 (/ pi -2) 1.6))
  (command "dl" "143701" "1" pt pt1 pt2 "")
  (command "dl" "143701" "1" pt3 pt4 pt5 "")
  (Setvar "osmode" osmode_bak)
  )

这个会出错

请教一下怎么修改一下

[永不言弃]梦 18:29:02

[qqimg]oldimg/{A751B507-04A0-F677-9AF7-E448F8202DF5}.jpg[/qqimg]

[286168051]勤龙 18:29:42

自己写程序 不要调用CASS内部命令

[永不言弃]梦 18:30:12

是我自己写的

就是会出错

[286168051]勤龙 18:30:34

(command "dd

这个就是错误

[永不言弃]梦 18:31:10

要怎么改呢

[286168051]勤龙 18:31:23

CASS是ARX命令 限制你了

自己写 不调用CASS的命令

[永不言弃]梦 18:31:58

那还要修改属性啊

[286168051]勤龙 18:33:09

附加扩展数据xdata

[永不言弃]梦 18:34:31

不会玩啊

[286168051]勤龙 18:38:03

看教程吧 我没时间了

搜索一个函数 setxdata 上网去搜

[永不言弃]梦 18:38:29

好的，谢谢

[286168051]勤龙 18:40:34

照着这个例子弄

[永不言弃]梦 18:48:02

好的，谢谢

[286168051]勤龙 18:48:24

南方编码 south

明经快报

[xieling888] 18:58:27

群里谁比较懂LISP啊

请教个问题

[q530496591][q530496591]小菜鸟 18:58:59

这话问得真有水平

[xieling888] 19:00:03

大家都是高手啊

[永不言弃]梦 19:07:29

请教一下，这个执行时是空的

(command "copy" (entget (entlast)) pt pt3 "")

[286168051]勤龙 19:07:55

(setq las(entlast))
(command "copy" las "" pt pt3)

[永不言弃]梦 19:08:56

可以了，谢谢

[yxp]小蜜蜂 19:11:18

采用 "WScript.Shell" 的 Sendkeys 方法可以发送按键，请问截取按键是哪个？

[mmh1][mmh1]漫步地球 19:12:07

难道是传说中的。。。。。。

[yxp]小蜜蜂 19:12:37

getkeys ? 肯定不对

明经快报

[Casa小宝]Cas 20:33:40

几个建筑层，相同位置的图元同时编辑，大家有什么好的思路么？（除了做块）

明经快报

[lisp-study]jun 20:59:28

参照

[Casa小宝]Cas 21:04:42

想做个类似pkpm层间编辑的功能

[lisp-study]jun 21:05:59

你每一层都是一个dwg？

[Casa小宝]Cas 21:06:33

同一个dwg里的

[Casa小宝]Cas 21:07:51

不同层相同位置的图元可以一起编辑的话，相信可以节省不少时间

[lisp-study]jun 21:09:26

好像只有做块吧

[Casa小宝]Cas 21:11:26

是的，但是假如能脱离块去做的话就更好了

[lisp-study]jun 21:15:08

那样的话块就没有意义了

[Casa小宝]Cas 21:22:36

概念稍有不同，块的编辑是强制性的，自己去比较两个图的异同则是更为灵活的方式

[Casa小宝]Cas 21:25:14

可以编辑其中一层之后，再确定是否让其他层也按相同的方式修改

[lisp-study]jun 21:25:44

这个可以

【7299969】人生 21:32:12

有源码吗

[ZZXXQQ] 21:32:38

啥源码？

【7299969】人生 21:33:05

刚才那个图形编辑的

[ZZXXQQ] 21:33:51

上面贴的都是源码

[lisp-study]jun 21:35:13

Z版 有没有带记忆功能的打开文件的函数

[ZZXXQQ] 21:35:27

没有

[lisp-study]jun 21:35:36

同时可以获取多个文件的路径

[ZZXXQQ] 21:35:40

自己写个

怎么同时？

[lisp-study]jun 21:36:34

[qqimg]oldimg/{958632B2-54BE-7936-8ECD-F635D1F90920}.jpg[/qqimg]

[lisp-study]jun 21:37:22

这个就是没有记忆功能 每次都要选路径 不好

[ZZXXQQ] 21:37:38

这只能选多个文件，不能同时获取多个文件的路径

[lisp-study]jun 21:37:50

能啊

[ZZXXQQ] 21:38:38

不能

[lisp-study]jun 21:39:16

我就在用呢 以表的形式返回

[ZZXXQQ] 21:39:44

只能返回同一路径下的多个文件

[lisp-study]jun 21:40:48

一般就是这样的撒

想改进下 能记忆

[ZZXXQQ] 21:41:13

所以不能同时获得多个路径

[csc123456]顽强 21:41:42

[qqimg]oldimg/{B0882394-CBF1-D1CF-6F51-6A0ADD9DB2AD}.gif[/qqimg]

[vormittag]桔子 21:41:57

用个全局变量，把路径存进去就行了。

[lisp-study]jun 21:42:18

这个我想过 好像行不通

[Casa小宝]Cas 21:42:22

生成个保存路径的txt，下次使用的时候read

[vormittag]桔子 21:42:34

，还放这个图呢

[vormittag]桔子 21:43:40

用注册表，用users1~5都行。

存个txt也是办法。

[lisp-study]jun 21:46:17

txt挺实惠的

[vormittag]桔子 21:47:28

自己用无所谓，给别人用就怕他大大咧咧地给你删了。

[lisp-study]jun 21:47:43

[Casa小宝]Cas 21:48:12

注册表的话是怎么保存呢？

[lisp-study]jun 21:48:17

有没有调用系统文件夹的例子呀

[vormittag]桔子 21:51:51

vl-registry-write 和 vl-registry-read

[Casa小宝]Cas 22:00:54

嗯嗯，这方法不错
http://bbs.mjtd.com/forum.php?mo ... mp;page=1#pid587525
【讨论】保存程序系统变量