calafragilistic 发表于 2022-7-5 19:49:41

“弧形”引线

当我使用R14时，我有一个自定义的引线命令，其中第一次单击是引线的端点（与往常一样），第二次单击类似于圆弧的中点，第三次单击是圆弧的另一个端点。您可以不断单击并生成更多连接到引线块的弧，但通常我只会在那里结束引线，而不会以附加的文本结束。自从我升级到AutoCAD 2010后，我使用的LISP函数没有转换过来，但我希望再次使用它，因为2010年标准的样条曲线引线与我以前使用的相比看起来很糟糕，而且功能远不如以前。有没有地方可以找到一个LSP命令来做同样的事情，或者我必须再次重写新命令？以下是一些成品“CLeader”的外观示例：

ReMark 发表于 2022-7-5 20:06:48

这里可以找到两个弧引线lisp例程，但它们可以追溯到1996/97年。谁知道呢，也许其中一个会使用AutoCAD 2010。值得一试。
http://cadtips.cadalyst.com/node/tiplisting?keywords=arc%20leader

MarcoW 发表于 2022-7-5 20:10:29

 
我想试试，第二个在2011年生效。
 
;TIP1203.LSP:    ARCLEADER.LSP    Arc Leader    (c)1996, Douglas C. Barense

(defun c:ARCLEADR (/ STARTPNT ANGLEPNT ENDPNT1 ENDPNT2)
(graphscr)
(initget 15)
(setq STARTPNT (getpoint"\nStarting point for arrow: "))
(initget 15)
(setq ANGLEPNT
   (getpoint STARTPNT "\nSelect angle definition point: ")
)
(setq ENDPNT1
   (polar
   STARTPNT
   (angle STARTPNT ANGLEPNT)
   (* 0.09375 (getvar"LTSCALE"))
   )
)
(setq ENDPNT2 (* 0.03125 (getvar "LTSCALE")))
(command
   "pline" STARTPNT "w" "0.0" ENDPNT2 ENDPNT1 "w" "0.0" "0.0" "arc"
)
(princ)
); end arcleadr.lsp

tzframpton 发表于 2022-7-5 20:23:08

这是我在这个网站或TheSwamp上找到的一个。org-两个中的一个，但不记得了。我喜欢它，并且一直在使用它。箭头的大小与DIMSCALE因子无关。
arc_dim。lsp

Caleb Losh 发表于 2022-7-5 20:30:30

将其加载到autocad后，您会输入什么命令

ReMark 发表于 2022-7-5 20:47:19

 
如果你说的是arc_dim。lsp应该是“AA”。

Caleb Losh 发表于 2022-7-5 20:55:45

 
谢谢你的帮助！
页: [1]
查看完整版本: “弧形”引线