我想取得长度为35这条直线的中点坐标

符公

我想取得长度为35这条直线的中点坐标。我该如何作？（离它最近的点我也不知道的情况下）

xyp1964

;;;试试：

2. (defun c:test ()
3.    (setq  SS (ssget "x" '((0 . "LINE")))
4.   i   -1
5.    )
6.    (command"UNDO""BE")
7.    (while (setq s1 (ssname ss (setq i (1+ i))))
8.        (if  (= (vla-get-Length (vlax-ename->vla-object s1)) 35);可以改变35的数值
9.            (progn
10.   (setq pt0 (dxf 10 (entget s1))
11.              pt2 (dxf 11 (entget s1))
12.              pt1 (_midp pt0 pt2)
13.              ll   5
14.   )
15.   (setvar "osmode" 0)
16.   (mkla "中点" 1)
17.   (command "line" (POLAR PT1 0 ll) (POLAR PT1 PI ll) "")
18.   (command "line"
19.      (POLAR PT1 (/ PI 2) ll)
20.      (POLAR PT1 (* PI 1.5) ll)
21.      ""
22.   ))
23.        )
24.    )
25.    (command"UNDO""E")
26. )
27. (defun dxf (code elist) (cdr (assoc code elist)))
28. (defun _midp (p1 p2)
29.    (list  (+ (/ (- (car p1) (car p2)) 2) (car p2))
30.   (+ (/ (- (cadr p1) (cadr p2)) 2) (cadr p2))
31.    )
32. )
33. (defun mkla (name color)
34.    (If (= (Tblsearch "layer" name) nil)
35.        (Command "layer" "m" name "c" color name "")
36.        (Command "layer" "t" name "s" name "c" color name "")
37.    )
38. )

(defun c:test ()    (setq  SS (ssget "x" '((0 . "LINE")))   i   -1    )    (command"UNDO""BE")    (while (setq s1 (ssname ss (setq i (1+ i))))        (if  (= (vla-get-Length (vlax-ename->vla-object s1)) 35);可以改变35的数值            (progn   (setq pt0 (dxf 10 (entget s1))              pt2 (dxf 11 (entget s1))              pt1 (_midp pt0 pt2)              ll   5   )   (setvar "osmode" 0)   (mkla "中点" 1)   (command "line" (POLAR PT1 0 ll) (POLAR PT1 PI ll) "")   (command "line"      (POLAR PT1 (/ PI 2) ll)      (POLAR PT1 (* PI 1.5) ll)      ""   ))        )    )    (command"UNDO""E") ) (defun dxf (code elist) (cdr (assoc code elist))) (defun _midp (p1 p2)    (list  (+ (/ (- (car p1) (car p2)) 2) (car p2))   (+ (/ (- (cadr p1) (cadr p2)) 2) (cadr p2))    ) ) (defun mkla (name color)    (If (= (Tblsearch "layer" name) nil)        (Command "layer" "m" name "c" color name "")        (Command "layer" "t" name "s" name "c" color name "")    ) )

符公

谢了！！这么长的程序就一会时间？可怕！

BDYCAD

这样就OK (setq Get2l (CAR (ENTSEL))
Get2-Len(vlax-curve-getPointAtDist
Get2l
(* 0.5(vlax-curve-getDistAtPoint Get2l
(vlax-curve-getendpoint Get2l)))))

符公

谢了！两位。。。

xyp1964

BDYCAD发表于2004-12-23 20:38:00这样就OK (setq Get2l (CAR (ENTSEL)) Get2-Len(vlax-curve-getPointAtDist Get2l (* 0.5(vlax-curve-getDistAtPoint Get2l (...

如果用entsel，还不如用“mid”三个字更简单。 线长35到哪儿去了！呵呵……