2013-08-20 明经 AutoLISP 编程(102918348) 群聊记录：[image={B0B38BED-0207-2C2C-379F-043AD1

明经快报

[【KAIXIN】] [【KAIXIN】]炫翔 08:01:20

[qqimg]201308/{B0B38BED-0207-2C2C-379F-043AD15C89B6}.gif[/qqimg]

[偏爱云~小吴]偏 08:01:39

表格单元边框全部改为无应该如何搞,改了285,286两图元,只能该一部分,

明经快报

[流动的清泉][权心权意] 09:26:45

有谁知道 cad 填充的时候的继承特性，用什么命令输入吗？

明经快报

[AMKYUD][AMKYUD]??? 09:51:37

有一条直线，两旁有圆圈（未知数量N个），是上一次程序执行的结果。
要求：不再选择圆圈和直线，只运行命令 就可以用样条曲线把两旁的圆圈连起来，圆圈距离较长时看情况需要内插一两个点，如上图所示，这个价格多少？

[qqimg]201308/{DD3F6F50-E843-AD9D-038E-64DA8188B9DC}.jpg[/qqimg]

[AMKYUD][AMKYUD]??? 09:56:48

[AMKYUD][AMKYUD]??? 09:58:48

主要是很多圆圈不好选

还有其他图元的干扰

[pzweng][pzweng]路人 09:59:15

那不好判断

[pzweng][pzweng]路人 09:59:45

你的意思就是没规律咯

还有就是没规则咯

[AMKYUD][AMKYUD]??? 10:04:10

其他图元也就是直线而已

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

就是不知道哪个直线是你想要的

哪些圆是需要连的

[AMKYUD][AMKYUD]??? 10:12:07

那些需要连的圆半径都一样，跟其他圆半径不一样

[AMKYUD][AMKYUD]??? 10:13:49

需要的直线就只有两旁圆圈中间那一条

[pzweng][pzweng]路人 10:15:22

哪些圆与哪些线

[AMKYUD][AMKYUD]??? 10:17:41

。。。

[qqimg]201308/{DD3F6F50-E843-AD9D-038E-64DA8188B9DC}.jpg[/qqimg]就是这个图

[pzweng][pzweng]路人 10:19:09

就这么点图元？

[pzweng][pzweng]路人 10:19:41

假如还有需要连的呢

你现在是单一一组

假如还有别的呢

[AMKYUD][AMKYUD]??? 10:22:33

[qqimg]201308/{BFE81EF3-8263-55BE-EE74-E293441D44C2}.jpg[/qqimg]

[pzweng][pzweng]路人 10:22:56

一张图里面就这么点？

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

就是嘛，假如附近也有一组这样需要连接的，你说那些圆该与哪些圆相连

[AMKYUD][AMKYUD]??? 10:26:48

还有这种情况[qqimg]201308/{2A305E37-14FD-D139-561E-25B2710AA5D2}.jpg[/qqimg]

[AMKYUD][AMKYUD]??? 10:27:46

附近一般没有一组了

附近没有需要连接的了

明经快报

[野狼谷]笨鸟 10:40:46

求助：如何识别一个实体ent类型 是线 ，是圆，是矩形？哪个函数可以实现？

[q530496591][q530496591]小菜鸟 10:42:41

tye

找组码类型不就好了

[野狼谷]笨鸟 10:44:20

谢谢，我试试看

咋没有这个函数呢？

[q530496591][q530496591]小菜鸟 10:44:47

好像只可以组码类型

[野狼谷]笨鸟 10:44:59

有例子吗？

[q530496591][q530496591]小菜鸟 10:46:10

(查找0的组码 (entget (car (entsel)))）；返回图元类型

不记得那个函数了。你找找

[野狼谷]笨鸟 10:46:51

[野狼谷]笨鸟 10:55:11

vla-get-Type

好像这个有点像，但是不是对全部类型适用

明经快报

[雨的节奏][雨的节奏] 12:03:38

ssget 怎么选择TEXT MTEXT啊

[雨的节奏][雨的节奏] 12:06:22

谢谢

那我要同时选择两种类型的时候要怎么写呢

（0 . (list "?) (list ?))

[pzweng][pzweng]路人 12:07:05

查看组码

-4

[雨的节奏][雨的节奏] 12:07:25

我是说用ssget怎么选择两种类型的呢

[pzweng][pzweng]路人 12:07:46

起始操作
 中间运算域
 结束操作
 

 

 

 

[雨的节奏][雨的节奏] 12:07:59

(0 . "TEXT,DIMENSION,MTEXT,INSERT,HATCH")

[pzweng][pzweng]路人 12:08:05

可以

函数里都讲了

你怎么不看函数

首先遇到问题就查看函数

[雨的节奏][雨的节奏] 12:09:13

[ucuc2003][ucuc2003]易水 12:17:34

哪位帮我修复下一个277k大小图，我电脑一修复就死机

[雨的节奏][雨的节奏] 12:18:44

貌似有点懂了、、、

[ucuc2003][ucuc2003]易水 12:19:47

哪位帮我修复下一个277k大小图，我电脑一修复就死机

[kwok][ww5w]行舟月下 12:26:30

直接打开就可以了，为什么要修复?

[ucuc2003][ucuc2003]易水 12:27:09

一打开就死机

修复也死机

[kwok][ww5w]行舟月下 12:27:20

没事呀，我直接打开了

你是什么版本?

[ucuc2003][ucuc2003]易水 12:27:47

我电脑2008 帮我修复下，另存为2004版的

[kwok][ww5w]行舟月下 12:29:26

你接一下

已转好了

明经快报

[雨的节奏][雨的节奏] 14:08:08

[qqimg]201308/{26722E62-8D67-34FF-CC42-85F46D1CE456}.gif[/qqimg]

中午没睡觉、写了个这东西

[qianzj]太阳 14:08:52

讲下思路。。

[雨的节奏][雨的节奏] 14:09:12

先提取文字

再提取图元名列表

再相同文字的组一个表

再排列坐标

[qianzj]太阳 14:10:33

排序用的啥方法 vl-sort?

[雨的节奏][雨的节奏] 14:10:43

是啊

先按Y轴排一次、再按X轴排一次

但是按X轴排的时候要equal一下

[lisp-study]jun 14:12:42

[雨的节奏][雨的节奏] 14:14:49

[qqimg]201308/{920C4B10-289E-DA16-F22B-5C2A36D83340}.GIF[/qqimg]

[雨的节奏][雨的节奏] 14:15:23

同事刚好碰到个这样的图纸、、我们生产要编号、、、呀、、、

[pzweng][pzweng]路人 14:17:11

不就是递增刷么

lanjs有现成的

[雨的节奏][雨的节奏] 14:17:50

为什么不早说

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

不喜欢上论坛，不喜欢查函数的结果

明经快报

[xxwc520]SUN 16:10:32

大家遇到过世界坐标是在指定位置输出图元时，老是不在指定位置输出，这个问题怎么解决啊

[pzweng][pzweng]路人 16:11:47

你用的是command吧

[xxwc520]SUN 16:12:51

但是我的程序已经做了很多了在改有点麻烦，有什么别的办法吗

[xxwc520]SUN 16:15:12

我试试看

[xxwc520]SUN 16:19:33

还是不行

[vormittag]桔子 16:20:41

什么操作不在原位置？

[xxwc520]SUN 16:22:14

比如我在（0,0,0）位置输出文字，但是输出的文字却飞了，但此种操作只在世界坐标系时出现

这个问题已经困扰我很长时间了

[lisp-study]jun 16:23:01

坐标转换嘛

[xxwc520]SUN 16:24:15

我也试过了~~吧指定位置的坐标变为世界坐标但是还是不行

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

你怎么输入的

输出?

[xxwc520]SUN 16:29:40

这是我的部分程序

[pzweng][pzweng]路人 16:33:02

空格输入角度为0°，如有调整请输入旋转角度： ; 错误: 参数类型错误: numberp: nil

啥子哟

[xxwc520]SUN 16:33:38

这是我的子程序

我的主程序中给部分函数赋值

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

bl吧

我自己设值了

[vormittag]桔子 16:35:48

zb 是 用户坐标系  (list x y 0) 直接作为对象坐标系坐标了。

[xxwc520]SUN 16:36:06

恩~~

[pzweng][pzweng]路人 16:36:12

th是什么

[xxwc520]SUN 16:36:14

难道这样做不行吗

文字高度

[vormittag]桔子 16:37:01

用户坐标系和世界坐标系不一致的时候就不在一个位置。显然的。

[xxwc520]SUN 16:38:09

但是昨天我也用坐标转换命令了~~把zb转换成世界坐标输出还是不行

[vormittag]桔子 16:40:06

alf 也不对

[pzweng][pzweng]路人 16:40:25

文字有吗

我怎么连文字也没

[xxwc520]SUN 16:41:44

alf是角度~~

[vormittag]桔子 16:42:13

我当然知道是角度，这是世界坐标系下的角度。

[vormittag]桔子 16:42:58

准确说是对象坐标系下的角度。

[xxwc520]SUN 16:43:43

难道角度也分世界坐标和用户坐标

[pzweng][pzweng]路人 16:43:59

现在在WCS状态下也不行

[vormittag]桔子 16:44:19

世界坐标系下的方向角。

[pzweng][pzweng]路人 16:44:24

你确定有文字吗

[vormittag]桔子 16:45:14

还有tc 图层变量呢。

[pzweng][pzweng]路人 16:45:40

这些我都设定了

就是没有文字出现

[xxwc520]SUN 16:45:49

我也在主函数中赋值了，包括角度等

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

[@309299802,@[xxwc520]SUN] 你建出文字没有

[xxwc520]SUN 16:46:25

有文字出现啊

[vormittag]桔子 16:47:04

你有没有“宋体”这个文字样式？

这里边雷多了去了。

[vormittag]桔子 16:47:54

你怎么转换的坐标？

[pzweng][pzweng]路人 16:48:43

呵呵

[pzweng][pzweng]路人 16:49:34

没有像[xxwc520]SUN说的位置不对

[xxwc520]SUN 16:49:40

但是很多东西我都在主函数中赋值了，用的都是全局函数

[pzweng][pzweng]路人 16:50:02

你监控一下变量

[vormittag]桔子 16:50:26

你怎么转换的坐标？

[xxwc520]SUN 16:50:31

我的全局变量全部为唯一的~~

[lisp-study]jun 16:51:19

没得字体文字也是生成不了的吧

[xxwc520]SUN 16:53:41

我找下昨天的程序

[vormittag]桔子 16:56:25

这还要找啊，估计你的坐标转换用错了。

[xxwc520]SUN 16:58:55

(setq xy (list x y 0))下面加一句（trans pt 1 0）

错了

(setq xy (list x y 0))下面加一句（trans xy 1 0）

[lisp-study]jun 16:59:41

[qqimg]201308/{38D18250-3E0F-5FE3-FA92-7F5E930C418E}.gif[/qqimg]

[vormittag]桔子 17:02:44

那不应该错了，最多是方向不对。

[vormittag]桔子 17:03:16

你没再改71 72组码吧？

[xxwc520]SUN 17:03:40

但是位置就是不对奇怪啊~~我主要不想改坐标系要不就没这问题了

[xxwc520]SUN 17:04:28

没有改啊

[xxwc520]SUN 17:05:49

我在试试吧

[longer1000] 17:10:25

哪位有图层匹配刷的工具，只刷图层的

[lisp-study]jun 17:11:06

cad就可以

[pzweng][pzweng]路人 17:11:20

ma

[vormittag]桔子 17:11:52

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

选择目标对象或 [设置(S)]: s

[longer1000] 17:11:55

像颜色、宽度等

[pzweng][pzweng]路人 17:12:00

look

[vormittag]桔子 17:12:18

你拿那个设置当摆设啊？

[longer1000] 17:12:22

是的，可以设置

我想单独用那个

不想来回的改设置

[longer1000] 17:13:32

ET的图层修改不怎么习惯

[longer1000] 17:14:58

lsp就是不会

[pzweng][pzweng]路人 17:16:16

Chprop

[longer1000] 17:17:15

修改命令不好用

[vormittag]桔子 17:18:52

选中了直接在特性栏里改。

[longer1000] 17:20:34

量少可以的，但是如果修改的量大，位置变化大的话，就不怎么方便

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

(defun c:test()
(setq la (cdr (assoc 8 (entget(car(entsel " 选取图元"))))))
(prompt " 选取对象")
(command ".Chprop" (ssget) "" "la" la "")(princ))

[longer1000] 17:25:11

谢谢

[lisp-study]jun 17:31:02

[pzweng][pzweng]路人 17:32:09

张军你下班吧

[vormittag]桔子 17:33:01

？

路人是谁？

[pzweng][pzweng]路人 17:33:39

me

[vormittag]桔子 17:33:54

谁的蜜？

[lisp-study]jun 17:35:14

老总的蜜

明经快报

[yeahyeah]王晓平 18:21:34

明经快报

[yeahyeah]王晓平 18:50:52

终于找到明经的客户端了，叫做掌上论坛。。

[kewyst]………… 18:52:28

[无痕]午夜咖啡 18:53:22

？

明经快报

[yeahyeah]王晓平 22:10:28

我觉得大家都可以去这里报个道！http://bbs.mjtd.com/thread-91613-4-1.html

[qqimg]201308/{06D329AC-3170-2A6D-813B-8DF8507AF384}.gif[/qqimg]