怎么用lisp标注轴的直径两直线的夹角，非常急，求大神指点呀

孤鹰

怎么用lisp标注轴的直径两直线的夹角，非常急，求大神指点呀。其中我编了(command "dim" "ver"pc pe "@ -20,0" ""）其中 pc pe 是两端点，但没有直径符号，求怎么改？

孤鹰

大虾们指点下吧

Andyhon

Command: dim
Dim: ver
Specify first extension line origin or <select object>:
Specify second extension line origin:
Specify dimension line location or [Mtext/Text/Angle]:
Enter dimension text <20.072>: %%C<>
Dim: e

xyh

(defun c:tt()
(setq pc (getpoint))
(setq pe (getpoint pc))
(command "dim" "ver" pc pe "@ -20,0" (strcat "%%c" (rtos (abs (- (cadr pc) (cadr pe))) 2 0)) "E")
)

孤鹰

我试试，不胜感激

孤鹰

xyh 发表于 2012-5-17 09:41
(defun c:tt()
(setq pc (getpoint))
(setq pe (getpoint pc))

好了，太谢谢了，那两条直线间的角度怎么弄呀，拜托了。这个没一点头绪。

孤鹰

Andyhon 发表于 2012-5-17 09:32
Command: dim
Dim: ver
Specify first extension line origin or :

直径那个好了，能帮忙怎么标两线间的夹角。这个一点也不会啊

xyh

孤鹰 发表于 2012-5-17 09:55
好了，太谢谢了，那两条直线间的角度怎么弄呀，拜托了。这个没一点头绪。

(defun c:tt()
(setq e1 (entsel))
(setq e2 (entsel))
(command "dim" "ang" e1 e2 pause "" pause "Exit")
)

孤鹰

xyh 发表于 2012-5-17 11:28
(defun c:tt()
(setq e1 (entsel))
(setq e2 (entsel))

谢谢你了，有没有办法用程序直接标好，比如直线1是由pa 点pb点)构成直线2是由 pc点与 pd点够成，另外角度的字水平写下

xyh

(defun c:tt()
(setq pa (getpoint))
(setq pb (getpoint pa))
(command "line" pa pb "")
(setq e1 (cons (entlast) (list pa)))
(setq pc (getpoint))
(setq pd (getpoint pc))
(command "line" pc pd "")
(setq e2 (cons (entlast) (list pc)))
(command "dim" "ang" e1 e2 pause "" pause "Exit")
)
线画好后就加到选择集e1、e2中，角度标注水平可能比较复杂。