Topic: How to select dim style using active x. Help!

[abe123456789]

I created a line using vla-Addline and then used vla-addDimaligned  to add a dimension but I cannot figure out how to select which dimensions I want to use.
I want to make 2 dimension above and below the line. I have the 2 dimension style to do so but i can only use the current selected dimstyle.

Code: [Select]


(defun c:UGP (/ start end line1 dim1 a)
  (setq Start (getpoint "\nStart point of path: "))
  (setq end (getpoint start "\nEndpoint of path: "))

(setq *ModelSpace*
      (vla-get-ModelSpace
        (vla-get-ActiveDocument (vlax-get-acad-object))
      )

(setq line1
        (vla-Addline
          *ModelSpace* 
          start end
        )
  )
(vla-AddDimAligned *ModelSpace* start end end))
)
 



[BIGAL]

Try

(command "dimstyle" "r" "yourdimstyle")

[abe123456789]

I have tried that can’t figure it out

[ronjonp]

You need to get your code working before you go onto the next task.

[mhupp]

I have tried that can’t figure it out

are you trying to switch to a dimstyle that isn't loaded/saved?

Code - Auto/Visual Lisp: [Select]

1. (if (tblsearch "DIMSTYLE" "stylename")
2.   (command "-dimstyle" "restore" "stylename")
3.   (princ "\nDimstyle not found")
4. )

[abe123456789]

Im trying to Draw a line then dim that line with 2 existing dim that are on the document.

[mhupp]

Prob be easier to upload a drawing with the line and dimensions you want.
----Edit why two dims? why not use primary/secondary in one dim?

[abe123456789]

How would you do that with one dim?

[mhupp]

How would you do that with one dim?

https://www.youtube.com/watch?v=GyUUTh0ehSI