- (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")
- 通用函数下载地址:
- ① http://www.xdcad.net/forum/attachment.php?s=&postid=1606661
- ② http://www.mjtd.com/bbs/viewFile.asp?Boardid=3&ID=19043
- |;(defun c:NQY ()
- (cmdla0)
- (jzhz)
- (setvar "osmode" 256)
- (mkla "内切圆"1)
- (princ"\n选择物体 : ")
- (command "circle" "3p" pause pause pause)
- (setq s (entlast))
- (setvar "osmode" 0)
- (mkla "标注" 3)
- (setq Sa (vla-get-Area (obj-e s))
- rad (dxf 40 (entget s))
- pt-ci(dxf 10 (entget s))
- txt-bz (strcat "R=" (rtos rad 2 3) " ; " "S=" (rtos Sa 2 3))
- )
- (command "text" "j" "mc" pt-ci (* sc 300) "0" txt-bz)
- (cmdla1)
- )
|