流动箭头
需要帮助我不知道写lisp例程的第一件事。我希望有人可能已经有了一个流程箭头程序
或者能教我怎么写。
我正在寻找一个带有箭头和测试字符串提示的引线，文本将放置在引线上方而不是后面。
如果有人能帮上忙，我真的很感激。 你不能用带有属性的块来实现吗？一张照片会很有帮助。 动态块（可选择将箭头翻转180°）及其上方的属性。那将是最容易走的路。 你好
我不知道这是不是你要找的？
然后是指引线上方的文字。。。
当做
马可。
这是我很久以前做的一个动态块，不完美，但在大多数情况下都有效。我将其放在工具选项板上，在带有旋转提示的dimscale处插入。也许你可以从中收集一些东西。
FA-DB。图纸 Qleader和下划线设置有什么问题？ 通常，在现场/土木工程图中，在注释流线（例如檐沟线）时，箭头和文字的角度相同。我不认为Qleader可以在不改变UCS的情况下做到这一点。 您必须更改文字旋转以匹配引线，下划线将跟随。 我只是用PLINE我自己O第一个点比10宽度秒。
也许一个脚本可以工作？
我不知道瑞克·诺瓦拉是谁，但这段代码来自另一个网站，他希望所有变量都设置为局部变量，但不知道程序是否值得更新。
;Tip1583:AHEAD.LSP Add Arrowhead (c)2000, Rick Novara
(defun C:AH (/ SC LNENT LNAME PCKPT EPT EPT1 EPT2 ANG1 DD PT2 PW)
;draws an arrowhead on the end of a line
(setq XOSMODE (getvar "osmode"))
(setvar "osmode" 512)
;;snap nearest
(setq SC (getvar "dimscale"))
(setq LNENT (entsel "Pick near end of line") ;select end of line
LNAME (car LNENT) ;extract entity name
PCKPT (cadr LNENT) ;extract selection point
EPT (osnap PCKPT "endp") ;set endpt of selected line
EPT1(cdr (assoc 10 (entget LNAME))) ;extract start pt of line
EPT2(cdr (assoc 11 (entget LNAME)))
;extract other endpt of line
) ;_ end of setq
(if (equal EPT EPT1) ;test desired endpt is same as start pnt
(setq ANG1 (angle EPT1 EPT2)) ;if it is set variable for line angle
(setq ANG1 (angle EPT2 EPT1))
;if not - line angle in other direction
) ;_ end of if
(setq PT2 (polar EPT ANG1 (* SC 0.20)))
;set arrowhead length, based on current dimscale
(setq PW (* SC 0.08)) ;set arrowhead width
(setvar "osmode" 0)
(command "PLINE" EPT "W" "0" PW PT2 "") ;draw arrowhead
(setvar "OSMODE" XOSMODE)
) ;_ end of defun
(princ "\nAHEAD.LSP loaded, TypeAH to run...")
我记不起来了，现在没有版本，但LDD没有带注释的流箭头块吗？
也许这里有点什么：http://autocad.wikia.com/wiki/Grading_and_Drainage_Designer_%28AutoLISP_application%29
将对您有所帮助。
页:
[1]
2