“弧形”引线

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年生效。

copy

;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