lisp修改上一个图素_求lisp大神修改一个按块分图命令，我的这个命令是把图纸内所有的块都分出去，帮我改成可以选择块进行分图...

;c:blk批量块输出到指定文件夹文件(defunc:blk(/WINSHELLSHFOLDERCATCHITPATHBLLXLKKNBLNBexpertcmdecho)(setqexpert(getvar'expert)cmdecho(getvar'cmdecho))(setvar'expert5)(setva...

;c:blk 批量块输出到指定文件夹文件 (defun c:blk (/ WINSHELL SHFOLDER CATCHIT PATH BLL XL K KN BL N B expert cmdecho) (setq expert (getvar 'expert) cmdecho (getvar 'cmdecho) ) (setvar 'expert 5) (setvar 'cmdecho 0) (setq winshell (vlax-create-object "Shell.Application")) (setq shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 "选择文件夹" 1)) (setq catchit (vl-catch-all-apply '(lambda () (setq shFolder (vlax-get-property shFolder 'self)) (setq path (vlax-get-property shFolder 'path)) ) ) ) (if (not (vl-catch-all-error-p catchit)) (progn (setq blL '() xl '(0 0) k 0 kn 0) (setq bl (tblnext "BLOCK" T)) (setq bll (cons (cdr (assoc 2 bl)) blL)) (while (setq bl (tblnext "block")) (setq bll (cons (cdr (assoc 2 bl)) blL)) ) (setq bll (acad_strLSort bll)) (foreach b bll (command "wblock" (strcat path "\\" b) b) ) ) ) (vlax-release-object winshell) (setvar 'expert expert) (setvar 'cmdecho cmdecho) (princ))

图片是类似的可以选择块的选择框就行

展开