Hallo,
Weet iemand een routine waarmee ik een lijn kan zetten, de snijpunten van deze lijn met andere lijnen van een bepaalde laag als pt definieert zodat ik deze kan gaan bematen?
groet.
Beste Pva,
Iets als dit:
(defun c:demo(/ e1 ed1 e2 ed2 e3 ed3 p10 p11 ang inters1)
(command "_.LINE" '(20 30) '(100 70) "")
(setq e1 (entlast) ed1 (entget e1))
(command "_.LINE" '(120 40) '(80 90) "")
(setq e2 (entlast) ed2 (entget e2))
(command "_.LINE" '(30 50) '(140 55) "")
(setq e3 (entlast) ed3 (entget e3) p10 (cdr(assoc 10 ed3)) p11 (cdr(assoc 11 ed3)))
(setq ang (atan (- (car p11)(car p10))(- (cadr p11)(cadr p10))))
(setq inters1 (inters (cdr(assoc 10 ed1)) (cdr(assoc 11 ed1)) p10 p11))
(command "_.DIMALIGNED"
inters1 (inters (cdr(assoc 10 ed2)) (cdr(assoc 11 ed2)) p10 p11)
(polar inters1 (+ ang pi) 8))
)
Met vriendelijke groet, HofCAD CSI.
PS Graag een voorbeeld tekening.
Bedankt voor je reactie. Dit is wel ongeveer wat ik bedoel.
Ik heb een voorbeeld bijgevoegd.
Beste Pva,
Probeer eens mijn AUTDIM.
Met vriendelijke groet, HofCAD CSI.
Citaat van: HofCAD op do 14 07 2011, 12:10:18
Beste Pva,
Probeer eens mijn AUTDIM.
Met vriendelijke groet, HofCAD CSI.
Daar kan ik wel wat mee, erg bedankt :D :vreegoe:
Citaat van: pva op do 14 07 2011, 12:51:33
Daar kan ik wel wat mee, erg bedankt :D :vreegoe:
Beste Pva,
Mogen we jouw versie ook eens zien?
Met vriendelijke groet, HofCAD CSI.
PS1 Geeft de combinatie van QSELECT en QDIM ook geen mogelijkheid?
PS2 Layer names en Apparent Intersection zijn boven in AUTDIM toegevoegd.
"Eigen" versie heb ik niet.... ik zal alleen de lagen even aanpassen. Ik heb niet heel veel verstand van lisp. Ik gebruik het hoofdzakelijk om acad commando's achter elkaar uit te voeren, selectie lijstjes, en snel blocken inserten etc.
Met die app.int. is het helemaal perfect, nogmaal dank!