2013-09-17 明经 AutoLISP 编程(102918348) 群聊记录：help.... 请教一下 怎么改掉天正 ` 这个键的命令

明经快报

[weiqi]weiqi 08:41:57

help....
请教一下 怎么改掉天正   `  这个键的命令

我好多lisp 里以这个开头的。。

明经快报

[蔡__洛]不快乐 09:15:25

怎么取得 标注或者块中的文字 外框

[vormittag]桔子 09:19:20

nentselp 求边界框，然后用转换矩阵转换。

[蔡__洛]不快乐 09:25:07

谢谢 桔子兄

[vormittag]桔子 09:35:06

不客气

[蔡__洛]不快乐 09:37:27

转换举证怎么用？

[caoyin][caoyin] 09:40:19

一两句话说不清楚，论坛有很好的资料去找来看看吧

[蔡__洛]不快乐 09:41:17

在做一个文字重叠的检查程序

[caoyin][caoyin] 09:44:20

呵呵，这跟矩阵没啥关系

[起子]起子 09:47:55

有没有现成的ascii和utf-8的转换？

[caoyin][caoyin] 09:48:32

有，FSO对象

[起子]起子 09:49:36

64位系统里面建立activex对象返回空，现在能不用外部对象就不用

[caoyin][caoyin] 09:50:23

貌似可以的吧

[起子]起子 09:51:16

.net做的dll好像可以，但是很多自己做的dll和ocx不行

[caoyin][caoyin] 09:51:50

[qqimg]201309/{C28CFE4C-445F-F656-58F7-6CE2BB0CD2D5}.jpg[/qqimg]我以前帮他解决过，是在64bit上测试的

[起子]起子 09:52:57

嗯，64位系统，在04-06可以，2010上不行，建立对象就返回nil

[caoyin][caoyin] 09:54:40

[qqimg]201309/{EEA8E5FB-90AB-9FD5-0F90-549699390848}.jpg[/qqimg]

[qqimg]201309/{9D43F933-4581-4FEE-B305-18689CCDC614}.jpg[/qqimg]

[qqimg]201309/{89D645D9-2FF0-69F2-229B-FCDA29ACB63F}.jpg[/qqimg]

[起子]起子 09:56:09

有些系统自带的好像可以的，但不是所有的都行

[lisp-study]jun 09:57:26

[@420200466,@[caoyin]] (vla-GetInterfaceObject *acad* "ScriptControl")这个在2012行不行呢？

[caoyin][caoyin] 09:57:50

需要管理员身份知行的系统操作都不行，因为cad默认不是管理员身份启动

[起子]起子 09:58:22

空了试试，fso可以直接转到utf-8么。本来打算字符串转整数序列再自己写码表转的，要是fso能用就方便了

明经快报

[lisp-study]jun 10:14:23

能解决么？

明经快报

[蔡__洛]不快乐 11:12:57

桔子 用cdr命令取点对第二个元素 程序报错 是咋回事？

？？

[蔡__洛]不快乐 11:19:28

;;取得标注中文字
(defun get-dim-text (e_dim / i m_ret)
  (setq i (cdr (assoc -2(tblsearch "BLOCK" (cdr(assoc 2 (entget e_dim)))))))
  (if (wcmatch (cdr(assoc 0 (entget i)) "*TEXT"))
     (setq m_ret i))
  (while (setq i(entnext i))
    (if (wcmatch(cdr(assoc 0 (entget i)) "*TEXT"))
      (setq m_ret i)))
  m_ret
  )

[蔡__洛]不快乐 11:20:02

[qqimg]201309/{AB7C579B-9F4D-6164-548D-5952A69366F8}.jpg[/qqimg]在这一句 程序出错 是咋回事？？

[蔡__洛]不快乐 11:20:52

 差括号

[water_system][mingdi]shenshen 11:26:39

[qqimg]201309/{8DEC7E94-C92E-58A6-27B9-95741636A59A}.jpg[/qqimg]
这玩意儿能不能close掉？

[ken_1_1] 11:28:40

你重注册表中查找到dd.lsp然后删除

[q3_2006]q2 11:32:01

[qqimg]201309/{53AFA792-549D-0360-25FE-7C9FB7F491F3}.jpg[/qqimg]

[water_system][mingdi]shenshen 11:35:39

哦 明白 试试 谢谢

明经快报

[蔡__洛]不快乐 12:22:45

如何 取得多行文字的外框？？

textbox可以不？

[vormittag]桔子 12:24:52

textbox 好像不行

[蔡__洛]不快乐 12:25:40

标注里面的文字 属性是M

TE

MTEXT

明经快报

[lisp-study]jun 12:54:28

boundingbox

明经快报

[自言自语]将军 14:24:10

这个谁的工具，求一个，太有用了

共享下吧

[vormittag]桔子 14:24:54

啥东西啊？

[自言自语]将军 14:25:23

[qqimg]201309/{DCADE98D-9F78-4870-27AF-3F527E24E74C}.gif[/qqimg]

排版编号的那个，看到图片没

呀呀，论坛的桔子大师啊

[【KAIXIN】] [【KAIXIN】]炫翔 14:28:51

[qqimg]201309/{D5C234DD-ADFA-ECA5-A879-5FACD51D9238}.jpg[/qqimg]

