moved importcleaner separate repo, added 3 new lisps for importcleaner

2018-12-04 03:22:17 +01:00
parent 236f563616
commit f87fc27ad6
5 changed files with 46 additions and 34 deletions
--- a/downloaded/xrefbind.lsp
+++ b/downloaded/xrefbind.lsp
@@ -0,0 +1,25 @@
+(defun c:XrefBind (/ tmpObj)
+  (vl-load-com)
+  (vlax-for objs (vla-get-ModelSpace
+		   (vla-get-activedocument (vlax-get-acad-object))
+		 )
+    (if
+      (and
+	(= (vla-get-ObjectName objs) "AcDbBlockReference")
+	(vlax-property-available-p objs 'Path)
+	(setq
+	  tmpObj (vla-Item
+		   (vla-get-Blocks
+		     (vla-get-ActiveDocument (vlax-get-Acad-Object))
+		   )
+		   (vla-get-Name objs)
+		 )
+	)
+	(not (assoc 71 (entget (tblobjname "block" (vla-get-Name objs)))))
+      )
+       (vla-Bind tmpObj :vlax-true)
+    )
+  )
+
+  (princ)
+)