MOSCA : [post n° 55877]
RETTANGOLO
una domanda banale: come si disegna un rettangolo di lati a e b definiti con autocad 2000?
Esempio: se a= 2 metri e b= 3 metri
Comando: rettangolo invio e poi devi dare le coordinate digitando: @2,3 invio....
e il gioco e fatto, almeno io ho fatto sempre così.
Ciao
Comando: rettangolo invio e poi devi dare le coordinate digitando: @2,3 invio....
e il gioco e fatto, almeno io ho fatto sempre così.
Ciao
comando rettangolo, click il primo punto, digiti Q (quote), ed inserisci le quote del tuo rettangolo.
Ciao, andrea
Ciao, andrea
oltre metodo di "a" e di Raf puoi usare la polilinea impostando l'ucs parallelo e l'ortogonalità
crei un blocco di un quadrato 1 x 1 e quando lo inserisci gli dai alla scala X la lunghezza di un lato e alla Y l'altro
cari colleghi, il cad è come una città, per arrivare da A a B , puoi scegliere infinite strade!! chi è più bravo, fa la più corta.
tutti siamo in grado di disegnare un rettangolo in n modi. la mia curiosità riguardava esclusivanmenbte il comando 'rettangolo', che mi sembra non permetta di impostare le lunghezze dei lati dati.
prima della release 13, nei bonus di AutoCAD c'era questo lisp (funzionante anche nel 2000)
------------------------------------------------------------------
;;; RECTANG.lsp
;;; Copyright (C) 1990 by Autodesk, Inc.
;;;
;;; Permission to use, copy, modify, and distribute this software and its
;;; documentation for any purpose and without fee is hereby granted.
;;;
;;; THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED WARRANTY.
;;; ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR PURPOSE AND OF
;;; MERCHANTABILITY ARE HEREBY DISCLAIMED.
;;;
;;; by Amy Berger
;;; April, 1990
;;;
;;;--------------------------------------------------------------------------
;;; DESCRIPTION
;;;
;;; RECTANG.LSP
;;;
;;; This lisp routine creates a 2d square or rectangle in the currect ucs. ;;;
;;;
;;;
;;;--------------------------------------------------------------------------
(defun myerror (s) ; If an error (such as CTRL-C) occurs
; while this command is active...
(if (/= s "Function cancelled")
(princ (strcat "\nError: " s))
)
(setvar "cmdecho" ocmd) ; Restore saved modes
(setvar "blipmode" oblp)
(setq *error* olderr) ; Restore old *error* handler
(princ)
)
(defun c:rectang (/ olderr ocmd oblp pt1 pt2 pt3 pt4 l w)
(setq olderr *error*
*error* myerror)
(setq ocmd (getvar "cmdecho"))
(setq oblp (getvar "blipmode"))
(setvar "cmdecho" 0)
(initget 1) ;3D point can't be null
(setq pt1 (getpoint (strcat "\nCorner of rectangle or square: ")))
(setvar "ORTHOMODE" 1)
(initget 7) ;Length can't be 0, neg, or null
(setq l (getdist pt1 "\nLength: "))
(setq pt2 (list (+ (car pt1) l) (cadr pt1) (caddr pt1)))
(grdraw pt1 pt2 2)
(initget 7 "Square") ;Width can't be 0, neg, or null
(setq w (getdist pt1 "\nSquare/: "))
(if (= w "Square")
(setq w l)
)
(setq pt3 (list (car pt2) (+ (cadr pt2) w) (caddr pt2)))
(setq pt4 (list (car pt1) (+ (cadr pt1) w) (caddr pt1)))
(grdraw pt2 pt3 2)
(grdraw pt3 pt4 2)
(grdraw pt4 pt1 2)
(setvar "ORTHOMODE" 0)
(command "_pline" pt1 pt2 pt3 pt4 "_close")
(prompt "\nRotation angle: ")
(command "_rotate" "_l" "" pt1 pause)
(setvar "cmdecho" ocmd)
(setvar "blipmode" oblp)
(setq *error* olderr) ; Restore old *error* handler
(princ)
)
(defun c:rect() (c:rectang))
(princ "\n\tC:RECTANG loaded. Start command with RECT or RECTANG.")
(princ)
------------------------------------------------------------------
;;; RECTANG.lsp
;;; Copyright (C) 1990 by Autodesk, Inc.
;;;
;;; Permission to use, copy, modify, and distribute this software and its
;;; documentation for any purpose and without fee is hereby granted.
;;;
;;; THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED WARRANTY.
;;; ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR PURPOSE AND OF
;;; MERCHANTABILITY ARE HEREBY DISCLAIMED.
;;;
;;; by Amy Berger
;;; April, 1990
;;;
;;;--------------------------------------------------------------------------
;;; DESCRIPTION
;;;
;;; RECTANG.LSP
;;;
;;; This lisp routine creates a 2d square or rectangle in the currect ucs. ;;;
;;;
;;;
;;;--------------------------------------------------------------------------
(defun myerror (s) ; If an error (such as CTRL-C) occurs
; while this command is active...
(if (/= s "Function cancelled")
(princ (strcat "\nError: " s))
)
(setvar "cmdecho" ocmd) ; Restore saved modes
(setvar "blipmode" oblp)
(setq *error* olderr) ; Restore old *error* handler
(princ)
)
(defun c:rectang (/ olderr ocmd oblp pt1 pt2 pt3 pt4 l w)
(setq olderr *error*
*error* myerror)
(setq ocmd (getvar "cmdecho"))
(setq oblp (getvar "blipmode"))
(setvar "cmdecho" 0)
(initget 1) ;3D point can't be null
(setq pt1 (getpoint (strcat "\nCorner of rectangle or square: ")))
(setvar "ORTHOMODE" 1)
(initget 7) ;Length can't be 0, neg, or null
(setq l (getdist pt1 "\nLength: "))
(setq pt2 (list (+ (car pt1) l) (cadr pt1) (caddr pt1)))
(grdraw pt1 pt2 2)
(initget 7 "Square") ;Width can't be 0, neg, or null
(setq w (getdist pt1 "\nSquare/
(if (= w "Square")
(setq w l)
)
(setq pt3 (list (car pt2) (+ (cadr pt2) w) (caddr pt2)))
(setq pt4 (list (car pt1) (+ (cadr pt1) w) (caddr pt1)))
(grdraw pt2 pt3 2)
(grdraw pt3 pt4 2)
(grdraw pt4 pt1 2)
(setvar "ORTHOMODE" 0)
(command "_pline" pt1 pt2 pt3 pt4 "_close")
(prompt "\nRotation angle: ")
(command "_rotate" "_l" "" pt1 pause)
(setvar "cmdecho" ocmd)
(setvar "blipmode" oblp)
(setq *error* olderr) ; Restore old *error* handler
(princ)
)
(defun c:rect() (c:rectang))
(princ "\n\tC:RECTANG loaded. Start command with RECT or RECTANG.")
(princ)
alla fine, però, mi sembra di capire che su autocad 2000, dopo aver comadato 'rettangolo', non è possibile impostare in maniera diretta le dimensioni dei lati una volta definitane l'origine
è giusto che sia così, ci sono dei casi dove devi costruire il rettangolo su 2 punti in diagonale...
AutoCAD ti dà anche la possibilità di scelta.
Nel tuo caso devi solo fare la fatica di digitare Q prima di immettere le dimensioni, come spiegato da andrea.
END
AutoCAD ti dà anche la possibilità di scelta.
Nel tuo caso devi solo fare la fatica di digitare Q prima di immettere le dimensioni, come spiegato da andrea.
END
ma vi rendete conto? un rettangolo.punto di applicazione, e coordinate relative di x e y, che parlando semplice dai le dimensioni della base e dell'altezza.