多行文字AutoLisp问题

KRBeckman · 发表于 2022-7-6 11:45:25

我有点不好意思发布这篇文章，但我花了很长时间创建一个lisp，它将以我想要的方式创建多行文字实体，在我想要的地方。。。它所放置的位置从来都不一致。

以下是我得到的：

(defun C:dt()
 (setq caps_on   (getstring "\nPlease varify that the Caps Lock is on<Y>"))
 (setq note_text (getstring T "\nPlease input what you would like the note to say:"))
 (setq note      (strcat "NOTE: " note_text))
 (command "-mtext" '(0.05 1.117 0.0) "j" "BL" "s" "romans" "W" "3" note "")
 (command "chprop" "l" "" "la" "A-Anno-Dims" "C" "GREEN" "")
)

救命！！

Lee Mac · 发表于 2022-7-6 11:57:34

copy


(defun c:mtxt  (/ str)
 
 (setq str (getstring t "\nMText String: "))
 (entmakex (list (cons 0 "MTEXT")
                 (cons 100 "AcDbEntity")
                 (cons 100 "AcDbMText")
                 (cons 8 "A-Anno-Dims")
                 (cons 62 3)
                 (cons 10 '(0.05 1.117 0.0))                 
                 (cons 7 "romans")
                 (cons 1 (strcat "NOTE: " str))
                 (cons 41 3)
                 (cons 71 7)))
 (princ))

lpseifert · 发表于 2022-7-6 12:08:18

当然都是大写字母

copy


(setq str (strcase(getstring t "\nMText String: ")))

KRBeckman · 发表于 2022-7-6 12:18:41

是的，这将是我的下一个问题。。。谢谢你们俩！

KRBeckman · 发表于 2022-7-6 12:20:50

还有一件事，我认为我很擅长这件事。。。为了改变多行文字实体的文字高度，我会在cons后面加什么？更好的是。。。我在哪里可以找到那个号码？

再次感谢。

KRBeckman · 发表于 2022-7-6 12:36:46

没关系，在Visual Lisp编辑器帮助中找到了它。我发誓我在发帖之前看过了

Lee Mac · 发表于 2022-7-6 12:43:14

这可能会帮助您：
http://autodesk.com/techpubs/autocad/acad2000/dxf/

KRBeckman · 发表于 2022-7-6 12:52:15

是的，这是我现在最喜欢的。非常感谢你的帮助。

[编程交流] 多行文字AutoLisp问题

发表回复

精选推荐