|
Lisp : entmake Polyline
CADblue am 27.07.2011 um 11:52 Uhr (0)
Hi Leute!!!habe grad mal bisschen das Formum gestöbert und auch einen Beitrag gefunden -- http://ww3.cad.de/foren/ubb/Forum145/HTML/003261.shtmlHabe wir ihr unten sehen könnt die lisp genau nach Vorgabe aufgebaut. Warum funktioniert er trotzdem nicht???Code:(entmake (list (cons 0 "LWPOLYLINE")(cons 100 "acdbentity")(cons 8 "0")(cons 100 "acdbpolyline")(cons 90 4)(cons 70 1)(cons 10 (getpoint "
1ter"))(cons 10 (getpoint "
2ter"))(cons 10 (getpoint "
3er"))(cons 10 (getpoint "
4ter"))))mfg blue
|
| In das Form Lisp wechseln |
|
Lisp : gruppenfilter per lisp ändern
CADblue am 10.04.2013 um 12:23 Uhr (0)
Hi Leute,ich suche jetzt seit 2 tagen nach einer lösung im web aber komme einfach nicht auf die lösung. deswegen wende ich mich jetzt doch an euch und hoffe auf hilfe.ich habe gruppenfilter erstellt, um layer in verschiedenen gruppen zu unterteilen. meine frage nun, wie kann ich per lisp die namen auslesen bzw den gewünschten gruppenfilter aktiv setzen? ich bin schon soweit gekommen die dictionary auszulesen aber irgendwie finde ich doch nicht meinen gruppenfilter namen und weiß leider auch nicht wie ich i ...
|
| In das Form Lisp wechseln |
|
Lisp : Zoom mit effekt in lisp
CADblue am 20.07.2016 um 17:12 Uhr (1)
Hallo zusammen,ich steh schon wieder aufm schlauch und find nicht weiter. hoffe ihr könnt mir wie immer schnell und einfach helfen...denke euch ist schon aufgefallen wenn man den normalen acad befehl "zoom" laufen lässt entsteht immer ein rein- oder raus-zoom effek je nach dem welchen modi man wählt. ich will den zoom jetzt über lisp laufen lassen was auch soweit funktioniert jedoch springt der zoom dann immer vom einen in den nächsten bereich. ich hätte aber gern auch diesen rein und raus-zoom effekt... i ...
|
| In das Form Lisp wechseln |
 |
