怎样点取方框内任一点就可以得到方框的中心点？

hql

怎样点取方框内任一点就可以得到方框的中心点？

用剖面线的方法来实现就是速度太慢。

alin

Use the function "bpoly", I think this is the only way to do.

ZZXXQQ

程序：

2. (DEFUN C:RECEN ()
3. (SETVAR "CMDECHO" 0)
4. (COMMAND "_.UNDO" "BE")
5. (SETQ PT (GETPOINT "\n请点取框内一点:"))
6. (COMMAND "-BOUNDARY" PT "")
7. (SETQ ENT (ENTLAST))
8. (SETQ DL (ENTGET ENT)
9.       L (CDR (ASSOC 0 DL)))
10. (IF (= L "POLYLINE")
11.   (SETQ SN1 (ENTNEXT (CDR (ASSOC -1 DL)))
12.         DL1 (ENTGET SN1)
13.         P1 (CDR (ASSOC 10 DL1))
14.         SN1 (ENTNEXT (CDR (ASSOC -1 DL1)))
15.         SN1 (ENTNEXT (CDR (ASSOC -1 (ENTGET SN1))))
16.         DL1 (ENTGET SN1)
17.         P2 (CDR (ASSOC 10 DL1))
18.         PT (LIST (/ (+ (CAR P1) (CAR P2)) 2) (/ (+ (CADR P1) (CADR P2)) 2)))
19. (PROGN
20.   (SETQ N (CDR (ASSOC 90 DL)) J 0 LL (LENGTH DL))
21.   (WHILE (< J LL) (IF (= (CAR (NTH J DL)) 10) (SETQ LL J) (SETQ J (1+ J))))
22.   (SETQ P1 (CDR (NTH J DL)) P2 (CDR (NTH (+ J 8) DL))
23.         PT (LIST (/ (+ (CAR P1) (CAR P2)) 2) (/ (+ (CADR P1) (CADR P2)) 2)))
24. ))
25. (COMMAND "POINT" PT)
26. (COMMAND "ERASE" ENT "")
27. (COMMAND "_.UNDO" "E")
28. (SETVAR "CMDECHO" 1)
29. (PRINC)
30. )

复制代码

xyp1964

2. (load "xyp_lib")
3. ;|加载通用函数
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
5. 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
6. 1.在acad.lsp中增加(load"xyp_lib")
7. 2.在每个程序内增加(load"xyp_lib")
8. 3.在command下，输入(load"xyp_lib")
9. 4.在菜单.mnl中增加(load"xyp_lib")
10. 5.将xyp_lib.vlx文件直接拽到cad屏幕
11. 通用函数下载地址:
12. http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554|;
13. (defun c:test()
14.   (setq pt (zxd))
15.   (XYP_SZX pt 200)
16.   pt
17.   )

(load "xyp_lib") ;|加载通用函数 如果已经下载xyp_lib并放到搜索路径下可以不再下载! 利用以下任何一种方式即可加载和运行通用函数内的所有子程序： 1.在acad.lsp中增加(load"xyp_lib") 2.在每个程序内增加(load"xyp_lib") 3.在command下，输入(load"xyp_lib") 4.在菜单.mnl中增加(load"xyp_lib") 5.将xyp_lib.vlx文件直接拽到cad屏幕 通用函数下载地址: http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554|; (defun c:test()   (setq pt (zxd))   (XYP_SZX pt 200)   pt   )