CADsite forum

Citaat van: designer68 op di 23 02 2010, 07:01:48een ander tekenpakket

Welk pakket?

Het tekenpakket waar wij mee werken heet Igos.
Die werkt op basis van coderingen.
Is een pakket die vervaardigd is door Nedgraphics.


groet, designer.

Reimer heeft laatst een lisp geplaats om uitleggers te tekenen, die tekent lijnen van 1 (meter) en heeft een vast startpunt.
Hoe kan ik hem dit laten doen via een zelf aangegeven lijn van punt 1 naar punt 2?

groet, designer.

En waar kunnen we die lisp vinden?

bij deze de lisp.

Het is voor mij een raadsel wat jij wilt:
"Via een lijn van pt1 naar pt2" wil jij een nieuwe lijn tekenen? Hoe? Waar? Loodrecht op het middelpunt van de oude lijn? Vanaf het beginpunt? Vanaf het eindpunt? Op een bepaalde afstand van... ??? Met lengte.... ??? Geef een duidelijker omschrijving van het doel.

Roy,


waar het mij om gaat is om langs een Path (rioolstreng) cirkels te laten zetten op afstanden voor de uitleggers.
De centerpunten van de cirkels worden dan mijn snappoints voor mijn uitleggers.
Met de uitleggers red ik me, dus die hoeven niet getekend te worden.
Dus ik kies 1e punt, is de beginput, 2e put, is de eindput en op dit Path wil ik kinnen zeggen cirkel op bijv. 12 m, 18.30 m, 42,30 m etc.
is dat mogelijk?

Let op: blkName aanpassen!
(defun c:Uitl ( / blkName pt1 pt2 ang dist)
  (setq blkName "UitloopConnector")
  (if
    (and
      (setq pt1 (getpoint "\nGeef beginpunt: "))
      (setq pt2 (getpoint pt1 "\nGeef eindpunt: "))
      (setq ang (angle pt1 pt2))
      (setvar "cmdecho" 0)
    )
    (while (setq dist (getreal "\nAfstand vanaf beginpunt of [Enter] om te stoppen: "))
      (command "_.insert" blkName (polar pt1 ang dist) 1 1 0)
    )
  )
  (setvar "cmdecho" 1)
  (princ)
)

dank je, block aangepast, dit was wat ik bedoelde.



opgelost