Lisp : Dynamischer Block anpassen
CADblue am 08.07.2017 um 17:10 Uhr (15)
Hallo zusammen,Manuelle Vorgehensweise:Dynamischen Block im Blockeditor öffnen, alles markieren und auf Farbe rot legen. Blockeditor schließen. Block mit "attsync" aktualisieren.nun zur lisp:Ich habe versucht wie bei normalen Blöcken mit Code:(setq haupt (car(entsel "Bitte Objekt wählen: ")))(setq neben (tblobjname "BLOCK" (cdr (assoc 2 (entget haupt)))))(while (/= nil neben)(if (= nil (assoc 62(entget neben)))(entmod (append (entget neben) (list (cons 62 1))))(entmod (subst (cons 62 1)(assoc 62(entget neb ...
|
| In das Form Lisp wechseln |
|
Lisp : Zoom/Panbegrenzung --> sysvar umschreiben?!?!
CADblue am 16.11.2011 um 14:09 Uhr (0)
Wie schreibe ich mit hilfe von Lisp eine schreibgeschützte sysvar um?Ps: danke regen behebt das problem.
|
| In das Form Lisp wechseln |
|
Lisp : Import Layer aus Fremd-dwg über Lisp
CADblue am 25.06.2012 um 14:48 Uhr (0)
Hi Leute!!!Wie kann ich z.b. Layer aus einer anderen .dwg in die aktuelle importieren. So wie z.b. im Designmanager. Ich habe im Prinzip eine Musterdatei in der alle wichtigen informationen wie blöcke, layer, ... schon drin sind. Wie kann ich mir jetzt per Lisp z.b. einen block oder layer importieren?Gibt es da eine vlax oder vla oder so was? oder wie könnte ich es sonst anstellen?mfg blue
|
| In das Form Lisp wechseln |
|
Lisp : Import Layer aus Fremd-dwg über Lisp
CADblue am 25.06.2012 um 15:28 Uhr (0)
hey, das habe ich schon, in diesem bestimmten fall habe ich aber etwas anderes vor.mfg blue
|
| In das Form Lisp wechseln |
|
Lisp : Import Layer aus Fremd-dwg über Lisp
CADblue am 25.06.2012 um 17:17 Uhr (0)
jo danke so weit euch beidenhab bisschen geforstet und das hier gefunden,Code:(defun c:hollayer (/ oAcad oCurDoc strFile oOpenDoc oOpenDocLayers lstObj oLayer array) (setq oAcad (vlax-get-acad-object)) (setq oCurDoc (vla-get-ActiveDocument oAcad)) (setq strFile (getfiled "Zeichnung wählen:" (getvar "DWGPREFIX") "dwg" 0)) (setq oOpenDoc (vla-Open (vla-get-documents oAcad) strFile)) (setq oOpenDocLayers (vla-get-layers oOpenDoc)) (setq lstObj nil) (vlax-for oLayer oOpenDocLayers (setq lstObj (cons oLayer ls ...
|
| In das Form Lisp wechseln |
|
Lisp : Mit Lisp Dynamischen Block ändern
CADblue am 16.08.2012 um 11:18 Uhr (0)
hey bernd,ich hab mich interessehalber auch mal mit deinem thema beschäftigt, bin aber leider auf keine variable oder ähnliches gestoßen die aufschluss darüber gibt welche dynamische blockoption aktuell dargestellt wird. ich finde zwar alle informationen die enthalten sind aber wie gesagt, nicht welche aktuell ist oder wie man eine andere aktuell machen kann. mfg blue
|
| In das Form Lisp wechseln |
|
Lisp : gruppenfilter per lisp ändern
CADblue am 10.04.2013 um 13:57 Uhr (0)
also so weit bin ich selber gekommen:(setq OBJ(vla-get-layers (vla-get-activedocument(vlax-get-acad-object))))(setq OBJ2(vla-GetExtensionDictionary OBJ))(setq E(vlax-vla-object-ename OBJ2))(setq D(entget E))Rückgabe:((-1 . Objektname: 7c212550 ) (0 . "DICTIONARY") (330 . Objektname: 7c20ac10 ) (5 . "1EA") (100 . "AcDbDictionary") (280 . 1) (281 . 1) (3 . "ACAD_LAYERFILTERS") (360 . Objektname: 7be09588 ) (3 . "ACAD_LAYERSTATES") (360 . Objektname: 7c212558 ) (3 . "ACLYDICTIONARY") (360 . Objektname: 7be095 ...
|
| In das Form Lisp wechseln |
|
Lisp : gruppenfilter per lisp ändern
CADblue am 10.04.2013 um 16:16 Uhr (0)
OK so weit so gut, habs so einigermaßen hinbekommen :P jetzt nur noch die frage wo ich diesen gruppenfilter aktuell setzen kann.hier unten mal die rückgabe bei allen layern und beim gruppenfilter "testing". so wies aussieht is da nur der GC (290 . 1). hab auch schon versucht den mit append in die liste einzufügen und ihn entmod(ed) leider kein erfolg, wär ja auch zu einfach gewesen :PGruppenfilter ALLE:((-1 . Objektname: 7be09638 ) (0 . "XRECORD") (5 . "149EF") (102 . "{ACAD_REACTORS") (330 . Objektname: 7 ...
|
| In das Form Lisp wechseln |
|
Lisp : Zoom mit effekt in lisp
CADblue am 21.07.2016 um 09:56 Uhr (14)
sehr gut danke... worked
|
| In das Form Lisp wechseln |
|
Lisp : vla-put-activedocument --> getpoint
CADblue am 03.07.2017 um 16:50 Uhr (1)
hi cadmium,dachte mir schon das das ein Problem sein könnte. Ich will eine Zeichnung öffnen einen neuen Einfügepunkt definieren, die Zeichnung speichern und schließen. Ist es überhaupt möglich die Lisp Routine in der neuen Zeichnung weiter laufen zu lassen? Denn wenn du schon so fragst warscheinlich nicht :/
|
| In das Form Lisp wechseln |
