Veröffentlichung

[Martina Webber]

Guten Abend.
Ich bin martin ein technischer Designer und verwenden autocad 2017, Ich sah überall und ich fand keine Lösung für mein Problem (es scheint wie eine triviale Sache, aber ich kann nicht verstehen, wo ich meine Hände setzen) Ich erklären.
Ich habe eine Lisp, dass die Fixierung eines Referenzpunktes es schafft, alle ausgewählten Blöcke "quota_altimetrica" zu aktualisieren. Es gibt keine Probleme, bis ich die Sichtbarkeit des Blocks (um das Symbol des Grundwassers anzuzeigen), wenn ich versuche, die Quote zu aktualisieren, die Sie nicht wählen, als ob der Block ein anderes war.
die einzige Möglichkeit, die Situation zu lösen ist, den Block wiederherzustellen, die Quote zu aktualisieren und dann die gewünschte Sichtbarkeit auszuwählen, aber es ist nicht praktisch.

Ich weiß nicht, wo ich meinen Kopf schlagen soll, ich dachte, ich würde zwei verschiedene Blöcke und zwei verschiedene Lispen machen, aber sie kämpfen nicht, d.h. Ich habe einen geladen oder den anderen geladen, nicht parallel.

Ich stecke eine dwg-Datei mit dem betreffenden Block und der lisp (leider ist es auf Deutsch).Anhang anzeigen Quote.dwg, Anhang anzeigen Quota altimetrica.lspn.b.: Das Attribut der beiden Sichtbarkeit ist gleich, der einzige Unterschied ist das Vorhandensein der Linien im Rahmen der Quote.

 

[Betoniera]

