只是一个愚蠢的文本括号代码。

The Buzzard · 发表于 2022-7-6 10:19:14

大家好，

我不确定这对你们有什么用处，但我想保持这个线程的简单。附加的代码创建了如图所示的文本括号。我发布了两个代码，一个用于英制单位TBI，另一个用于公制单位TBM。代码的开头有一个区域供您调整图层和字体样式。这段代码还有一个错误陷阱，因此您不会创建太小的括号，以避免绘制变形的括号。操作它需要最小的输入。您可以输入所需的文本。

享受代码。

有关代码加载说明，请参阅以下线程：http://www.cadtutor.net/forum/showthread.php?1390-如何在此存档中使用LISP例程

用户默认功能。

copy


;
; F02 - User Defaults.
;
(defun TBI_UD ()
 (setq LN  "TEXT"                     ;Change layer name here.
       LC   6                         ;Change layer color here.
       LT  "Continuous"               ;Change layer linetype here.
       FSN "ARIAL-1.0"                ;Change font style name here.
       FWF  1.0                       ;Change font width factor here.
       FOA  0.0                       ;Change font obliquing angle here.
       FFN "Arial.ttf"                ;Change full font name here.
       BFN "")                        ;Change big font name here.
 (TBI_MF)
 (princ))
;