哪位大哥有：可以把线和线的交点处全部加上“/”符号的LISP啊？我每天加这个都用了三分之一的时间了，万分感谢了！！！！
哪位大哥有：可以把线和线的交点处全部加上“/”符号的LISP啊？我每天加这个都用了三分之一的时间了，万分感谢了！！！！
2楼
是尺寸标注么？可不用这么麻烦的。
回复
3楼
不是尺寸标注啊，就是线和线交接处加上“/”。
回复
4楼
估计是标注钢筋吧？求交点AUTOLISP只有一个函数：INTERS，对于直线和直线用。如果是钢筋那应该是带宽度的PLINE线，应该用VLA-INTERSECTWITH函数，很简单的啊。
回复
5楼
能不能在前面加一个判断语句，使它适用性更广？
回复
6楼
请各位高手提供源码......
供大家学习学习，讨论讨论......
回复
7楼
VLA-INTERSECTWITH所有曲线的交点都可以求的........
回复
8楼
谁给个程序最好
回复
9楼
;;;钢筋标注;;;
;;;BY LADESINGER;;
;;;AT 2006/04/24;;;
(defun c:dimrein(/ BL FPT IPT REIN SPT TEXT)
(setq ipt(last(entsel"\n选择钢筋<退出>:"))) ;;;应该再加一个判断是否是带宽度的PL线，图层等，在此省略;;
(setq bl 100) ;;;这里换成你的设置比例的函数,此处按1:100;;;
(setvar "orthomode" 1)
(command ".pline" (polar ipt (/ pi 4) bl) "w" (/ bl 2) "" (polar ipt (/ pi 4 0.2) bl) "")
(if(setq fpt(getpoint"\n引线终点<退出>:" (setq spt(polar ipt 0 bl))))
(progn
(command ".line" spt fpt "") ;;引线和文字都应该写在规定的图层里,省略.;;;
(if(setq text(getstring"\n标注文字:"))
(command ".text" "j" "bl" (polar fpt (/ pi 2) (/ bl 4)) (* bl 3) 0 text);;;注意当前字体，偷懒了;;
)
)
)
(setvar "plinewid" 0)
(princ)
)
回复
10楼
效果:
回复
11楼
附件:dimrein.lsp
回复
