2013-06-10 明经 AutoLISP 编程(102918348) 群聊记录：用open新建的文件存放在那里了？

明经快报

孑孓空灵 08:50:25

用open新建的文件存放在那里了？

明经快报

[kwok][kwok]巭隼 09:05:52

你说模板？

[OWEN7]ya雀无声 09:06:24

(setq zkw1 "600")
  (vl-registry-write "HKEY_CURRENT_USERExample1" "zw1" zkw1)

怎么样把这个600写入 注册表中

明经快报

[simpleye][simpleye]郑大钱 10:09:45

[qqimg]oldimg/{70A9E72B-3E88-2C2A-6A2A-CE432E7E72FD}.gif[/qqimg]

双击图片有福利哦

[OWEN7]ya雀无声 10:10:18

[simpleye][simpleye]郑大钱 10:11:15

[qqimg]oldimg/{56412934-F475-A440-4EB4-0139F18A4795}.gif[/qqimg]

[simpleye][simpleye]郑大钱 10:11:53

人之初，群冷淡，你调皮，我捣蛋。群主是个大坏蛋天苍苍，野茫茫。群主经常上错床读书苦，写字累。所以群主去敲背情 深深，雨朦朦。群主是个毛毛虫。问世间群为何物。忙得群主走错屋有群就转啊。让群主高兴一下提前祝群主及大家“端午节快乐

明经快报

[阿然][阿然] 10:22:24

[qqimg]oldimg/{F51C3F94-C7C7-8145-FB96-784CFAEA37CF}.jpg[/qqimg]什么时候明经也不安全了？

[AMKYUD][AMKYUD]??? 10:24:50

打开没问题啊

明经快报

[mccad][MCCAD] 10:46:01

因为有一个黄色垃圾信息的帖子被TX搜索到，已经向TX反映了，但要等他们 上班才能处理。

[HNFSF](看海) 10:51:15

(SSGET ":s")和（ssget "_C" T1 T2)能不能同时用

类似（ssget ":s")

[pzweng]路人 10:52:30

你试试看

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

; 错误: 错误的 ssget 模式字符串

[HNFSF](看海) 10:53:00

试了N多，不能用

[pzweng]路人 10:53:36

：S是什么意思

C的参数需要两个点

:S与C相冲突

[HNFSF](看海) 10:54:20

这样都可以

:S   仅允许单一选择集。

C  窗交。

没有冲突的必要

[pzweng]路人 10:55:49

怎么没有

[HNFSF](看海) 10:57:12

窗交选一个选择集就结束ssget

[zz0147]-依然 10:57:44

天杀的骗子！
骗局又升级了，一定要看。必须看！！！


 一个目前较高级的骗局 这是真人真事，引以为戒哦最早看到下面这条新闻时不以为然，但最近身边的朋友真的碰到了，就在身边，在上海，就在上周末天气不错，朋友夫妇带儿子去植物园，骗子趁朋友离开上厕所之际让他太太帮忙拍照，结果那个相机怎么都拍不清楚，还回去的同时他太太明显感觉神志开始不清，牢牢抱紧儿子后立刻给先生打电话，最终没让骗子得逞，太太失去意识20分钟，想想仍心有余悸。大家千万当心，独自带孩子出去的务必管好孩子先！！！ 最近出现骗子让单独带孩子的家长帮忙照相，当家长拿着相机拍照的时候就会出现眩晕。然后孩子就被抱走了。沈阳出现两起了。请告诉周围妈妈们注意！ 如果愿意， 把这条信息发给你知道的群。现在丢一个孩子会要了一个家庭的命,请为了儿童转发！功德无量！举手之劳可能就会挽救一个家庭！。 以后的骗局会比这还高明，看完了别忘转

[HNFSF](看海) 10:58:11

":s",就是ssget只选择一次就结束

[pzweng]路人 10:59:08

后面的参数呢

所以冲突了

明经快报

[OWEN7]ya雀无声 11:58:33

[qqimg]oldimg/{98F9DDC0-AF83-DE5B-EF3B-0E65F20E5A14}.jpg[/qqimg]这个可以加载LISP吗

[LC100]建筑设计 12:00:02

可以

[LC100]建筑设计 12:03:05

需要用户输入如：

t8、t9、节能这一类的字是怎么写的?

[LC100]建筑设计 12:03:40

是如何提示用户输入  如要输入长度就是getdist

输入这种文本类的是什么呢。

[阿然][阿然] 12:06:09

(initget "T8 T9 节能 ")(setq di(getdist " 输入长度:"))然后根据di的type判断

[LC100]建筑设计 12:06:21

不是这种

[pzweng]路人 12:06:26

那是反应器吧

[LC100]建筑设计 12:06:40

我要求的是提示用户“请输入内容”

内容可包含文字、数字、等类型

明经快报

[流动的清泉][权心权意] 12:29:16

有谁会操作cad的幻灯片啊！

[流动的清泉][权心权意] 12:30:09

[qqimg]oldimg/{B852A0D4-E2BB-6556-0D32-61A0D718A55B}.jpg[/qqimg]

[qqimg]oldimg/{035686D6-C043-BD02-5396-A4864E614142}.jpg[/qqimg]

[流动的清泉][权心权意] 12:31:21

总是没有办法让图像充满整个dcl图形！

[pzweng]路人 12:31:41

跟转WMF一个原理

[流动的清泉][权心权意] 12:33:57

图形会制作，但图像在方框内不能很好的显示，就像打印一样，可以打印，但是打印的范围不对！

[流动的清泉][权心权意] 12:36:21

我的电脑是15.9的屏幕，要是z e显示的话，就是第一个图，把图拉大了，就是第二个图显示！

[流动的清泉][权心权意] 12:38:39

