[求助][1102]指令数值的纪录该怎样编写呢?

vken7az2p

[1102]指令数值的纪录该怎样编写呢?

请教以下的程序要怎样才可以将半径值及距离值做成纪录
可以在下次使用此程序时可以直接使用
就像 offset 指令一样设定好距离可以在下次继续使用

另外如果这个程序要再加上自行设定的图层名称以便绘制可以绘制到设定的图层名称
,该怎样设定呢?

(defun c:AR2 ()
(setq oldLayer ( getvar "clayer"))
(setq rs1 (getdist (strcat "\n [请输入半径(R)]<850>:")))
(setq dt1 (getdist (strcat "\n [请输入距离(D)]<350>:")))
(if (=(tblobjname "LAYER" "Turn") nil)
     (progn
         (entmake (list
                      '(0 . "LAYER")
                      '(100 . "AcDbSymbolTableRecord")
                      '(100 . "AcDbLayerTableRecord")
                      '(6 . "CONTINUOUS")
                      '(62 . 3)
                      '(70 . 0)
                       (cons 2 "Turn" )
                  )
         )
     )
)
(if (= rs1 nil)(setq rs1 "850" ))
(if (= dt1 nil)(setq dt1 "350" ))
(setvar "clayer" "Turn")
(princ "\n选择2个切圆:")
(command "circle" "t" "tan" pause "tan" pause rs1)
(princ "\n选择偏移方向:")
(command "offset" dt1 (entlast) pause "")
(setvar "clayer" oldLayer )
(prin1)
)

以上程序是参考晓东网站文章
另请问晓东网站是不是在维修呢?

yedajiang

(setq rs1 (getdist (strcat "\n [请输入半径(R)]<850>:")))
(setq dt1 (getdist (strcat "\n [请输入距离(D)]<350>:")))

把rs1和dt1作成全局变量，或赋值给userr1-5系统变量，再次取用。

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. |;
14. (defun c:AR2 ()
15.   (cmdla0)
16.   (if (null rs1)
17.     (setq rs1 850)
18.   )
19.   (if (null dt1)
20.     (setq dt1 350)
21.   )
22.   (setq oldLayer (getvar "clayer"))
23.   (setq rs1 (UREAL 7 "" "\n请输入半径" rs1)
24. dt1 (UREAL 7 "" "\n请输入距离" dt1)
25.   )
26.   (mkla "TURN" 3)
27.   (princ "\n选择2个切圆:")
28.   (command "circle" "t" "tan" pause "tan" pause rs1)
29.   (princ "\n选择偏移方向:")
30.   (command "offset" dt1 (entlast) pause "")
31.   (cmdla1)
32. )

(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:AR2 ()   (cmdla0)   (if (null rs1)     (setq rs1 850)   )   (if (null dt1)     (setq dt1 350)   )   (setq oldLayer (getvar "clayer"))   (setq rs1 (UREAL 7 "" "\n请输入半径" rs1) dt1 (UREAL 7 "" "\n请输入距离" dt1)   )   (mkla "TURN" 3)   (princ "\n选择2个切圆:")   (command "circle" "t" "tan" pause "tan" pause rs1)   (princ "\n选择偏移方向:")   (command "offset" dt1 (entlast) pause "")   (cmdla1) )