Ik zit met een kopbrekertje...
Een aangeleverde tekening bevat nogal wat ge-explodeerde dimensions...
De originele dimensionstyle had als 'arrowhead' een té grote 'architectural tick' (het 45°-streepje of slash)..
De tekening ziet er dus niet uit vanwege al die schuine strepen...
Dus wil ik AL deze tick's laten vervangen door een 'dot'..
Dat kán manueel maar dat vergt echt wel té veel werk.. vandaar mijn vraag :
Heeft iemand weet van een lisp die toelaat om geselecteerde 'tekenobjecten' (in dit geval die tick's) te vervangen met een dot waarbij de dot in het middelpunt van de tick komt te staan..?
Voor alle duidelijkheid : de tick's zijn lijnen, géén block's.. en ik kan ze apart selecteren met de filter-functie...
trouwens :een zalige kerstboom aan allen en met groeten,
Manu :vreegoe:
Citaat van: Manu op do 18 12 2008, 11:06:22
Ik zit met een kopbrekertje...
Een aangeleverde tekening bevat nogal wat ge-explodeerde dimensions...
De originele dimensionstyle had als 'arrowhead' een té grote 'architectural tick' (het 45°-streepje of slash)..
De tekening ziet er dus niet uit vanwege al die schuine strepen...
Dus wil ik AL deze tick's laten vervangen door een 'dot'..
Dat kán manueel maar dat vergt echt wel té veel werk.. vandaar mijn vraag :
Heeft iemand weet van een lisp die toelaat om geselecteerde 'tekenobjecten' (in dit geval die tick's) te vervangen met een dot waarbij de dot in het middelpunt van de tick komt te staan..?
Voor alle duidelijkheid : de tick's zijn lijnen, géén block's.. en ik kan ze apart selecteren met de filter-functie...
trouwens :een zalige kerstboom aan allen en met groeten,
Manu
Beste Manu,
Hopelijk werkt dit programma voor je, maar maak natuurlijk eerst een backup
van je tekening natuurlijk.
Om het programma de juiste dot grootte te laten tekenen, zal je eerst
deze regel (command "_DONUT" "0" "1" '(10 10) "") in het programma
moeten veranderen.
Anders krijg je een dot met een diameter van 1.
Om het programma te laten werken moet je eerst alle lijntjes seleceren,
want het programma werkt met de Previous selection set.
(defun C:Rtick( / ss1 i ent ed code10 code11 pt)
(setq ss1 (ssget "P"))
(if (not (tblsearch "BLOCK" "MijnDot"))
(progn
(command "_DONUT" "0" "1" '(10 10) "")
(command "_BLOCK" "MijnDot" '(10 10) "L" "")
))
(setq i 0)
(repeat (sslength ss1)
(setq ent (ssname ss1 i) ed (entget ent))
(setq code10 (assoc 10 ed) code11 (assoc 11 ed))
(setq pt (list
(/ (+ (nth 1 code10)(nth 1 code11)) 2.0)
(/ (+ (nth 2 code10)(nth 2 code11)) 2.0)
(/ (+ (nth 3 code10)(nth 3 code11)) 2.0)))
(command "_INSERT" "MijnDot" pt "1" "1" "0")
(setq i (1+ i))
)
(command "_ERASE" ss1 "")
) Met vriendelijke groet, HofCAD CSI
:pintje: Allen een :engel: fijne Kerst :engel: en een voorspoedig en gezond 2009. :pintje:
amai HofCad... hoe speel je het in godsnaam altijd klaar... :vreegoe: :vreegoe:
De lisp werkt in ieder geval maar het insetionpoint van de ' dots' blijkt niet altijd op het middelpunt van de tick te worden geplaatst...
Morgen pas kan ik je een deeltje van de tekening posten..
Tot dan!
enne... al gewéldig bedankt !!! :pintje:
Manu
Citaat van: Manu op do 18 12 2008, 16:56:31
amai HofCad... hoe speel je het in godsnaam altijd klaar... :vreegoe: :vreegoe:
De lisp werkt in ieder geval maar het insetionpoint van de ' dots' blijkt niet altijd op het middelpunt van de tick te worden geplaatst...
Morgen pas kan ik je een deeltje van de tekening posten..
Tot dan!
enne... al gewéldig bedankt !!! :pintje:
Manu
Beste Manu,
Als je mijn programma gebruikt, staat dan de Osnap uit(Osmode op 0)?
Met vriendelijke groet, HofCAD CSI
:pintje: Allen een :engel: fijne Kerst :engel: en een voorspoedig en gezond 2009. :pintje:
Beste HofCad,
Je had gelijk.. met het afzetten van de Osnap werkt dit perfect !
Een handige lisp, méér kan een mens niet vragen onder zijne kerstboom... :wink:
G-E-W-E-L-D-I-G bedankt.. enne.. mocht er ooit een CadForum-meeting komen dan drink je op mijn kosten!
Cheers mate!
Manu
Citaat van: Manu op vr 19 12 2008, 09:42:35
enne.. mocht er ooit een CadForum-meeting komen dan drink je op mijn kosten!
Niet houd je tegen om zelf eens af te spreken. :mrgreen:
Een echte meeting zit er niet in, als je kijkt hoe groot Vlaanderen en Nederland samen zijn...
We hebben eens een meeting gedaan met een forum van meer dan 5000 leden uit Vlaanderen, 30 man is er gekomen... :cry: