CADsite forum

Ontzettend bedankt !!!

Citaat van: HofCAD op wo 19 04 2006, 19:48:41
Beste Bossie,

Ik heb het bovenstaande programma iets veranderd, geeft het al reeds de waarden
die je verwacht.
Let op het verschil met:
http://www.cadsite.be/smf/index.php/topic,1088.0.html

Groetjes HofCAD CSI

PS Of kun je eenvoudige voorbeeld tekening op de site zetten, met de cirkels en de waarden.

Dit is het helemaal ! Ontzettend bedankt. Ik kan zo geen voorbeeld direct doorsturen, omdat ik hier thuis zo geen bestand heb momenteel.
Zo ziet het er nu dus uit :

(defun c:CXYZ (/ ~CMD ~OS ss n e ed r pm)
  (setq  ~CMD (getvar "CMDECHO")
~OS  (getvar "OSMODE")
  )
  (mapcar 'setvar '("CMDECHO" "OSMODE") '(0 0))
  (if (setq ss
     (ssget "X"
    '((0 . "CIRCLE"))
     )
      )
    (progn
      (setq  n  0
      )
      (repeat (sslength ss)
(progn
  (setq e  (ssname ss n)
ed (entget e)
pm (trans (cdr (assoc 10 ed)) e 0)
r  (cdr (assoc 40 ed))
  )
  (command "_TEXT"
   "J"
   "TC"
   (polar pm (* 1.5 pi) (+ r 7))
   "6"
   "0"
   (strcat
   "X= "
   (rtos (car pm) 2 4)
   ", Y= "
   (rtos (cadr pm) 2 4)
   ", Z= "
   (rtos (caddr pm) 2 4)
   )
  )
)
(setq n (1+ n))
      )
    )

  )
  (mapcar 'setvar '("OSMODE" "CMDECHO") (list ~OS ~CMD))
  (princ)
)


Nu heb je dus de X, Y en Z-waarde naast elkaar staan. Zou het mogelijk zijn om de X, Y en Z-waarde onder elkaar te plaatsen, indien dit niet teveel werk in beslag neemt? Of kan je me zeggen met welk commando dit gebeurt? Of moet je telkens opnieuw met het text-commando beginnen voor zowel de Y en Z-waarde.
Mss domme vragen hoor, mrja ik ben nog mr 2 dagen met AutoLisp bezig en heb voordien enkel wat geklungeld in VBA

Nogmaals bedankt
Groetjes Bossie

Citaat van: bart op wo 19 04 2006, 16:10:35
wil je de waarde's van de gemeten  punten bij de circels hebben ?
(dus 3 coordinaten met (x,y,z).

Zo ja dan gaat dit alleen lukken met de waarde's uit de database

van circels weet autocad namelijk allleen het middenpunt, de diameter en de richting van het vlak waarin hij is getekend.
de oorspongkelijk 3 punten worden niet in de gegevens van de circel bewaard.

We meten enkel 3 punten, om zo een cirkel te kunnen creëren door deze punten. De bedoeling is dus om de X,Y,Z-coördinaat van het middelpunt van de cirkel te kennen. Dit is nodig omdat we de theoretische coördinaat van het middelpunt reeds kennen, en dus kunnen zeggen hoeveel de buis moet verschoven of afgesneden dient te worden.  We vertrekken namelijk steeds van een vast assenstelsel rond een module (piperack), en vandaaruit meten we de uiteinden aan weerzijden van zo'n module. 
Greetz Bossie

Hallo,

ik ben onlangs begonnen met het studeren van Autolisp. Gewoon om commandos te vereenvoudigen.
Nu voor mijn werk (ben landmeter) moet ik piperacks opmeten. Dit gebeurt door van elke buis 3 punten op te meten (in X,Y,Z-coördinaat). Vervolgens wordt deze DXF uitgelezen in Acad en wordt met behulp van UCS een cirkel door deze 3 punten getekend. Zo wordt dit vr elke buis gedaan. Nu wanneer dit voltooid is, wordt dit geplot, en schrijven we de X,Y,Z-coördinaat bij elke cirkel erbij. Dit is natuurlijk een hels karwei.

Nu is het mogelijk om een routine te schrijven die direct de X,Y, Z-coördinaat bij de cirkel plaats wanneer je hem selecteert, zonder dat je alles achteraf moet neerpennen?
Alvast bedankt!