|
Documentos
Lips para acotar más rápido, activa con comando AD.
A continuación el código fuente:
;AutoDimension polylines
; - draw dimension(s) from vertex to vertex for selected polylines
; - add arc length for arc segments.
; Stefan M. 10.11.2015 - for KimProjects.com
(defun C:AD ( / *error* a acdoc b c d dim e fd ht i o p1 p2 p3 pc pm rad sd space ss u opt isLine)
(setq acDoc (vla-get-activedocument (vlax-get-acad-object))
space (vlax-get acDoc (if (= (getvar 'cvport) 1) 'paperspase 'modelspace))
dim (getvar 'dimstyle)
ht (* 1.0 (getvar 'dimtxt) (if (= 0 (getvar 'dimanno)) (getvar 'dimscale) (/ 1.0 (getvar 'cannoscalevalue))))
)
(vla-startundomark acDoc)
(defun *error* (msg)
(and
msg
(not (wcmatch (strcase msg) "*CANCEL*,*QUIT*,*BREAK*"))
(princ (strcat "\nADError: " msg))
)
(vla-endundomark acdoc)
(princ)
)
(setq opt (mapcar
'(lambda (a b)
(cond
((getdictvar "AD_otions" a))
((setdictvar "AD_otions" a b))
)
)
'("Linear" "Arc")
'("b0" "c0")
)
)
(initget "Options")
(if
(eq (getkword "\nPress enter to continue or [Options]: ") "Options")
(setq opt (AD_options opt))
)
(if
(setq ss (ssget '((0 . "LWPOLYLINE,LINE,ARC"))))
(repeat (setq i (sslength ss))
(setq e (ssname ss (setq i (1- i)))
o (vlax-ename->vla-object e)
a (vlax-curve-getstartparam e)
c (vlax-curve-getendparam e)
b nil
isLine (wcmatch (vla-get-Objectname o) "AcDbLine,AcDbArc")
)
(while (<= (setq b (if isLine (if b (1+ b) c) (1+ a))) c)
(setq p1 (vlax-curve-getpointatparam e a)
p2 (vlax-curve-getpointatparam e b)
u (angle p1 p2)
pm (vlax-curve-getpointatparam e (/ (+ a b) 2.0))
sd (vlax-curve-getsecondderiv e (/ (+ a b) 2.0))
rad (distance '(0 0 0) sd)
d (cond (isLine) ((not (minusp (vla-getbulge o a)))))
pc (mapcar (if d '+ '-) pm sd)
p3 (if
(or (equal rad 0.0 1e-8) (eq (cadr opt) "c2"))
(if
(eq (car opt) "b0")
(polar pm (+ (atan (/ (sin u) (cos u))) (/ pi 2.0)) ht)
(polar pm (- (atan (/ (sin u) (cos u))) (/ pi 2.0)) (* 1.75 ht))
)
(if
(eq (cadr opt) "c0")
(polar pm (angle pm pc) (if (<= 1e-4 (angle pc pm) pi) (* 1.75 ht) ht))
(polar pm (angle pc pm) (if (<= 1e-4 (angle pc pm) pi) ht (* 1.75 ht)))
)
)
)
(if
(equal rad 0.0 1e-8)
(vla-adddimaligned space (vlax-3d-point p1) (vlax-3d-point p2) (vlax-3d-point p3))
(vla-adddimarc space (vlax-3d-point pc) (vlax-3d-point p1) (vlax-3d-point p2) (vlax-3d-point p3))
)
(setq a (1+ a))
)
)
)
(vla-endundomark acdoc)
(princ)
)
(defun AD_options (old / a1 a2 b1 b2 dcl dcl_id file r)
(setq
a1 (car old)
a2 (cadr old)
dcl (open (setq file (vl-filename-mktemp "AD" (getvar 'dwgprefix) ".dcl")) "w")
)
(write-line
"AD: dialog { label = \"Opciones de Dimensiones\" ;
: boxed_radio_column { label = \"Posicion Dimension Lineal\" ; key = \"a1\";
: radio_button { label = \"Encima de Linea\" ; key = \"b0\";}
: radio_button { label = \"Debajo de Linea\" ; key = \"b1\";}}
: boxed_radio_column { label = \"Posicion Dimension Arco\" ; key = \"a2\";
: radio_button { label = \"Dentro del Arco\" ; key = \"c0\";}
: radio_button { label = \"Fuera del Arco\" ; key = \"c1\";}
: radio_button { label = \"Como para Lineas\" ; key = \"c2\";}}
ok_cancel ;}"
dcl)
(close dcl)
(if
(<0 (setq dcl_id (load_dialog file)))
(if
(new_dialog "AD" dcl_id)
(progn
(action_tile "a1" "(setq b1 $value)")
(action_tile "a2" "(setq b2 $value)")
(set_tile "a1" (setq b1 a1))
(set_tile "a2" (setq b2 a2))
(setq r (start_dialog))
(unload_dialog dcl_id)
)
)
)
(if (findfile file) (vl-file-delete file))
(if
(= r 1)
(mapcar 'setdictvar
'("AD_otions" "AD_otions")
'("Linear" "Arc")
(list b1 b2)
)
(list a1 a2)
)
)
(defun getdictvar (dict var / dict_ename)
(if
(setq dict_ename (cdr (assoc -1 (dictsearch (namedobjdict) dict))))
(cdr (assoc 1 (dictsearch dict_ename var)))
)
)
(defun setdictvar (dict var val / dict_name record)
(or
(setq dict_ename (cdr (assoc -1 (dictsearch (namedobjdict) dict))))
(setq dict_ename (dictadd (namedobjdict) dict (entmakex '((0 . "DICTIONARY") (100 . "AcDbDictionary")))))
)
(if
(setq record (dictsearch dict_ename var))
(entmod (subst (cons 1 val) (assoc 1 record) record))
(dictadd
dict_ename
var
(entmakex
(list
'(0 . "DICTIONARYVAR")
'(100 . "DictionaryVariables")
'(280 . 0)
(cons 1 val)
)
)
)
)
val
)
Fuente: Stefan M. 10.11.2015 - for KimProjects.com
Descargar y más información
Sun, 11 Ene 2026
Por Rodrigo Alvayero
0 Descargas
Lips para acotar más rápido, activa con comando AD.
A continuación el código fuente:
;AutoDimension polylines
; - draw dimension(s) from vertex to vertex for selected polylines
; - add arc length for arc segments.
; Stefan M. 10.11.2015 - for KimProjects.com
(defun C:AD ( / *error* a acdoc b c d dim e fd ht i o p1 p2 p3 pc pm rad sd space ss u opt isLine)
(setq acDoc (vla-get-activedocument (vlax-get-acad-object))
space (vlax-get acDoc (if (= (getvar 'cvport) 1) 'paperspase 'modelspace))
dim (getvar 'dimstyle)
ht (* 1.0 (getvar 'dimtxt) (if (= 0 (getvar 'dimanno)) (getvar 'dimscale) (/ 1.0 (getvar 'cannoscalevalue))))
)
(vla-startundomark acDoc)
(defun *error* (msg)
(and
msg
(not (wcmatch (strcase msg) "*CANCEL*,*QUIT*,*BREAK*"))
(princ (strcat "\nADError: " msg))
)
(vla-endundomark acdoc)
(princ)
)
(setq opt (mapcar
'(lambda (a b)
(cond
((getdictvar "AD_otions" a))
((setdictvar "AD_otions" a b))
)
)
'("Linear" "Arc")
'("b0" "c0")
)
)
(initget "Options")
(if
(eq (getkword "\nPress enter to continue or [Options]: ") "Options")
(setq opt (AD_options opt))
)
(if
(setq ss (ssget '((0 . "LWPOLYLINE,LINE,ARC"))))
(repeat (setq i (sslength ss))
(setq e (ssname ss (setq i (1- i)))
o (vlax-ename->vla-object e)
a (vlax-curve-getstartparam e)
c (vlax-curve-getendparam e)
b nil
isLine (wcmatch (vla-get-Objectname o) "AcDbLine,AcDbArc")
)
(while (<= (setq b (if isLine (if b (1+ b) c) (1+ a))) c)
(setq p1 (vlax-curve-getpointatparam e a)
p2 (vlax-curve-getpointatparam e b)
u (angle p1 p2)
pm (vlax-curve-getpointatparam e (/ (+ a b) 2.0))
sd (vlax-curve-getsecondderiv e (/ (+ a b) 2.0))
rad (distance '(0 0 0) sd)
d (cond (isLine) ((not (minusp (vla-getbulge o a)))))
pc (mapcar (if d '+ '-) pm sd)
p3 (if
(or (equal rad 0.0 1e-8) (eq (cadr opt) "c2"))
(if
(eq (car opt) "b0")
(polar pm (+ (atan (/ (sin u) (cos u))) (/ pi 2.0)) ht)
(polar pm (- (atan (/ (sin u) (cos u))) (/ pi 2.0)) (* 1.75 ht))
)
(if
(eq (cadr opt) "c0")
(polar pm (angle pm pc) (if (<= 1e-4 (angle pc pm) pi) (* 1.75 ht) ht))
(polar pm (angle pc pm) (if (<= 1e-4 (angle pc pm) pi) ht (* 1.75 ht)))
)
)
)
(if
(equal rad 0.0 1e-8)
(vla-adddimaligned space (vlax-3d-point p1) (vlax-3d-point p2) (vlax-3d-point p3))
(vla-adddimarc space (vlax-3d-point pc) (vlax-3d-point p1) (vlax-3d-point p2) (vlax-3d-point p3))
)
(setq a (1+ a))
)
)
)
(vla-endundomark acdoc)
(princ)
)
(defun AD_options (old / a1 a2 b1 b2 dcl dcl_id file r)
(setq
a1 (car old)
a2 (cadr old)
dcl (open (setq file (vl-filename-mktemp "AD" (getvar 'dwgprefix) ".dcl")) "w")
)
(write-line
"AD: dialog { label = \"Opciones de Dimensiones\" ;
: boxed_radio_column { label = \"Posicion Dimension Lineal\" ; key = \"a1\";
: radio_button { label = \"Encima de Linea\" ; key = \"b0\";}
: radio_button { label = \"Debajo de Linea\" ; key = \"b1\";}}
: boxed_radio_column { label = \"Posicion Dimension Arco\" ; key = \"a2\";
: radio_button { label = \"Dentro del Arco\" ; key = \"c0\";}
: radio_button { label = \"Fuera del Arco\" ; key = \"c1\";}
: radio_button { label = \"Como para Lineas\" ; key = \"c2\";}}
ok_cancel ;}"
dcl)
(close dcl)
(if
(<0 (setq dcl_id (load_dialog file)))
(if
(new_dialog "AD" dcl_id)
(progn
(action_tile "a1" "(setq b1 $value)")
(action_tile "a2" "(setq b2 $value)")
(set_tile "a1" (setq b1 a1))
(set_tile "a2" (setq b2 a2))
(setq r (start_dialog))
(unload_dialog dcl_id)
)
)
)
(if (findfile file) (vl-file-delete file))
(if
(= r 1)
(mapcar 'setdictvar
'("AD_otions" "AD_otions")
'("Linear" "Arc")
(list b1 b2)
)
(list a1 a2)
)
)
(defun getdictvar (dict var / dict_ename)
(if
(setq dict_ename (cdr (assoc -1 (dictsearch (namedobjdict) dict))))
(cdr (assoc 1 (dictsearch dict_ename var)))
)
)
(defun setdictvar (dict var val / dict_name record)
(or
(setq dict_ename (cdr (assoc -1 (dictsearch (namedobjdict) dict))))
(setq dict_ename (dictadd (namedobjdict) dict (entmakex '((0 . "DICTIONARY") (100 . "AcDbDictionary")))))
)
(if
(setq record (dictsearch dict_ename var))
(entmod (subst (cons 1 val) (assoc 1 record) record))
(dictadd
dict_ename
var
(entmakex
(list
'(0 . "DICTIONARYVAR")
'(100 . "DictionaryVariables")
'(280 . 0)
(cons 1 val)
)
)
)
)
val
)
Fuente: Stefan M. 10.11.2015 - for KimProjects.com
Descargar y más información
Sun, 11 Ene 2026
Por Rodrigo Alvayero
0 Descargas
Bloques de todo en AUTOCAD 2D, incluye mobiliario urbano, consultorios, baños, recámaras, salas, estudios...
Descargar y más información
Sun, 11 Ene 2026
Por dani rodriguez
0 Descargas
el plano tiene varios modelos de posibles salones de clases que podrían ayudar a guiar a las personas para su distribución
Descargar y más información
Sun, 11 Ene 2026
Por Rafael Eduardo Anteliz Parada
0 Descargas
Casa habitacion de un nivel de 100m2 para adultos mayores con 2 recamaras, patio de servicio, cocina, comedor, sala y garage
Descargar y más información
Sun, 11 Ene 2026
Por Barbara Garcia Pali
0 Descargas
Sun, 11 Ene 2026
Por uriel mamberroi moreno skeler
0 Descargas
En cada local contiene un baño )planta baja y en la planta alta con área de oficina y la estructura es de sistema estructural, y su respectivo sanitario e electrico e bomberos
Descargar y más información
Sun, 11 Ene 2026
Por oscar garcia
0 Descargas
Plano estructural de nave industrial en CAD que incluye la distribución general de la estructura, secciones constructivas y detalles de cimentación. El diseño muestra cotas, ejes y elementos estructurales necesarios para una correcta interpretación y ejecución del proyecto, garantizando estabilidad, seguridad y precisión en obra.
Descargar y más información
Sun, 11 Ene 2026
Por Alvin Smith
0 Descargas
Familia de anotación de revit para colocar el norte en planos de planta, dinamico y sencilllo sin cargar la grafica de la presentacion
Descargar y más información
Sun, 11 Ene 2026
Por Kristhian Latacela
0 Descargas
Anotacioes para norte en revit, orienta la s vistas de manera dinaminca con un simbolo sencillo de anotacion
Descargar y más información
Sun, 11 Ene 2026
Por Kristhian Latacela
0 Descargas
Sun, 11 Ene 2026
Por jair Dominguez
0 Descargas
Sun, 11 Ene 2026
Por Ackerman_J
0 Descargas
|
