2013-06-09 明经 AutoLISP 编程(102918348) 群聊记录：早啊

明经快报

秋雨无痕 13:51:20

从论坛看到的代码，加载后，用什么命令运行这个lsp啊

秋雨无痕 13:52:56

[qqimg]oldimg/{F406C7B5-A51E-B715-B106-E1549A8573E3}.jpg[/qqimg]

这个输入什么命令才能运行啊

[tiyi8888]永远痛 13:53:28

test

[004][wkq004]地形图 13:53:35

test

秋雨无痕 13:54:00

哦，好的，谢谢

[kwok][kwok]巭隼 14:00:59

刷新*.pgp用reinit
想请问一下刷新自已加载的*.lsp怎么弄?

明经快报

秋雨无痕 14:11:36

[qqimg]oldimg/{1CBB2B50-4527-D818-C341-D5E720BFBB99}.jpg[/qqimg]
请问这儿是运行什么命令啊

[leyouyou001]youyou 14:12:12

[qqimg]oldimg/{7477630E-31E7-E9D0-E2F9-5607BA806CDD}.jpg[/qqimg]

[mccad][MCCAD] 14:12:26

请先从LISP的基本知识学起吧

秋雨无痕 14:12:29

好的，谢谢

嗯

[mccad][MCCAD] 14:13:01

这个问题是学ＬＩＳＰ的人的第一个需要知道的事

[kwok][kwok]巭隼 14:13:06

可以刷新已加载的lsp不?

明经快报

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

foreach跟repeat哪个快？

明经快报

[zk2140]Kevin 14:59:04

如何获取文字的中心点

[zk2140]Kevin 14:59:39

[qqimg]oldimg/{6844074E-576A-622F-ADA8-8BA705C60040}.jpg[/qqimg]

？？

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

这个要计算出包围框，然后才取得中心点

[zk2140]Kevin 15:00:37

？文字包围框

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

？文字包围框

[zk2140]Kevin 15:01:10

？文字包围框

明经快报

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

[qqimg]oldimg/{A9EB5908-3368-5344-2CBC-22795E90A2BB}.jpg[/qqimg]

这个是怎么回事？

网站里的代码

明经快报

[1993063][1993063] 15:27:00

把end变量改为别的

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

ok 了谢谢

[aeromodelling]纸飞 15:32:07

请教，让单行文本默认居中怎么设置

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

是基点居中，还是单元格内居中？

[aeromodelling]纸飞 15:33:00

基点

[LC100]建筑设计 15:33:19

;文字设置
(defun C:wzzd  (/ ss dq)
  (prompt "选择要修改对齐方式的文字[CAD文字]. ")
  (setq SS (ssget))
  (initget "Z MC C R")
  (setq dq (getkword "对齐方式:[左(Z)/正中(C)/右(R)]:"))
  (if (not dq) (setq dq "MC"))
  (if (= dq "C") (setq dq "MC"))
  (if (= dq "Z") (setq dq "L"))
(command "justifytext" SS "" dq )
)

[aeromodelling]纸飞 15:33:26

是不是有个系统选项或者系统变量

不是lisp，我是说设置

[LC100]建筑设计 15:33:44

设置是可以设置啊。

你是纯CAD吗？

[aeromodelling]纸飞 15:33:57

我嘴笨

[kwok][kwok]巭隼 15:34:18

text j c

[aeromodelling]纸飞 15:34:28

我是说cad单行文本插入的时候现在是左对齐，如何设置成默认居中

[aeromodelling]纸飞 15:35:00

是不是设置哪个系统变量，或者选项里设置哪里

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

就是楼上那个代码啊

他都发了。

[kwok][kwok]巭隼 15:35:56

文本插入那个命令?

[aeromodelling]纸飞 15:36:09

TEXT

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

我是说你发了。

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

(dedun c:text (/) (command "text" "j" "m"))

[aeromodelling]纸飞 15:37:41

哦，明白了，只能用lisp是吧

[zk2140]Kevin 15:37:42

根据文字大小画圆  代码应该怎么写

[LC100]建筑设计 15:38:10

用刚才的最小包围框代码修改一下

[kwok][kwok]巭隼 15:38:28

取得文字大小，中点画圆

[zk2140]Kevin 15:42:05

怎么取得文字大小

不要外包，要字体大小

[zylcba]郑丘雨 15:49:52

各位神人，谁有“粗线变墙”的命令？
类似把“多段线”变成“双线”。

[LC100]建筑设计 15:58:54

你是做建筑的啊？

明经快报

[aeromodelling]纸飞 16:33:32

求教统计有多少个布局并提取名称的便捷方法

[阿然][阿然] 16:38:18

(vla-get-count (vla-get-layouts (vla-get-ActiveDocument (vlax-get-Acad-Object))))

[aeromodelling]纸飞 16:38:46

[阿然][阿然] 16:42:49

-1

[pzweng]路人 16:46:53

有没有矩阵在lisp应用的实例

明经快报

ya雀无声 17:07:50

怎么样双击 DCL图像，然后放大

[2005lyf] 17:11:10

lisp可以操作别的cad文件就好了

[夏生生][x_s_s_1]生无可恋 17:14:36

dbx

ya雀无声 17:15:50

XSSL

[蔡__洛]不快乐 17:15:57

？？？

[夏生生][x_s_s_1]生无可恋 17:16:44

不会

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

vla

vla-select 和ssget 那个好用？？

[夏生生][x_s_s_1]生无可恋 17:17:44

ssget

ya雀无声 17:18:16

尽量不要用VL

[蔡__洛]不快乐 17:18:29

ssget好像有时候会失效是咋回事？

[夏生生][x_s_s_1]生无可恋 17:19:00

[qqimg]oldimg/{6554DD55-34CC-A9E4-A287-7BB76E11B12D}.jpg[/qqimg]

明经快报

[weiqi]weiqi 17:29:24

[qqimg]oldimg/{9BE5310C-E7FC-FB06-958F-D07166D8F269}.jpg[/qqimg]

[雨的节奏][雨的节奏] 17:31:08

vla-select怎么用啊

[aeromodelling]纸飞 17:37:03

请问怎么提取所有的布局名称呢

明经快报

[阿然][阿然] 17:56:18

(setq louts (vla-get-layouts
          (vla-get-ActiveDocument
        (vlax-get-Acad-Object)
          )
        )
)
(vlax-for x louts
  (setq names (cons (vla-get-name x) names))
)

ya雀无声 17:57:39

啊然很厉害， 还会VL  我不会用这些