直线求解中间点与起点距离！

bsnowfox

直线段上两头都有坐标，求解线段中间插入点与起点的距离。若插入点不在线段上，则求起点与垂足的距离，并求出插入点与线段距离。

ZZXXQQ

不明白，给个参考图吧。

bsnowfox

图中108.25为起点与插入点距离，15.26为偏移量！！！！

bsnowfox

 

Andyhon

如图
令插入点为pt;直线为e1

(command "offset" "T" e1 pt "")

(setq pt2 (cdr (assoc 10 (entget (entlast)))))
(setq 起点与插入点距离 (distance pt2 pt))
(setq 偏移量 (distance pt2 (cdr (assoc 10 (entget e1)))))

ZZXXQQ

试写了个程序:

2. (DEFUN C:TEST ()
3. (SETVAR "CMDECHO" 0)
4. (SETQ OLDOS (GETVAR "OSMODE"))
5. (SETVAR "OSMODE" 0)
6. (IF (PROGN (PRINC "\nSelect a LINE 选择一直线 :")
7.      (SETQ SS (SSGET '((0 . "LINE")))))
8.   (IF (SETQ PT (GETPOINT "\nInsert Point 插入点 :")) (PROGN
9.    (SETQ ENT (ENTGET (SSNAME SS 0))
10.   P1 (CDR (ASSOC 10 ENT))
11.   P2 (CDR (ASSOC 11 ENT))
12.   ANG (ANGLE P1 P2)
13.   P4 (POLAR PT (+ (/ PI 2) ANG) 10)
14.   P3 (INTERS P1 P2 PT P4 nil)
15.   P1D (DISTANCE P1 P3)
16.   P3D (DISTANCE P3 PT))
17.    (COMMAND "DIMALIGNED" P1 P3 PT "DIMALIGNED" P3 PT P1)
18.   ))
19. )
20. (SETVAR "OSMODE" OLDOS)
21. (SETVAR "CMDECHO" 1)
22. (PRINC)
23. )

复制代码