|
Rund um AutoCAD : Spurge
CADwiesel am 27.09.2002 um 11:48 Uhr (1)
Nee, Sebastianliegt nicht an Deiner Kiste, sondern an Wolfgangs.Der hat das Bild noch in seinem Cache. Aber Du kannst ja nochmal genau hingukke.------------------GrußCADwiesel
|
| In das Form Rund um AutoCAD wechseln |
 |
Rund um AutoCAD : Befehlsleiste einstellen/ändern
CADwiesel am 05.12.2013 um 10:08 Uhr (15)
Hallo und Willkommen im Forumzum löschen der gespiegelten Objekt kommt doch in der Befehlszeile eine Abfrage. Ist das bei dir nicht so?------------------GrußCADwieselBesucht uns im CHAT
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : Linien über Schnittstelle einlesen
CADwiesel am 24.08.2009 um 14:47 Uhr (0)
Ja das ist möglich. Du kannst per VLisp auf Datenbanken zugreifen und dort das passende auslesen.Beispiel ist adolisp------------------Gruß CADwieselBesucht uns im CHAT
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : Blöcke automatisch verschieben (zerlegen)
CADwiesel am 24.02.2017 um 10:29 Uhr (1)
Ich kenne auch kein solches Programm. Dürfte aber relativ unschwer sein zu erstellen.------------------GrußCADwieselBesucht uns im CHAT
|
| In das Form Rund um AutoCAD wechseln |
|
AutoLisp : Dateiname aus Attributen bilden
CADwiesel am 10.11.2003 um 12:43 Uhr (0)
soo, weiterlernen.. das Attribut hängt ganz sicher NICHT an einem Block höchstens an einer Blockreferenz. hier mal eine Möglichkeit um an deinen Attributwert zu kommen: Das Ergebniss steht in der Variablen erg. (setq EARX_BTAA (tblnext BLOCK T) elist nil ) ;_ end of setq (while (/= EARX_BTAA nil) (setq elem (cdr (assoc -2 EARX_BTAA))) (while (/= elem NIL) (setq tt (entget elem)) (cond ((and (= (cdr (assoc 0 tt)) ATTDEF ) (= (cdr ...
|
| In das Form AutoLisp wechseln |
|
Rund um Autocad : Acad Version ermitteln
CADwiesel am 08.01.2003 um 11:42 Uhr (0)
Hai Leutz Ich hab mal ne Frage an Euch. Ich will mal ne Liste zusammenstellen, die die verschiedenen Acadversionen auflistet. Dazu mal bitte in der Befehlszeile acadver und _vernum eingeben und das Ergebniss hier posten. Die 14er Versionen würden mich auch interessieren. Danke für Eure Mühe Das hab ich schon: AutoCAD 2000 T.0.98 / T.1.07 AutoCAD 2000 (+ Service Pack 1) T.1.08 AutoCAD 2000 (+ Service Pack 2) T.1.09 ACADVER = 15.05 (Unlocked AutoCAD 2000i) ACADVER = 15.05s (Locked AutoCAD 2000i) A ...
|
| In das Form Rund um Autocad wechseln |
|
BricsCAD : LISP-Automationen deutlich schneller
CADwiesel am 13.08.2025 um 08:45 Uhr (1)
Stimmt!Es war in der V23 oder 24 soger fast 10 Fach schneller als AutoCAD.------------------GrußCADwieselBesucht uns im CHAT
|
| In das Form BricsCAD wechseln |
|
Lisp : tatsächlicher Winkel einer Linie
CADwiesel am 15.11.2017 um 15:12 Uhr (1)
geht per (vla-get-angle vla-object)oder per (angle startpunkt endpunkt)------------------GrußCADwieselBesucht uns im CHAT
|
| In das Form Lisp wechseln |
|
Lisp : DosLIB: Probleme mit dos_touch
CADwiesel am 06.02.2017 um 12:32 Uhr (1)
Kontakt: [URL=http://www.de.emea.mcneel.com/doslib.htm)][/URL]Geht sicher am schnellsten------------------GrußCADwieselBesucht uns im CHAT
|
| In das Form Lisp wechseln |
|
BricsCad : Blöcke
CADwiesel am 22.03.2012 um 07:01 Uhr (0)
was hältst du hiervon? http://www.theswamp.org/index.php?topic=32990.msg384539#msg384539 ------------------Gruß CADwieselBesucht uns im CHAT
|
| In das Form BricsCad wechseln |
|
Rund um Autocad : Proxy-Elemente
CADwiesel am 10.07.2003 um 07:51 Uhr (0)
bitte (defun c:KillProxy (/ *error* ss i n proxy) (vl-load-com) (defun *error* (error) (vla-endundomark *doc*) (cond ((not error)) ((wcmatch (strcase error) "*QUIT*,*CANCEL*")) (1 (princ (strcat "
ERROR: " error))) ) ;_ end of cond (princ) ) ;_ end of defun (or *acad* (setq *acad* (vlax-get-acad-object))) (or *doc* (setq *doc* (vla-get-ActiveDocument *acad*))) (vla-endundomark *doc*) (vla-startundomark *doc*) (or (and (setq i 0 n ...
|
| In das Form Rund um Autocad wechseln |
|
AutoLisp : Block modifizieren
CADwiesel am 02.09.2003 um 07:46 Uhr (0)
hier mal was von RoteSauce in Vlisp (defun ax eleteObjectFromBlock (ent / doc blk) (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)) ent (vlax-ename- vla-object ent) blk (vla-ObjectIdToObject doc (vla-get-OwnerID ent)) ) (vla-Delete ent) (vla-get-Count blk) ) (defun ax:AddObjectsToBlock (blk ss / doc blkref blkdef inspt refpt) (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)) blkref (vlax-ename- vla-object blk) blkdef (vla-Item (vla-get-Blocks doc) (vla-get-Name blkref)) in ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Externe Lisp in Repeat starten möglich?
CADwiesel am 26.10.2004 um 11:15 Uhr (0)
müsste so gehen (command .-layer _th * _on * ) (setq allobj (ssget X (list (-4 . AND )(cons 8 * ) (-4 . AND )))) (Setq objanz (sslength allobj)) (repeat objanz (setq laakt (ssget l )) (print laakt) (setq las (ssname laakt 0)) (print las) (setq elist (entget las)) (print elist) (setq lalist (assoc 8 elist)) (print lalist) (setq aktla (cdr lalist)) (print aktla) (command .-layer _se aktla _off * _on aktla ) (if (setq lst (acet-overkill-ui nil)) (acet-overkill2 lst) );if ...
|
| In das Form AutoLisp wechseln |
