You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
32 lines
868 B
32 lines
868 B
#lang racket
|
|
(require "com.rkt")
|
|
|
|
(com-obj-prefix "acad")
|
|
(com-progid "AutoCAD.Application")
|
|
(define current-acad (make-parameter (void)))
|
|
(define current-doc (make-parameter (void)))
|
|
(define current-container (make-parameter (void)))
|
|
;; (current-acad (get-active-wco))
|
|
;; (current-doc (acad 'activedocument))
|
|
;; (current-container (acad 'modelspace))
|
|
;; (define ms ((current-doc) 'modelspace))
|
|
;; (define u ((current-doc) 'utility))
|
|
;; (define c (circle #{0.0 0.0 0.0} 1.0))
|
|
;; (define ss-coll ((current-doc) 'selectionsets))
|
|
|
|
;; (define (ss-get-or-create name)
|
|
;; (with-handlers ([exn? (lambda(_) (ss-coll 'add name))])
|
|
;; (ss-coll 'item name)))
|
|
|
|
;; (define ss (ss-get-or-create "stairs"))
|
|
|
|
(define (make-bg-acad-server) nil)
|
|
|
|
(define (call-with-readonly-dwg template filename proc)
|
|
nil)
|
|
|
|
(define (take-off-dwgs . filenames)
|
|
(current-acad (create-wco)))
|
|
|
|
|