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

明经快报

[天财]天财 01:16:30

[qqimg]oldimg/{DA69B7D2-90F7-9D4C-E525-A6CBFF438787}.gif[/qqimg]

明经快报

[天财]天财 03:33:35

help

[ds-limt]-厨师木 03:37:54

[天财]天财 03:38:05

[ds-limt]-厨师木 03:38:42

休息吧

[天财]天财 03:38:57

不打算休息

明经快报

[Lwcdgl]coming 10:17:17

nil属于字符串吗

[阿然][阿然] 10:17:38

nil是值

[Lwcdgl]coming 10:18:48

哦，如果转换成字符串是不是用rtos

[OWEN7]ya雀无声 10:19:02

这个为什么不行

[vormittag]桔子 10:20:03

用11 不用 10

[OWEN7]ya雀无声 10:21:03

用11，  72 73  怎么设

[duxi15]清泉 10:21:03

请问下，我一张图用了外部参照，在布局内1:300出图并标注，把标注样式比例因子设成1/300，标注外部参照之外的线很正常，一标注到外部参照的墙线等时，比例因子就又会变成1来标注了，怎么好解决呢？谢谢大家了

[OWEN7]ya雀无声 10:21:32

知道了

[vormittag]桔子 10:21:47

而且参数都不对应。

[OWEN7]ya雀无声 10:22:26

t_11错了

[阿然][阿然] 10:23:43

nil转不了字符串，要字符串只能"nil"

[xiaomm250][lisp](car (entsel)) 10:24:33

[qqimg]oldimg/{2EEB7367-6A93-79C5-34CB-1E8005342CC2}.jpg[/qqimg]  这个滑动条只要点一下,dcl对话框就没有了,那么如何让对话框长久地存在呢?我只有dcl文件

[Lwcdgl]coming 10:24:52

谢谢亚然

[OWEN7]ya雀无声 10:29:20

11是坐标吗。还是不行

[阿然][阿然] 10:30:59

11是对齐点，10是插入点

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

[qqimg]oldimg/{AB81EB8F-5A68-5AFA-25D4-82FA54854B57}.jpg[/qqimg]

[OWEN7]ya雀无声 10:31:41

怎么样才能生文字，在一条线中点上方

[阿然][阿然] 10:32:16

先生成文字，不要11组码，然后获取文字append11组码

我都是用这个笨办法

[OWEN7]ya雀无声 10:32:58

晕掉了，不会

[vormittag]桔子 10:33:03

可以直接用11， 不用10.

[OWEN7]ya雀无声 10:33:28

帮忙改改

实在不会了

[OWEN7]ya雀无声 10:34:41

就是 有一个插入点， 然后生成文字的代码。

明经快报

[tryhi]大海 12:03:48

[qqimg]oldimg/{838CBDAC-DC15-0B61-5A1C-28DF9A60F44A}.jpg[/qqimg]
请问一下，在CASS里面，选中一条复合线，它的角点不显示出来，这样没办法拖动，请问有什么办法解决

[永不言弃]梦 12:11:48

请教一下，用tt测试时提示: tt
 输入指定点:
 输入门宽：3 未知命令“TT”。按 F1 查看帮助。
未知命令“TT”。按 F1 查看帮助
[qqimg]oldimg/{3547932B-87A6-9475-B769-2D2911E22349}.jpg[/qqimg]

(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)
  )

明经快报

[OWEN7]ya雀无声 13:56:59

[qqimg]oldimg/{14555B65-D4F5-5C7F-1B97-6AD7CBABD78A}.jpg[/qqimg]

这个标注为什么是这样，不能是右边那样吗，用entmake做的

[OWEN7]ya雀无声 13:58:01

那个文字扭了180

明经快报

笑对人生 14:20:39

