83 lines
2.4 KiB
Plaintext
83 lines
2.4 KiB
Plaintext
;version 1.2
|
|
;Run this script before importing dwg-s to Revit
|
|
;Created by Peter Gyetvai - gyetpet@gmail.com
|
|
;
|
|
._MODEL
|
|
;------------------------------------------------------------
|
|
;XREF manegement is completely disabled until I fix it
|
|
;._-xref
|
|
;r
|
|
;*
|
|
;._-xref
|
|
;b
|
|
;*
|
|
;------------------------------------------------------------
|
|
;deleteAllXlines.lsp: deletes all xlines in modelspace
|
|
(defun C:dax (/ ss)
|
|
(graphscr)
|
|
(setq ss (ssget "_A" '((0 . "XLINE"))))
|
|
(command "._erase" ss "")
|
|
(princ)
|
|
)
|
|
dax
|
|
;------------------------------------------------------------
|
|
;rxl.lsp: removes xlines from blocks:
|
|
(defun c:rxl (/ b d l lo nl x)
|
|
;; RJP - 04.30.2018
|
|
;; Deletes xlines within block definitions
|
|
(vlax-for a (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
|
|
(if (= 0 (vlax-get a 'islayout))
|
|
(vlax-for b a
|
|
(if (and (vlax-write-enabled-p b) (= "AcDbXline" (vla-get-objectname b)))
|
|
(vl-catch-all-apply 'vla-delete (list b))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(princ)
|
|
)(vl-load-com)
|
|
rxl
|
|
;------------------------------------------------------------
|
|
;sepHatch.lsp: Move hatches to new layers
|
|
(defun C:sephatch (/ ss i il imax currElem layerName newLayerName layerSettings newLayerSettings newLayer newElem)
|
|
(graphscr)
|
|
(setq ss (ssget "_A" '((0 . "HATCH"))))
|
|
(setq il (sslength ss));length of selection
|
|
(setq i 0);counter to zero
|
|
(setq imax 1);while variable
|
|
(while imax
|
|
(setq currElem (entget (ssname ss i) ))
|
|
(setq layerName (cdr (assoc 8 currElem)))
|
|
(setq newLayerName (strcat layerName "-hatch"))
|
|
(command "._-layer" "_M" newLayerName "")
|
|
(setq layerSettings (entget (tblobjname "LAYER" layerName)))
|
|
(setq newLayerSettings (entget (tblobjname "LAYER" newLayerName)))
|
|
(setq newLayer (subst (cons 62 (cdr (assoc 62 layerSettings))) (assoc 62 newLayerSettings) newLayerSettings))
|
|
(setq newLayer (subst (cons 70 (cdr (assoc 70 layerSettings))) (assoc 70 newLayer) newLayer))
|
|
(entmod newLayer)
|
|
(setq newElem(subst (cons 8 newLayerName) (assoc 8 currElem) currElem))
|
|
(entmod newElem)
|
|
(setq i (1+ i));increments i
|
|
(if (= i il) (setq imax nil));finish function if i equals il
|
|
)
|
|
(princ)
|
|
)
|
|
sephatch
|
|
;------------------------------------------------------------
|
|
._-PURGE
|
|
a
|
|
*
|
|
n
|
|
._ZOOM
|
|
e
|
|
._REGENALL
|
|
._AUDIT
|
|
y
|
|
._-AECEXPORTTOAUTOCAD
|
|
f
|
|
2013
|
|
s
|
|
_cleaned
|
|
|
|
|