Tschüss.
Wenn Sie einem Programm ohne Blockaden zustimmen, biete ich meine.
Sie müssen es in Datei speichern
Einfügen in ein Suchverzeichnis (z.B. autocad 2017-support)
versuchen Sie es mit dem Befehl (Last "quotav").
Wenn das nicht ausreicht, werde ich Ihnen eine Website sagen, wo ich Texitaliano64 sah, die ein ähnliches Programm zur Verfügung gestellt hat, denke ich, es ist mit Blöcken fertig.
Hi.
http://bar-ingegneria.forumfree.it/?t=74986967#newpost;quotav.lsp berechnet und setzt vertikale Quoten ein
2012 25-11-2011
(Prompt "\n ")
(setq n (getvar "useri1")
(cond)
((= n 0); Einheit cm
(Setq um "cm" dec 0)
)
((= n 1); Einheit mm
(setq um "mm" dec 0)
)
((= n 2); Einheit m
(setq um "m" dec 2)
)
;

(falls ht nil (setq ht 2) ; Texthöhensteuer
(falls qb nil (setq qb 0)
(setq sc)
pb (getpoint "\npoint Quotenbasis : ")
a (strcat "\nimmetti valore numbers base <" (rtos qb) "> :")
qb1 (getreal a)
a (strcat "\nimmetti altezza testo ht = mm <" (rtos ht) "> :")
ht1 (getreal a)
)
(falls (/= ht1 nil) (setq ht ht1)); Texthöhensteuer
(falls (/= qb1 nil) (setq qb qb1)); Grundsteuer
(Setq dl (* 0,125 ht sc)
(Befehl "_setvar" "textsize" (* ht (getvar "dimscale") 0,1
(Befehl "_color" 3)
(Befehl "_linetype" "_s" "kontinuierlich")


(while)
(setq os (getvar "osmode")
(setq p (getpoint "\nimmetti punto ratio : ")
(-) (Cadr pb)
dh (+ dh qb)
a (rtos dh 2 dec)
)
(wenn (= dh 0) (setq a (strcat "%p" a))))
(falls (> dh 0) (setq a (strcat "+" a))))
(Setq p1 (- (Auto p) dl) (+)
p1 (Liste (- (Auto p) dl) (+ (cadr p) dl))
p2 (Liste (Auto) (+ (cadr p) dl))
p3 (Liste (+ (Auto p) dl) (+ (cadr p) dl))
)
(Befehl "_osmode" 0)
(Befehl "_pline" p3 p1 p3 ")
(Befehl "_solid" p2 p3 ")
(Befehl "_text" "_c" (Liste (Auto p) (+ (cadr p) (* 0,2 ht sc))))" 0 a)
(Befehl "_osmode" os)
;

 

[Martina Webber]

Guten Morgen.
Danke. [MENTION=22561]Betonier[/MENTION] für die gerade, ich habe bereits versucht, diese Lispe und die Bequemlichkeit des Blocks und die Lispe in meinem Besitz ist, dass die Chancen auch zu einem späteren Zeitpunkt aufgerüstet werden können, und wenn ich sie bewegen oder ändern die Art der Quote sollte schneller sein, es ist für ein paar Monate, dass ich dort arbeiten, aber die Lispe nicht schreiben, und ich kann es nicht hand setzen, da meine Unwissenheit der Programmierung beeinflussen,
(Scheißt)aber ich kann nicht verstehen, wie man neben dem "quota_altimetrica"-Block die Möglichkeit der Wahl eines zweiten Elements (ein beispielhafter Block für das Grundwasser) einfügen kann, muss
(Said)wenn ich das Problem lösen könnte, würde ich es jedem zur Verfügung stellen (nachdem ich die Indikationen von Deutsch auf Italienisch übersetzt habe, sind die hohen Adel dafür, dass die Indikationen auf Deutsch sind)

 

[Tristan]

das Problem, nach mir martin, ist, dass, wenn Sie die Sichtbarkeit eines dynamischen Blocks ändern, autocad the "rename" in *u<numero> (wie ein anonymer Block) und daher sieht die Lispe sie nicht mehr</numero>

 

[Martina Webber]

Dank Tristan, ich dachte mir, dass so etwas passieren würde, so wäre es besser, zwei Blöcke zu erstellen, aber ich kann nicht verstehen, wie man in der Lispe schreibt als "quote_altimetriche" Sie können auch wählen "quote_altimetriche_falda". bis jetzt verstehe ich, dass dies in der Zeichenkette angegeben werden muss
(setq lists (ssget '(0 . "insert") (2 . "quota_altimetrica"))))
(setq anzahl)
(setq nr 0)
(wenn nr anzahl)aber ich verstehe nicht, wie man
(Ssadd)und insbesondere wo

wenn Sie es bevorzugen, ich übersetze die lisp auf Italienisch, es ist kein Problem

 

[rpor66]

das Problem entsteht aus dem Ssget-Befehl, der den Block mit dem Namen "quota_altimetrica" sucht, die dynamischen Blöcke werden mit dem Namen *u. dargestellt. aber durch die Funktion (vlax-get-property (vlax-ename->vla-object n) 'effektname) können Sie den ursprünglichen Namen haben.
in der Datei lisp Ich fügte die Funktion, die diese Operation betreibt, Sie finden es unten in der Datei, fügte den Code, der die Liste erstellt, indem Sie alle Blöcke mit dem tatsächlichen Namen filtern.

Hi.

 

[Martina Webber]

mitichissimo rpor66, Sie lösten mein Problem:finger::finger::4406:

Denkst du, es ist nützlich, es jedem auf einer separaten Diskussion zur Verfügung zu stellen oder kann es so gut sein? Ich hätte es ins Italienische übersetzt und mit der Ergänzung der Korrektur könnte ich den kompletten Block mit der Lispe auf Italienisch zur Verfügung stellen.

 

[rpor66]

die Übersetzung würde geschätzt werden.

 

[Martina Webber]

Hier ist es, jetzt übersetzte ich die Lispe mit den Indikationen auf Italienisch (Ich entschuldige mich für die Unannehmlichkeiten).
zusammen mit der lisp auf Italienisch auch die dwg-Datei, die den kompletten Block enthält (abseits der Ebene gibt es die Art der Quote für die bestehende nach den geltenden Rechtsvorschriften).

Vielen Dank wieder ungemein für die Hilfe und ich hoffe, dass ich nächstes Mal nicht um Hilfe bitten muss, aber ich werde für alle etwas nützliches berechnen.