FastFiber
Menu

Toon bijdragen

Deze sectie stelt je in staat om alle bijdragen van dit lid te bekijken. Je kunt alleen de bijdragen zien waar je op dit moment toegang toe hebt.

Toon bijdragen Menu

Berichten - Kristof_0609

#1
Autolisp / Blocks uitsplitsen naar layers
vr 01 10 2010, 08:42:19
Ik heb een tekening met allerlei blocks (verschillende blocknamen) die allemaal op dezelfde layer staan. Is er iemand die een lisp voorhanden heeft die deze blocks kan uitsplitsen naar afzonderlijke layers ? (bv in de tekening zitten blocks "ALU_01" ,"ALU_03" en "BEG_02" die allemaal op layer "0" staan, nu is het de bedoeling dat de blocks "ALU_01" op de layer "ALU_01" komen te staan, de blocks "ALU_03" komen op layer "ALU_03" en de blocks "BEG_02" komen op layer "BEG_02"...uiteraard zijn dit slechts voorbeeldbenamingen, in totaal zitten meer dan 120 verschillende blocknames in de tekening die dus uitgesplitst moeten worden.
Het is dus de bedoeling dat de lisp alle blocknames opspoort, voor elke blocknaam een identieke layernaam aanmaakt en daarna alle blcoks op de overeenkomstige layer verplaatst. (geen idee of LISP hiertoe in staat is...)

Indien hier iemand mee kan helpen.... :vreegoe:

Alvast bedankt.
#2
(defun c:zval ()
(setq a (ssget ' ((0 . "point"))))
(setq b (sslength a))
(setq c 0)
(while (< c b)
(setq jk (cdr (assoc 10 (entget (ssname a c)))))
(setq gh (caddr jk))
(setq mu (rtos gh 2 2))

(setq jm (list (car jk) (cadr jk)))
(command "text" jm "" "" mu)
(setq c (+ c 1))
)
)

Lips zet een textwaarde (z-waarde) op je punten.
Hoop dat dit is wat je zcoht.