- (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屏幕
- 通用函数下载地址:
- dispbbs.asp?boardID=3&ID=37554&page=1
- |; ;;;圆柱体
- (defun c:test ()
- (CMDLA0)
- (setvar"osmode"39)
- (setq pt1 (getpoint "\n圆柱中心点 : ")
- no1 (UREAL 7 "" "\n圆柱半径" no1)
- no2 (UREAL 7 "" "\n圆柱高" no2)
- )
- (setvar"osmode"0)
- (command "_cylinder" pt1 no1 no2)
- (CMDLA1)
- )
|