2013-08-13 明经 AutoLISP 编程(102918348) 群聊记录：Hi

明经快报

[328302216][328302216]小莫 14:07:01

[qqimg]201308/{A6E2D422-3E2C-BC97-DD00-578A573031BE}.jpg[/qqimg]

[【KAIXIN】] [【KAIXIN】]炫翔 14:10:29

[dalin1985][dalin1985]大林 14:14:07

明经快报

[pzweng][pzweng]路人 14:37:06

你们ISO评审了没有

[OWEN7][qqou7]clever 14:44:38

这个好像不行，

[OWEN7][qqou7]clever 14:46:01

只能用组码吗

[lisp-study]jun 14:52:09

你用vlax

试试

[pzweng][pzweng]路人 14:55:34

(vla-put-layer (vlax-ename->vla-object ent) "HELP"))

[pzweng][pzweng]路人 14:57:52

(vla-put-layer (vlax-ename->vla-object (car(entsel))) "center")

[OWEN7][qqou7]clever 15:06:09

可以

[tryhi]大海 15:12:25

20明经币求助
http://bbs.mjtd.com/thread-107169-1-1.html

明经快报

[tryhi]大海 16:16:15

问题解决了

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

怎么弄的

[tryhi]大海 16:19:01

见帖子回复

大字体文件的第一行必须是： * BIGFONT  nchars，nran8es，bl，e1，b2，e2，……
    nchars是文件中字符数目的近似数目，一般要求误差在10%以内，否则文字的查找、
显示、处理的速度将大大降低；nranges表示代码有多少个连续区，这些连续区的范围由
bI、e1入2、e2确定，其中 bI、e1为连续区的起始码，b2、e2为连续区的结束码。

[tryhi]大海 16:20:29

连续区的问题，为了产生影响，新加进的字如果不在默认范围内最好单独分一个区，我认为

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

我还没弄过这些东西

[pzweng][pzweng]路人 16:21:15

有点看不懂

明经快报

[lisp-study]jun 16:52:36

%%130

[vormittag]桔子 16:52:41

circle  line

[tryhi]大海 16:55:10

[qqimg]201308/{D8F22036-443C-6185-C7D5-27A7BCF545C0}.jpg[/qqimg]

[xiaomm250][lisp_](car (entsel)) 16:55:11

应该是%%c

[tryhi]大海 16:55:14

Φ

[xiaomm250][lisp_](car (entsel)) 16:55:40

%%c就表示直径的意思

[tryhi]大海 16:56:04

[qqimg]201308/{85C70FA3-8FB8-CC87-262C-D21D8A2C86F6}.jpg[/qqimg]

[vormittag]桔子 16:56:10

要看你用的什么字体样式，ttf的字体样式就不行。

[LC100]建筑设计 16:56:54

变暗了

[pzweng][pzweng]路人 16:57:06

解锁

[vormittag]桔子 16:57:57

[qqimg]201308/{779711DB-69B7-D9BD-E4D7-6B86274B069D}.jpg[/qqimg]

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

没用过08的

[vormittag]桔子 16:58:02

二者的区别

[LC100]建筑设计 17:01:32

是啊。有开关设置么？

[500w008]宝林 17:06:40

有没 目录代码段

图纸目录

[lisp-study]jun 17:08:53

桔子 请教个问题

[vormittag]桔子 17:09:08

？

[lisp-study]jun 17:10:13

(vlax-create-object "mscomdlg.commondialog")这个在cad2010中怎么用不起了 难道2010不支持？

返回nil

[lisp-study]jun 17:12:25

还有  2010  VBS 也用不起了

明经快报

[OWEN7][qqou7]clever 17:31:33

为什么存盘会需要很长时间

[OWEN7][qqou7]clever 17:38:59

要存为  2013

[OWEN7][qqou7]clever 17:39:31

有关，你可以试试

转换需要时间

[dcl1214]昌立 17:44:00

谁用过动态块啊？

明经快报

[啵浪鼓] 23:36:50

CAD导入到EXCEL过程序
将某个文字变色的代码有吗?
将某个方框涂色代码有吗?

[tryhi]大海 23:40:21

理论上是有的

[啵浪鼓] 23:41:21

论坛里搜索的都是导入EXCEL信息,关于颜色的贴子貌似搜不到,只能每个贴每个贴一个一个打开,看里面的内容有没有提及

[tryhi]大海 23:42:07

CAD到Excel还是Excel到CAD

[啵浪鼓] 23:42:22

CAD到EXCEL

[啵浪鼓] 23:43:15

CAD控制EXCEL里的某组文字变个色,或将某个EXCEL的方框涂个色

zshzxy(开开) 23:47:16

哪位高人有空帮忙看个小程序，文字输出位置并不是我要的“在选择文字的下方”，有时候跑到上方去，怎么回事？

;功能：输入模具编码，在选择的文字下方打印出模具编码

(defun c:wz()
  (setvar "cmdecho" 0)
  (setq a (getstring " 输入模号："))
  (setq d (strcat "模号：" a))
  (setq d1 (entsel));选择文字对象输入
  (setq d3(entget (car d1)));文字属性
  (setq d4 (assoc 40 d3));提取文字高度群码
  (setq d2 (assoc 10 d3));提取文字坐标群码
  (setq d5 (cdr d4));得到文字高度
  (setq d6 (* 1.2 d5));放大文字高度
  (setq x (cadr d2));提前X坐标值
  (setq y (caddr d2));提前y坐标值
  (setq y1 (- y (* d6 3)));新y坐标值
  (setq d7 (list x y1));得到新坐标值
  (command "text" "s" "lsp" d7 d6 0 d);打印文字
  (princ)
  )

[tryhi]大海 23:49:14

是不是对象捕捉的问题

[啵浪鼓] 23:51:26

如果乱跑多半是捕捉的问题

[啵浪鼓] 23:51:57

关闭捕捉试试
(setvar "osmode" 0)

[啵浪鼓] 23:53:43

大海,帮我找找EXCEL变色涂色的代码呀,我找半天没找着,还在继续找

[tryhi]大海 23:54:44

不会控制Excel

[500w008]宝林 23:55:10

(setvar "cmdecho" 0)
  (graphscr)

加这个试试

zshzxy(开开) 23:56:00

关闭捕捉好像可以，谢谢大家！

[啵浪鼓] 23:56:33

找啊找,找到一个小喷油,敬个礼,笑嘻嘻

涂色上色.................

[tryhi]大海 23:57:34

在运行前记录下对象捕捉，然后去掉对象捕捉，完事后恢复对象捕捉

[pzweng][pzweng]路人 23:58:32

[@22903161,@[啵浪鼓]] G版出了个工具，公布了源程序，里面就是控制EXCEL单元格的，你查看他的帖子