Author Topic: CAD CURIOUS  (Read 2213 times)

0 Members and 1 Guest are viewing this topic.

Anonymous

  • Guest
CAD CURIOUS
« on: November 29, 2004, 07:09:19 AM »
I am seeking the routine DIMBAL.LSP before it was modified. I know there is a thread on this forum where the routine was modified. I seek the orginal, however I do seek a way to modify one of the arrow heads to match the normal solid fill arrowhead in Autocad rather than the one offered in the program.  I believe the following is the routine for the arrowhead I speak of......

((= %e 6)
       (setq pt1 (polar %a (+ (angle %a %b) (* pi 0.5)) (* %c 0.5))
        pt2 (polar %a (+ (angle %a %b) (* pi 0.5)) %c)
       ) ;_ end of setq
       (command "arc" %a "_c" pt1 pt2)
       (if (/= 1 (abs bci_use_force))
    (command "change" (entlast) "" "p" "la" %f "")
       )   
       (setq pt1 (polar %a (- (angle %a %b) (* pi 0.5)) (* %c 0.5))
        pt2 (polar %a (- (angle %a %b) (* pi 0.5)) %c)
       ) ;_ end of setq
       (command "arc" %a "_c" pt1 pt2)
       (if (/= 1 (abs bci_use_force))
    (command "change" (entlast) "" "p" "la" %f "")
       )   
      )


Any assistance would be greatly appreciated. The routine above was taken from the modified routine mentioned earlier in this forum.

Thanks