lamensterms 发表于 2022-7-6 00:10:46

嗨Mircea,
 
哦,太酷了,我甚至没有意识到DIMLINEAR命令能够在插入时编辑标注文本。
 
这将进一步简化代码。
 
非常感谢你的提示。

Nobull84 发表于 2022-7-6 00:16:26

lamensterms,
 
这正是我需要的。简单明了。有一个初级问题,我可以根据自己的需要进行操作:如何在生成的维度中绘制两条线。例如,我有一个简单的“?”。但我想用“?”,然后开始新的一行,并有“D.E.”
 
感谢您迄今为止的帮助,
 
-诺布尔
 
*更新*
 
算出“\\P”
 
再次感谢您的代码

Nobull84 发表于 2022-7-6 00:22:24

以防万一有人想用这个。后来我修改了这个,以提示一个方形revcloud。最终结果是:
 
(DEFUN C:D1 () (command ".dimstyle" "R" "DIMSTYLE NAME HERE") (COMMAND "CLAYER" "LAYER NAME HERE")
(setq ocmd (getvar "CMDECHO"))
(setvar "cmdecho" 1)
(command "dimlinear" pause pause pause)
(setvar "cmdecho" 0)
(command "dimedit" "n" "?" "L" "")
(setvar "CMDECHO" ocmd)
(COMMAND "CLAYER" "LAYER NAME HERE")
(setq p1(getpoint "\nPick first corner of window: "))
       (setq p2(getcorner p1 "\nOpposite corner: "))
       (setvar "plinewid" 0)
       (command "rectang" p1 p2)
(command "REVCLOUD" "O" (entlast) "N")
(COMMAND "CLAYER" "0")
(PRINC)
)
 
我将其中几个不同的文字、图层和尺寸样式放在一起。这对我的工作很有效。我确信代码是“杂乱无章”的,因为我只知道如何复制和粘贴一些细微的变化。它唯一可以使用的是在lisp完成后返回到上一层,但我真的不知道怎么做。。。然而与此同时,这是一个诀窍。
 
谢谢你的努力。这个论坛是一个宝贵的资源。
 
-诺布尔

lamensterms 发表于 2022-7-6 00:26:34

嘿,诺布尔,
 
很高兴你找到了解决方案。
 
关于图层设置,请尝试以下操作:
 
4
 
马库斯
页: 1 [2]
查看完整版本: 变暗文字替代