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

李钊伟2012

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

satan421

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

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

satan421

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

sunny_8848

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

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

sunny_8848

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

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

sunny_8848

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

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

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

sunny_8848

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

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

e2002

因为你的当前TextStyle 的 字高参数是一个给定值，而不是0，所以command调用text命令时，就没有让你输入字高参数这一步了。
      
一般的，AutoLISP程序中，我们会使用 entmake 或者 vla-Add 方法来创建这些新的对象，而不是去调用 command。