Hallo an alle,
Habe wieder erneut ein Problem habe eine Punktwolke und will einen Block (stoptafel)
setzten,(anbei mein Lisp), kann allerdings immer nur 1 Block setzen danach ist schluß
mit dem Lisp.
Ich will aber wenn ich in punktnummer drinnen bin eine schleife haben.
Bitte kann mir wer helfen oder weiss wer eine bessere Lösung??
*****************************
(defun C:t5 ( / anfpkt npkt auswahl lausw obj pkt orig vlaobj opkt para vlawink winkrad wink)
(setvar "CMDECHO" 1)
(if (= ALT_WINK nil)
(setq ALT_WINK 0.0)
(setq ALT_WINK ALT_WINK)
)
(if (not (tblsearch "LAYER" "TECHNLIN"))
(command "-layer" "_m" "TECHNLIN" "_C" "4" "TECHNLIN" "_lt" "CONTINUOUS" "TECHNLIN" "_lw" "0.13" "TECHNLIN" "")
)
(command "-layer" "_s" "TECHNLIN" "")
(initget 1 "B")
(setq Blattrand (entsel "\nLinenelement auswählen oder am (B)lattrand ausrichten: \n"))
(if (= (type Blattrand) 'STR)
(setq wink ALT_WINK)
(progn
(setq lausw Blattrand)
(setq obj (car lausw))
(setq pkt (cadr lausw))
(setq orig '(0.0 0.0 0.0))
(vl-load-com)
(setq vlaobj (vlax-ename->vla-object obj))
(setq opkt (vlax-curve-getClosestPointTo vlaobj pkt))
(setq para (vlax-curve-getParamAtPoint vlaobj opkt))
(setq vlawink (vlax-curve-getFirstDeriv vlaobj para))
(setq winkrad (angle orig vlawink))
(setq wink (- (atof (angtos (angle orig vlawink))) 100))
)
)
(initget 128 "P")
(setq anfpkt (getpoint "\nEinfügepunkt auswählen oder (P)ktnummer: "))
(if (= (type anfpkt) 'STR)
(progn
(pktnummer)
(command "_.-insert" "VZ_STOP" npkt "1" wink)
)
(command "_.-insert" "VZ_STOP" anfpkt "1" wink)
)
;------------------------------------------------------------------------
(defun ausw ( / block)
(setq block "PUNKT")
(setq auswahl (ssget "X" (list (cons 2 block))))
)
;------------------------------------------------------------------------
(defun pktnummer ( / nr index name pktnr)
(setvar "CMDECHO" 0)
(if (/= "" (setq nr (getstring "\nPunktnummer eintippen: ")))
(progn
(setq npkt nil)
(setq index 0)
(ausw)
(setq name (ssname auswahl index))
(while name
(setq pktnr (cdr (assoc 1 (entget (entnext name)))))
(if (= nr pktnr)
(setq npkt (cdr (assoc 10 (entget name))))
)
(setq index (1+ index))
(setq name (ssname auswahl index))
)
(if npkt
npkt
(progn
(princ "\nPunkt nicht gefunden - Andere Pkt-Nummer eingeben: ")
(pktnummer)
)
)
)
)
)
;------------------------------------------------------------------------
(setvar "CMDECHO" 1)
(princ)
)
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP