Topic: basic lisp help

[Anonymous]

(defun  c:d1()

   (setq dp1(getpoint))
   (setq dp2(getpoint))
   
   (command "-insert" "9d" "r" dp1 dp2 dp1 "" "")
   
   (command "align" "l" dp1 dp1 dp2 dp2 "" "y")

)

this is a little routine i have "created" to allow me to insert a door in an ope.  the job is for an old building and none of the doors opes are the same size.  the drawing is for fire certification so i only need to show a door symbol. ( a line and an arc)

my problem is it inserts the block of the door at the right rotation angle but i want it to scale  to the opening as well, so i thought by using the align command on the same 2 pick points that i can achieve what i am trying to do, when the programe gets to the align part it ignores the to point values i have and wants me to insert 2 new points.

can somebody please point me in the right direction

thanks in advance

Diarmuid

[diarmuid]

its o.k. i've solved it myself

if anybody can make any improvements suggestions i would welcome them

new code below...

(defun  c:d1()

   (setq dp1(getpoint))
   (setq dp2(getpoint))

   (setq dist1(distance dp1 dp2))
   
   (command "-insert" "9d" "r" dp1 dp2 dp1 "" "")
   
   (command "scale" "l" "" dp1 dist1)

)

[Mark]

I was thinking more along the lines of this;

Code: [Select]


(defun c:gugh (/ p1 p2 ang)

  (defun rtd (x)
(/ (* x 180.0) pi)
)


  ;; assuming your block is one unit before scaling
 
  (setq p1 (getpoint "\nPick hinge point: ")
p2 (getpoint p1 "\nDoor openning: ")
ang (rtd (getangle p1 "\nAngle: "))
)

  (command "_insert" "door" p1 (distance p1 p2) "" ang)

  )


[diarmuid]

thanks again

saves me a whole bunch of time.

Thanks.