yang686526

老顾帮我注解一下
www.dimcax.com
老顾帮我注解一下
一个自动归类图层的lisp，哪位帮下忙注解一下
(defun c:lll ()
(setvar "filedia" 0)
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(setq lay_dim (getstring "\n 尺寸圖層<dim>:")) (if (= lay_dim "") (setq lay_dim "dim"))
(setq lay_txt (getstring "\n 文字圖層<txt>:")) (if (= lay_txt "") (setq lay_txt "txt"))
(setq lay_hat (getstring "\n 剖面線圖層<hat>:")) (if (= lay_hat "") (setq lay_hat "hat"))
(chklay lay_dim 3 "dimension")
(chklay lay_txt 6 "text")
(chklay lay_hat 5 "hatch")
(setvar "osmode" 3)
(setvar "filedia" 1)
(prin1)
)
;*********************************建立圖層與將條件符合物件換層孖程序
(defun chklay (layname cc layss)
(setq k_lay (tblsearch "layer" layname))
(if (null k_lay) (command "-layer" "n" layname "c" cc layname ""))
(setq ss (ssget "x" (list (cons 0 layss))))
(command "chprop" ss "" "la" layname "")
)
(prompt "\n <自动归类特殊对象的图层> 洪少開發實驗室")
(prin1)
勤能补拙

(defun c:lll ()
(setvar "filedia" 0)
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(setq lay_dim (getstring "\n 尺寸圖層<dim>:")) (if (= lay_dim "") (setq lay_dim "dim")) ;输入标尺寸的层名,回车标尺寸的层名为dim
(setq lay_txt (getstring "\n 文字圖層<txt>:")) (if (= lay_txt "") (setq lay_txt "txt")) ;输入文字的层名,回车文字的层名为txt
(setq lay_hat (getstring "\n 剖面線圖層<hat>:")) (if (= lay_hat "") (setq lay_hat "hat"));输入打剖面的层名,回车打剖面的层名为hat
(chklay lay_dim 3 "dimension") ;将图上标尺寸的层名标的尺寸的色改为3绿色.
(chklay lay_txt 6 "text") ;将图上将文字层名的文字色改为6紫色 绿色.
(chklay lay_hat 5 "hatch") ;将图上将剖面层名的剖面线色改为5兰色
(setvar "osmode" 3) ;扑捉的端点和中点为3
(setvar "filedia" 1)
(prin1)
)
;*********************************建立圖層與將條件符合物件換層孖程序
(defun chklay (layname cc layss);层名为layname 层的色为cc 实体名layss
(setq k_lay (tblsearch "layer" layname)) ;本图是否有层名
(if (null k_lay) (command "-layer" "n" layname "c" cc layname ""));当无时建层名,给色层的色cc
(setq ss (ssget "x" (list (cons 0 layss)))) ;选择图中的你要的实体名
(command "chprop" ss "" "la" layname "") ;改变它的层名.
)
gbg

俺替楼主谢谢顾版主,呵呵

非常感谢老顾！
勤能补拙

怎么用??