建议用多段线的型心  不是9点中心

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

上面是幕墙用的?

[自言自语]将军 14:30:21

恩，炫翔有木有，给个用用哈

[【KAIXIN】] [【KAIXIN】]炫翔 14:30:33

还没有

不过我弄的出来

明总说了，珍惜生命

要不我说说思路，你自己动手？

[自言自语]将军 14:31:26

[自言自语]将军 14:32:02

偶菜鸟......

[【KAIXIN】] [【KAIXIN】]炫翔 14:32:20

给你思路也整不来？

[h2o] 14:32:24

较早时做过

[【KAIXIN】] [【KAIXIN】]炫翔 14:32:42

[qqimg]201309/{50784472-BD9E-AA2C-E784-471E3F231C8C}.jpg[/qqimg]欢迎说说你的思路

[h2o] 14:33:37

[qqimg]201309/{4C35BB2C-3D34-A6F3-0907-079F1801D13B}.gif[/qqimg]

[自言自语]将军 14:33:40

[【KAIXIN】] [【KAIXIN】]炫翔 14:34:20

源泉的作者？

[h2o] 14:34:57

en

[【KAIXIN】] [【KAIXIN】]炫翔 14:35:02

如果是的话，无可置疑是会的

[自言自语]将军 14:35:29

都是高人，源泉我也在用的

[【KAIXIN】] [【KAIXIN】]炫翔 14:35:32

看演示速度上似乎....

[h2o] 14:36:13

我的机器比较古老

[自言自语]将军 14:36:16

bo？

[lisp-study]jun 14:36:33

估计用了command

[【KAIXIN】] [【KAIXIN】]炫翔 14:36:43

不会

bo 好像要用

command
 有的时候比VLA等快

COMMAND 最直接

我测试了，尤其是一些选择集的

[qqimg]201309/{FCD0A148-40F6-0FF0-8061-0672F1D7E723}.gif[/qqimg]

看了这个就明白是啥回事了

这个是一个台湾人要求做的

[【KAIXIN】] [【KAIXIN】]炫翔 14:39:22

他们的面积单位不一样

明经快报

[蔡__洛]不快乐 15:05:07

炸开 命令能不能炸开选择集？

[tryhi]大海 15:13:12

(command "copy" aa "0,0" "0,0" "")
复制一个图元，有没有比这句更好的

好像速度很慢

[蔡__洛]不快乐 15:18:18

请问下 怎么用ActiveX方法砸开一个对象？

[蔡__洛]不快乐 15:19:47

？什么？

[蔡__洛]不快乐 15:27:23

(if (and ss_mtext (> (sslength ss_mtext) 0))
     (vl-cmdf "...explode" ss_mtext "" )
    )

我这个代码怎么 无法咋开 选择集中的对象呢？？

[蔡__洛]不快乐 15:30:53

还是不行 不晓得咋回事

[蔡__洛]不快乐 15:33:10

用图元名就行 用选择集就不行

[tryhi]大海 15:35:05

(setq ss nil)
    (setq $红线 (entsel))
    (command "copy" (ssadd $红线 ss) "" "0,0" "0,0" "")

[蔡__洛]不快乐 15:36:31

用vla方法

[tryhi]大海 15:38:31

为什么这样会失败？

[tryhi]大海 15:39:30

我复制多一个图元出来

我想复制多一个图元出来

[蔡__洛]不快乐 15:40:50

复制两次呗

[tryhi]大海 15:41:52

关键在怎么复制，不是复制多少次

[蔡__洛]不快乐 15:43:02

我重来不用 copy 那个太慢 都用entmake重造的

HUST_YYM 15:45:01

cad 2008 从一副图中拷贝一点东西到另一幅图，为啥很慢 ？

[蔡__洛]不快乐 15:45:30

08难用 不用08的cad

HUST_YYM 15:45:47

现在用啥啊？

[蔡__洛]不快乐 15:45:55

06

[q3_2006]q2 15:47:27

[@231682564,@[蔡__洛]不快乐] (setvar "qaflags" 1)

[tryhi]大海 15:47:40

感谢[@231682564,@[蔡__洛]不快乐]

[蔡__洛]不快乐 15:49:58

[q3_2006]q2(1434177703)  15:47:09
@[蔡__洛]不快乐 (setvar "qaflags" 1

这个是什么用？？

[q3_2006]q2 15:50:18

[qqimg]201309/{110A461F-7825-9CF6-C8AF-A9D3BA820EED}.jpg[/qqimg]

就这个用

炸完改回0

(setvar "qaflags" 0)

[蔡__洛]不快乐 15:51:24

懂了

明经快报

[蔡__洛]不快乐 16:46:56

seqend 是什么类型？

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

子块标记吧

明经快报

[影带走流年]静 18:25:11

(setq l ((/ w1 (cos ang1))))

哪位帮看看这句程序哪里写错了么

[影带走流年]静 18:26:00

总是在这出现错误  可是找不到原因

[vormittag]桔子 18:27:16

多一对括号

[vormittag]桔子 18:27:46

[qqimg]201309/{600D671E-2566-AEE1-7B14-39ABDB9A9760}.jpg[/qqimg]