我揣想，将图像的比例和屏幕的比例调成一样的，然后再z e 显示！

[pzweng]路人 12:40:19

[qqimg]oldimg/{644E107C-C58D-C5D0-8226-3FEA847AAA46}.jpg[/qqimg]
要调这个

[流动的清泉][权心权意] 12:44:46

还是不行！

[qqimg]oldimg/{7B2F49DC-E5C5-3D01-BBD0-8D6D482BD2C8}.jpg[/qqimg]

[pzweng]路人 12:45:21

慢慢试吧

[流动的清泉][权心权意] 12:46:21

呵呵，可能cad屏幕的比例，而不是电脑屏幕的比例！

[pzweng]路人 12:47:49

是的

自己慢慢试吧

[流动的清泉][权心权意] 12:48:26

明经快报

[LC100]建筑设计 13:24:51

某个全局变量不存在或未定义时执行其它程序应该怎么写？

(if (null 变量) (操作))

是这样写吗？

[LC100]建筑设计 13:30:00

写完了

[OWEN7]ya雀无声 13:32:18

是

明经快报

[water_system][mingdi]shenshen 13:57:25

实数转整数怎么是吸纳

实现

[LC100]建筑设计 13:59:03

[qqimg]oldimg/{07045A41-9E7E-92DA-8CB5-51803A8CA4D1}.jpg[/qqimg]
如何取得该命令是未知命令.

[pzweng]路人 14:00:27

if

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

怎么写啊？

(if (null 命令) (操作))

这样吗？

路人兄

[pzweng]路人 14:11:21

(if C:123(princ "ok"))

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

我那种是外部命令

是天正的命令

[pzweng]路人 14:15:21

试试看看

[LC100]建筑设计 14:15:42

好的

[LC100]建筑设计 14:18:14

不行

有也提示，没有也提示

细雨 14:20:33

请教小，lisp 自带编辑器，出错了，怎么知道，是哪一行出错了

[kwok][kwok]巭隼 14:21:43

错误跟踪

视图view

[LC100]建筑设计 14:28:02

搞定判断天正版本的方法了，实在是太兴奋了。。。。

[kwok][kwok]巭隼 14:28:29

分享一下方法

[LC100]建筑设计 14:29:11

利用天正内部命令设定变量，如果变量值为设定值就说明这个命令可行，然后就可以判断天正版本了。

(defun c:tes (/ tcbl)
(command "T91_TPScale" "123")
(setq tcbl (getvar "hpscale"));取得填充比例
(if (= tcbl 123) (princ "T9") (princ "t8"))
  );end

我这个是判断天正8 天正9的方法

[kwok][kwok]巭隼 14:30:04

fzhemail高望晴岚 14:34:36

好

[LC100]建筑设计 14:36:47

所以说没有做不到，只有想不到。

[kwok][kwok]巭隼 14:38:21

[qqimg]oldimg/{0DB628D1-8067-5A68-EB79-056FE98E70A1}.jpg[/qqimg]取得上面白线的顶点后，怎么排成下面红线那样顶点?

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

有点难道

主要是坐标点没法排序

[LC100]建筑设计 14:41:19

每个坐标点之间长度是可以计算出来，主要是如何画得出来，这种情况很复杂的。

[kwok][kwok]巭隼 14:42:09

画线不是在顶点排成一排后，连线不就出线了

[LC100]建筑设计 14:42:56

未知命令“123”。

像这种提示能不能关闭不显示?

[kwok][kwok]巭隼 14:43:41

查一下，看是不是多一个""

[kwok][kwok]巭隼 14:44:20

还有加上cmdecho设为0

[LC100]建筑设计 14:45:33

加上了，还是显示

(progn
(setvar "cmdecho" 0)
(command "T91_TPScale" "123")
(setq tcbl (getvar "hpscale"));取得填充比例
(if (= tcbl 123) (setq tzbb "t9") (setq tzbb "t8"))
(setvar "cmdecho" 1)
  );progn

[kwok][kwok]巭隼 14:46:05

一般是提示未知命令就是多了一个""

[LC100]建筑设计 14:46:21

我这个命令本身是不存在的。

我只是不想让他提示这个东西而已。

[kwok][kwok]巭隼 14:47:05

(princ)最后加上这个试试

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

还是显示了

细雨 14:48:35

(setq selsp (getfiled "选择lisp" "c:/"  "lsp" 24))

(setq len1 (strlen selsp))
  (setq n 1)
  (repeat  len1 
  (setq mm (substr selsp  n 1))
  (if (= mm "")   
  (setq selsp (strcat (substr selsp 1 (- n 1)) "/" (substr selsp (+ n 1) (- flen1 n) ))))
  (setq n (1+ n))
  )
  (setq str1 (strcat "(load "" selsp """ ")"))

谁能帮我看下这段代码哪里错了

[kwok][kwok]巭隼 14:49:15

(setvar "cmdecho" 1);;加在这个后面
(princ)
)

[LC100]建筑设计 14:49:39

刚才加了，还是显示啊，你测试了没有？

[kwok][kwok]巭隼 14:49:39

不行就不不清楚了

[LC100]建筑设计 14:54:11

[qqimg]oldimg/{544B13F2-A755-E522-CC3B-57CE49092DE6}.jpg[/qqimg]

想了一下，这个应该是可以做得出来的。

但我不会做。

因为在特性中是可以查得到每一个点的顺序

[kwok][kwok]巭隼 14:57:16

肯定可以啦，主要是点排序，只是水平有限，还没到那程度，之前找到一个，但对闭合的线最后会少一点，也就是少了一段，那码是高人写的看不懂

[pzweng]路人 14:58:29

(if (C:db)(princ "ok"))

明经快报

[LC100]建筑设计 15:12:41

自己编写的命令是没命令的。但外部命令就不行了。