ODEY 发表于 2022-7-6 11:11:48

帮助mleader/qleader和#039;s t

你好
我是新来的,觉得这个网站很有帮助。
有人能帮我找到一个解决方案吗?或者有没有人有一个lisp程序,可以用给定的旋转角度(比如90度)来指定多重引线/多重引线的文本/多行文字。它总是给出0旋转或水平文字方向,在属性上更改文字旋转方向和/或使用matchprop是非常程序化的。
提前谢谢。此站点的更多功能。

alanjt 发表于 2022-7-6 11:20:10

零旋转。lsp将对象旋转设置为零(基于当前UCS)
 
旋转对象。LSP

ODEY 发表于 2022-7-6 11:26:08

你好
你能帮我做这个吗。我想我可以在你给我的程序中调整一部分,但那确实是一个复杂的程序。auto-lisp对我来说是新的&我不熟悉wlc中使用的很多语言。
这就是我真正想要的日常生活。还有谁能帮我?
 
(defun c:bm()
(setq strqty (getstring "\nEnter Number of Bars : "))
(setq strdia (getstring "\nEnter Diameter of Bars : "))
(setq strbm (getstring "\nEnter Bar Mark : "))
(setq strspc (getstring "\nEnter Spacing : "))
(setq strlayer (strcase (getstring "\nEnter Label/Layer: ")))
(setq strbmk (strcat strqty " " "T" strdia "-" strbm "-" strspc " "strlayer ))
(command ".leader" pause pause "" strbmk "")
;;;then this has to follow.....Rotate BM1=90°, 2=180°, 3=270° <No>: ; w/ the last object as selected.

);end of defun

alanjt 发表于 2022-7-6 11:30:44

张贴一个成品的示例图纸,我们将从那里开始。

ODEY 发表于 2022-7-6 11:35:51

这是实际应用图。
谢谢
http://img227.imageshack.us/img227/126/actualsample.jpg

alanjt 发表于 2022-7-6 11:41:22

一张图纸就好了。
 
那么,您想要垂直于选定线的文字/引线吗?

ODEY 发表于 2022-7-6 11:45:02

确切地文字/引线命令始终水平显示文字。
我希望这是可能的。

alanjt 发表于 2022-7-6 11:48:13

 
图像中标记的文本不是“水平”。如果这就是你想要的,只需设置UCS。

ODEY 发表于 2022-7-6 11:52:52

我明白了,我的信息有点混乱。我的意思是,使用带有文本的命令引线的常规方法总是会给您一个水平文本为了使其垂直旋转,我在properties中更改了文本旋转,并将其与其余部分匹配,这就是我的方式(标记的部分)。如果可能的话,它一给出文本,就会提示询问文本旋转。最有可能的是,它必须垂直。
或者,您右键更改UCS方向可能会起作用,这是否像在引线命令之前交换x轴和y轴,并在例程结束之前将其返回?我知道这是可能的,但我该怎么做呢?

ODEY 发表于 2022-7-6 11:57:01

没关系,我知道怎么做。非常感谢你。
页: [1] 2
查看完整版本: 帮助mleader/qleader和#039;s t