ya雀无声,(DEFUN C:T5()
(t_mak "TEXT" t_10 (getpoint " 点取插入点：") "%%1328@200" 300 0.7 "tssd" 0 0 1 )

这个找到原因了么

[OWEN7]ya雀无声 14:21:00

没有

笑对人生 14:21:09

呵呵，我知道了

已经解决

[OWEN7]ya雀无声 14:21:21

什么。

很郁闷，我已经重新写一个简单的了

你怎么解决的

笑对人生 14:22:16

(cons 11 t_11)  这项要求的是坐标

你如果不构建坐标，建议去掉

[OWEN7]ya雀无声 14:23:18

我直接就这样了

懒得写通用函数。

笑对人生 14:23:31

另(l_n t_10 t_11 t_t t_h t_w t_st t_50 t_72 t_73 这些参数和程序中的顺序你在好好看看

[OWEN7]ya雀无声 14:24:01

恩，顺序我已经理过了。

笑对人生 14:24:10

再就是生成字符样式这个(cons 7 t_st)

上面两个问题处理要，就没有问题了

但是输出结果是NIL

[tryhi]大海 14:24:55

[qqimg]oldimg/{838CBDAC-DC15-0B61-5A1C-28DF9A60F44A}.jpg[/qqimg]
请问一下，在CASS里面，选中一条复合线，它的角点不显示出来，这样没办法拖动，请问有什么办法解决

[OWEN7]ya雀无声 14:25:02

(cons 7 t_st) 是不是因为没有TSSD样式

先创建TSSD样式。

笑对人生 14:25:19

将(cons 7 t_st)取消后，就OK了

呵呵

[OWEN7]ya雀无声 14:25:48

这个通用函数 又不行。还是不明白，所以就放弃了。

笑对人生 14:25:53

我没有式样过，但我猜测可能是的

[OWEN7]ya雀无声 14:26:36

(st_mak (0 0 0.7 0 "tssdeng" "tssdchn" "tssd"))

[OWEN7]ya雀无声 14:27:29

你试试创造文字样式 可以用吗

笑对人生 14:27:43

好的

[OWEN7]ya雀无声 14:27:47

我这不行，百思不得其解

[OWEN7]ya雀无声 14:28:19

(st_mak (0 0 0.7 0 "tssdeng.shx" "tssdchn.shx" "tssd"))

笑对人生 14:29:53

这是调整通过后的程序，你试试

[OWEN7]ya雀无声 14:30:25

可以

[野狼谷]笨鸟 14:31:10

这个程序有啥价值？

[OWEN7]ya雀无声 14:32:34

试试这个

创建TSSD样式，

[野狼谷]笨鸟 14:33:27

(command "style" "Small_Text" "" "" "" "" "" "" "")
     (command "text" "j" "mc" 3 R 0 "1234" "" "")

[OWEN7]ya雀无声 14:33:53

command不好，不能指定图层，不能指定样式

你这样会改变当前样式，

[野狼谷]笨鸟 14:34:17

提前设图层呗

[OWEN7]ya雀无声 14:34:26

会改变当前图层

[野狼谷]笨鸟 14:34:31

(setvar "clayer" "11")

笑对人生 14:34:35

成功了

[OWEN7]ya雀无声 14:34:55

啊

我的为什么不能

你修改了什么吗

笑对人生 14:35:27

先判断是否存在文字样式，如存在，直接采用，否则建立

[野狼谷]笨鸟 14:35:28

我觉得字体最缺还是定义一种英文、中文、符号、数字都很均匀的字体

[OWEN7]ya雀无声 14:35:34

恩，

[野狼谷]笨鸟 14:36:02

比如HZTXT就不错的，但是英文、数字字母偏大，不美观

笑对人生 14:37:43

这样，就没有问题了

笑对人生 14:38:13

"standard"是要生成的字体样式，先判断是否存在文字样式，如存在，直接采用，否则建立

[OWEN7]ya雀无声 14:38:15

那个创造样式的 可以用 吗。。。 T5可以用了的

笑对人生 14:38:30

t5可以用了

在用之前要先判断是否存在文字样式，如存在，直接采用，否则建立

[OWEN7]ya雀无声 14:39:09

恩，

就是 之前的创建样式的函数，我这不能用，

笑对人生 14:40:15

你用这个试一下

[OWEN7]ya雀无声 14:40:53

T5可以用，  T6不能用，

笑对人生 14:41:03

呵呵

，我还没看 t6呢

[OWEN7]ya雀无声 14:41:39

T5的问题在于样式时候存在，现在T5可以用了

是否

现在只有T6不能用，看看为什么呢

笑对人生 14:42:06

对呀

笑对人生 14:42:56

t6是样式么

[OWEN7]ya雀无声 14:43:07

是的

笑对人生 14:43:18

呵呵，你是高手呀

[OWEN7]ya雀无声 14:43:35

……

关键是不能用，感觉是可以用，

笑对人生 14:43:52

我看看

笑对人生 14:45:59

怎样查看实体样式DXF码呀

[OWEN7]ya雀无声 14:47:13

通用函数  检查是否存在文字样式，如无创建之              
;;;参数：t_70-----标准标记值一般为0
;;;      t_h------固定的文字高度；如果文字高度未固定，则为 0
;;;      t_w------宽度因子(实型)
;;;      t_50------倾斜角度(实型)
;;;      t_3------主要字体文件名(字符串)                
;;;      t_4------大字体文件名；如果无，则为空(字符串)，想为空将其设为nil                      
;;;      t_n------文字样式名(字符串)

笑对人生 14:55:39

怎样查看文字样式呀

[OWEN7]ya雀无声 14:55:54

？

笑对人生 14:55:54

有没有办法呀

[OWEN7]ya雀无声 14:56:15

我没带那本书

笑对人生 14:56:36

我对样式的内容不了解呀

我看看

[OWEN7]ya雀无声 14:58:17

看到么

[qqimg]oldimg/{1D802680-DBD6-8EFC-5E72-36E9BD854242}.jpg[/qqimg]

笑对人生 14:58:36

看到了

谢谢

[阿然][阿然] 15:07:57

[qqimg]oldimg/{0674A63E-2087-76B3-A45A-D774440E5393}.jpg[/qqimg][qqimg]oldimg/{76CFDF34-8174-17F5-98C4-7E91DAB2EEB1}.jpg[/qqimg]

[雨的节奏][雨的节奏] 15:11:22

(command "pline" pt1 pause)

多线段可以这样画吗？

明经快报

笑对人生 15:23:06

字形很复杂

笑对人生 15:24:13

使用大字体，和不 使用大字体是两种形式，此外还有一种使用中文字体

[OWEN7]ya雀无声 15:24:14

没成功吗

笑对人生 15:24:22

三种形式，要考虑

没有成功

[OWEN7]ya雀无声 15:24:38

看来要用COMMAND了

笑对人生 15:25:18

如果，想成功，要分三种都考虑一下

那样应该可以实现

实现应该可以

[OWEN7]ya雀无声 15:26:10

太复杂没必要

command很简单

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

(command "pline" "non" pause)
  (setq en (entlast)
        endata (entget en))

我这样得到的endata很奇怪啊

画的是这个图

[qqimg]oldimg/{F51C1A51-2ADB-36D8-925F-5959E176A451}.jpg[/qqimg]

命令: !endata
((-1 . ) (0 . "LWPOLYLINE") (330 . ) (5 . "1B29") 
(100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "bianhao") (62 . 1) (100 . 
"AcDbPolyline") (90 . 1) (70 . 0) (43 . 0.0) (38 . 0.0) (39 . 0.0) (10 15056.8 
15620.5) (40 . 0.0) (41 . 0.0) (42 . 0.0) (210 0.0 0.0 1.0))

却得到这个dxf

90 竟然是1

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

你的pline都没画出来

[雨的节奏][雨的节奏] 15:28:54

噢、、求指点

[LC100]建筑设计 15:29:18

(command "pline" "non" pause)
你的pline是你手工画完的么？

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

是啊

笑对人生 15:29:42

你就指定一点，那三个点是手点的

呵呵

90表示什么意思呀

[LC100]建筑设计 15:30:11

我也想知道90是什么。

[雨的节奏][雨的节奏] 15:30:15

线段的段数

笑对人生 15:30:31

我看看

[雨的节奏][雨的节奏] 15:30:46

具体要怎么写、、entlast才正确啊

[LC100]建筑设计 15:30:48

把那个pause删除

我刚才查了，是正常的。

[雨的节奏][雨的节奏] 15:31:29

还是不正常、、、

笑对人生 15:31:41

看了，90表示多段线的点数

[LC100]建筑设计 15:31:46

一个pline线，最少是2，那个是点数，不是断数

笑对人生 15:31:47

不是线段数

笑对人生 15:32:28

你那个点数应该是4

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

先告诉我怎样才能用entlast选择到画出来的线啊

笑对人生 15:33:27

你用(entget(car(entsel)))点选那个实体，看一下有几个点

[雨的节奏][雨的节奏] 15:33:30

怎么经常选出来的东西不正常、、

用那个没错

直接输入（entget en)

也没错

笑对人生 15:33:52

你生成后，既用就没有问题了

[雨的节奏][雨的节奏] 15:34:05

用move命令测试也没错

但是为什么会出现怪问题

我想把线段的所有点求出来

可经常求出来的数量不对

笑对人生 15:34:54

呵呵，没有什么不正常的，肯定是有些因素没有考虑到

[OWEN7]ya雀无声 15:37:17

(command "style" "TSSD" "tssdeng,tssdchn.shx" "0" "0.7" "0" "" "" "")

明经快报

[OWEN7]ya雀无声 15:57:48

SLD文件怎么做的，我记得是另存为，就可以了，但现在找不到

笑对人生 15:58:28

有一个程序是专门做幻灯片的

[OWEN7]ya雀无声 15:58:54

CAD2014直接可以另存为，好像，

笑对人生 15:58:58

“ya雀无声”，你学习多长时间了

[OWEN7]ya雀无声 15:59:04

我在家就可以

家里用 的是 2014

笑对人生 15:59:19

不知道，没有装2014年

[OWEN7]ya雀无声 15:59:22

时间不是很长，

笑对人生 15:59:25

那更好了

[OWEN7]ya雀无声 15:59:47

学的不好

总是犯错

笑对人生 16:00:14

时间不很长，就能达到这样的造诣，可以了

[OWEN7]ya雀无声 16:01:13

你有做SLD的程序么

我找到了一个，小萝卜头的

笑对人生 16:01:48

没有，我记得有一本说有，回家找一下，应该没有问题

[OWEN7]ya雀无声 16:02:01

http://bbs.mjtd.com/plugin.php?i ... om%2F116108270.html

[mmh1][mmh1]漫步地球 16:02:33

slide

错了

[OWEN7]ya雀无声 16:02:44

你怎么解决的

[mmh1][mmh1]漫步地球 16:05:26

mslide

[OWEN7]ya雀无声 16:05:45

对对，

记得来了，

[mmh1][mmh1]漫步地球 16:06:24

比例不好调，总是太小了！

[OWEN7]ya雀无声 16:07:18

这个怎么调的

明经快报

笑对人生 16:17:57

咨询一下：;;;=========================={ 镜像命令改造 wowan1314 }=================================
;;;功能：如果想删除源对象，点下即可，(省的输入Y才能删除)
(defun c:YY-MIRROR ( / SS T)
 (SETQ SS (SSGET ""))
 (command "MIRROR" SS "" pause AUSE)
 (SETQ T (GETPOINT " 选点删除源对象:"))
 (IF T (COMMAND "Y") (COMMAND ""))
 (PRINC)
)

笑对人生 16:18:44

这个程序中，(command "MIRROR" SS "" pause AUSE)这条语句
为什么用两个PAUSE

[pzweng][pzweng]路人 16:20:07

用户自己操作

笑对人生 16:21:59

明白

[pzweng][pzweng]路人 16:22:08

群昵称修改为“[论坛用户名]网名”格式，如果你未加入明经CAD社区，请先到http://bbs.mjtd.com注册用户。

笑对人生 16:22:42

主要就是我想明白，在用什么命令情况下用一个，什么情况下用两个，。。。

[pzweng][pzweng]路人 16:22:54

群昵称修改为“[论坛用户名]网名”格式，如果你未加入明经CAD社区，请先到http://bbs.mjtd.com注册用户。

笑对人生 16:23:05

[pzweng]路人(20787433)，您能帮助解答一下么

[pzweng][pzweng]路人 16:23:29

群昵称修改为“[论坛用户名]网名”格式，如果你未加入明经CAD社区，请先到http://bbs.mjtd.com注册用户。

[阿然][阿然] 16:24:02

每个pause代表一次输入

明经快报

[weiqi]weiqi 16:36:53

[qqimg]oldimg/{4ED32A4D-AD29-E9EB-52FB-AD89A8ECDAC1}.jpg[/qqimg]

我每次 打开CAD 图 都一个窗口

怎么只开一个？

笑对人生 16:38:06

谢谢，阿然

讲解非常到位

[pzweng][pzweng]路人 16:42:35

请看一下群规吧，改一下名字

[kwok][kwok]巭隼 16:46:51

[qqimg]oldimg/{D622145D-0F6D-2590-4612-70E7B387F618}.jpg[/qqimg]试一下改这个taskbar=1

[weiqi]weiqi 16:47:07

...

我搞好了。。

[weiqi]weiqi 16:48:20

我是OP重置，然后浩辰打开 DWG被关联了。
然后再用AUTO打开 就关联回了