infeeeee/revitDwgImportCleaner
1
0
Fork 0
Code Issues 11 Pull Requests Releases Wiki Activity

fixed sephatch if no hatch in the file

Browse Source
This commit is contained in:
Péter Gyetvai
2019-12-09 02:00:33 +01:00
parent 7371c969cf
commit 5643168f2a
1 changed files with 21 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
revitDwgImportCleaner.lsp
View File

@@ -75,6 +75,8 @@
(defun sephatch (/ ss i il imax currElem layerName newLayerName layerSettings newLayerSettings newLayer newElem) (defun sephatch (/ ss i il imax currElem layerName newLayerName layerSettings newLayerSettings newLayer newElem)
(graphscr) (graphscr)
(setq ss (ssget "_A" '((0 . "HATCH")))) (setq ss (ssget "_A" '((0 . "HATCH"))))
(if ss
(progn
(setq il (sslength ss));length of selection (setq il (sslength ss));length of selection
(setq i 0);counter to zero (setq i 0);counter to zero
(setq imax 1);while variable (setq imax 1);while variable
@@ -93,6 +95,8 @@
(setq i (1+ i));increments i (setq i (1+ i));increments i
(if (= i il) (setq imax nil));finish function if i equals il (if (= i il) (setq imax nil));finish function if i equals il
) )
)
)
(princ) (princ)
) )