李钊伟2012 发表于 2019-4-23 14:07:08

(command "text" 里面怎么设置字高


此代码在图纸1中可以运行，字高240，旋转角度0：(command"text""c"(getpoint"\n标注配筋率位置")240 0area)
在图纸2中运行不了，旋转角度240，文字内容为0，需要改成(command"text""c"(getpoint"\n标注配筋率位置") 0   area) 才能运行。

satan421 发表于 2019-9-30 13:21:38

sunny_8848 发表于 2019-9-30 09:43
请问，如果注记内容是变量怎么改写来转换，比如某个单元格的数据，不知道是否可以做到？

如果把(command "text" 基点 字高 旋转角度 注记内容)放在循环体里面，这个语句之前，根据情况给代表"注记内容"的变量赋值就可以了

satan421 发表于 2019-4-24 09:38:46

(command "text" 基点 字高 旋转角度 注记内容)

sunny_8848 发表于 2019-9-30 09:41:28

satan421 发表于 2019-4-24 09:38
(command "text" 基点 字高 旋转角度 注记内容)

请问，如果注记内容是变量怎么改写来转换？

sunny_8848 发表于 2019-9-30 09:43:56

satan421 发表于 2019-4-24 09:38
(command "text" 基点 字高 旋转角度 注记内容)

请问，如果注记内容是变量怎么改写来转换，比如某个单元格的数据，不知道是否可以做到？

sunny_8848 发表于 2019-9-30 19:23:57

satan421 发表于 2019-9-30 13:21
如果把(command "text" 基点 字高 旋转角度 注记内容)放在循环体里面，这个语句之前，根据情况给代表"注 ...

能帮忙改下吗。如果我要把Excel表格中的A1单元格内容显示出来，(command "text" 基点 字高 旋转角度 注记内容)里面的注记内容那里该怎样修改？自己写的 ：
A$ = Range("A1").Value
Print #1, "(command ""text"" ""0,0"" 10 45 A$)"
运行后提示输入文字

satan421 发表于 2019-9-30 21:12:05

sunny_8848 发表于 2019-9-30 19:23
能帮忙改下吗。如果我要把Excel表格中的A1单元格内容显示出来，(command "text" 基点 字高 旋转角度 注记 ...

你这是写在scr脚本里了吗，我不知道scr脚本里能不能使用变量，你确定下吧

sunny_8848 发表于 2019-10-1 08:48:33

本帖最后由 sunny_8848 于 2019-10-1 08:50 编辑

satan421 发表于 2019-9-30 21:12
你这是写在scr脚本里了吗，我不知道scr脚本里能不能使用变量，你确定下吧
代码运行结果是写在scr脚本文件里面的。程序里面是可以用单元格数据的，在scr里面会转换成单元格数据，我现在就是不知道怎么在程序里面写。在网上找到下面的代码，可是运行结果不对：Dim a As Integer
Dim b As Integer
a=50
b=50
ThisDrawing.SendCommand "-BHATCH "+CStr(a)+","+CStr(b)+" p ""ANSI37"" 1 0"

6224jjyy 发表于 2022-6-23 00:53:22

我也发现这个问题了，不同的文字样式，command "text"，后面的指令的不一致。

e2002 发表于 2022-6-27 14:30:49

因为你的当前TextStyle 的 字高参数是一个给定值，而不是0，所以command调用text命令时，就没有让你输入字高参数这一步了。
      
一般的，AutoLISP程序中，我们会使用 entmake 或者 vla-Add 方法来创建这些新的对象，而不是去调用 command。
页: [1]
查看完整版本: (command "text" 里面怎么设置字高