求助:倒圆之后,因标注需要必须恢复其尖角状态,请问能否编一个程序,选取两根线即可画

sqqr

求助:倒圆之后,因标注需要必须恢复其尖角状态,请问能否编一个程序,选取两根线即可画出尖角??[br]飞哥：有两成一角度的直线，在倒圆角之后,因标注需要必须恢复其尖角状态,请问能否编一个程序,选取两根线即可画出尖角??并且将画出的构成尖角的两直线放置在DIM层？

meflying

fillet命令，将半径设置为0

xstlf

这样的步骤怎么样。


1。用点先找到二条直线，


2再找出二条直线的四个端点。


3找出第一条直线，和第二条直线的端点距离最小时。用此端点来找出和这端点相接的那条本来倒圆角产生的圆弧。然后删除掉它。


4。再对二直线进行倒尖角。

sqqr

meflying发表于2004-12-27 17:45:00fillet命令，将半径设置为0

用fillet命令r=0可以得到尖角，但是与原来的直线是一个整体，不符合要求。 现在需要的是独立的两根线段，放于DIM层，作标注尺寸用的辅助线。以下程序并不可靠 请各位指点一下， ;;;标注尖角用程序,针对于倒过圆角的情形生成标注辅助线
(defun c:jj ()
(command "undo" "g")
(command "ucs" "w" "")
(setq l (entsel "select the first line:")
ld (entget (car l))
P1 (cdr (assoc 10 ld))
p2 (cdr (assoc 11 ld))
)
(setq ll (entsel "\nselect the second line:")
lld (entget (car ll))
P3 (cdr (assoc 10 lld))
p4 (cdr (assoc 11 lld))
)
(setq p0 (inters p1 p2 p3 p4 nil))
(setq l1 (distance p0 p1)
l2 (distance p0 p2)
)
(if (< 0 (- l1 l2))
(setq p1 p2)
)
(setq l3 (distance p0 p3)
l4 (distance p0 p4)
)
(if (< 0 (- l3 l4))
(setq p3 p4)
)
(command "layer" "s" "DIM" "")
(command "line" p1 p0 p3 "")
(command "layer" "s" "0" "")
(command "ucs" "p" "")
(command "undo" "e")
(princ)
)

ZZXXQQ

不错！可以使用。建议加上异常输入处理，更加完善。