Lisp to to change dim scale linear to match auxilary scale

[mbrandt5]

Is there a lisp that will automate the dim linear scale to match the auxiliary scale...

so if a dimension is represented four times larger then I want it to read I could

Select dimension:

Then the code would read the CANNO SCALE

and change the Dim Linear Scale of selected object to reflect that

Example included

[BIG-AL]

Try this as I work in metric its much easier to convert the cannoscale.

(defun c:candim ( / obj sc scf)
(vl-load-com)
(setq obj (vlax-ename->vla-object(car (entsel "pick dimension"))))
(setq sc (getvar 'cannoscale))
(cond
((= sc "1/4\" = 1'-0\"")(setq scf 0.25))
((= sc "1/2\" = 1'-0\"")(setq scf 0.5))
)
(vla-put-LinearScaleFactor obj scf)
)

[mbrandt5]

Thanks a lot I greatly appreciate it...

I'm not very fluent in vlax for lisp...

So is anyone will to help me apply a sort of ssget so this can apply to multiple dimensions at once.

[Opie]

Thanks a lot I greatly appreciate it...

I'm not very fluent in vlax for lisp...

So is anyone will to help me apply a sort of ssget so this can apply to multiple dimensions at once.

I'm assuming ahouston972454's code works on individually picked objects. I'm not testing it.

There is one line in there which would needs some tweaking to make it work on multiple objects. Of course, you would need to also add another closed parenthesis near the end as you would want to loop through the selection set.

So, let's tweak some code. The following code removes the ability to select a dimension. Instead, it now requires you to supply an entity name to perform the necessary changes. By doing this we now have a function that does one performs part of the overall routine you are asking someone to provide to you.

(defun _candim ( ent / obj sc scf)
  (vl-load-com)
  (setq obj (vlax-ename->vla-object ent))
  (setq sc (getvar 'cannoscale))
  (cond
    ((= sc "1/4\" = 1'-0\"")(setq scf 0.25))
    ((= sc "1/2\" = 1'-0\"")(setq scf 0.5))
  )
  (vla-put-LinearScaleFactor obj scf)
)

Of course, you are thinking, "I don't want less functionality from the previous code. I want more functionality added to it.

Now that we have the simple minded task created, we can look at reusing that code to perform the task on multiple items.

So, now, let's write some code to select a bunch of objects and execute the simple task on each item.

(defun c:candim ( / ss cnt )
  (setq ss (ssget '((0 . "DIMENSION")))) ; Select dimension entities
  (if (> (setq cnt (sslength ss)) 0)
    (repeat cnt
      (_candim (ssname ss (setq cnt (1- cnt))))
    )
  )
)

By separating out the tasks, we can then build routines as building blocks to make larger routines. Is this the most efficient code? Probably not. I didn't add anything to improve efficiency. However, the code does answer the additional request.

Good Luck.

[BlackBox]

When iterating Selection Sets, I find it beneficial to iterate using the functions that handle the eName/vla-Object you ultimately want to query, or modify later in the code.

As example, if using eName, try REPEAT or WHILE, whereas if needing vla-Object use VLAX-FOR in lieu of REPEAT/WHILE + VLAX-ENAME->VLA-OBJECT.



Also, for LinearScaleFactor, consider CANNOSCALEVALUE in lieu of CANNOSCALE.

Cheers

[Opie]

Good idea. What benefits have you discovered using the functions associated with each?

In this instance, how would you handle an autolisp selection set as a collection to allow the usage of VLAX-FOR? The ActiveSelectionSet property of the Document object?

[BlackBox]

When dealing with Entity Names, or DXF I think it makes more sense to iterate an SSGET selection set using WHILE, or REPEAT, the latter being more efficient than the former.

If I need to access a selected entity's VLA-OBJECT Properties (not everything about a given object is available to either DXF or ActiveX, unfortunately), then I use the ActiveDocument Object's ActiveSelectionSet Property Collection. This is more efficient than using REPEAT + VLAX-ENAME->VLA-OBJECT and allows for quick calls to START/ENDUNDOMARK as well.

I'll post a slight adaptation to the code already posted here to demonstrate another time, particularly once this complementary bottle of Ozeki Nigori wears off. Haha

Kampai!

[BIG-AL]

Thanks Black box the cannoscalevalue is the way to go rather than using a text description.

[mbrandt5]

When running that version Opie...it worked at first but now I'm getting this error

; error: ActiveX Server returned an error: Parameter not optional

Any idea why?

[BlackBox]

I'll post a slight adaptation to the code already posted here to demonstrate another time....

(defun c:FOO (/ *error* acDoc scale ss)

  (defun *error* (msg)
    (if ss (vla-delete ss))
    (if acDoc (vla-endundomark acDoc))
    (cond ((not msg))                                                   ; Normal exit
          ((member msg '("Function cancelled" "quit / exit abort")))    ; <esc> or (quit)
          ((princ (strcat "\n** Error: " msg " ** ")))                  ; Fatal error, display it
    )
    (princ)
  )

  (if
    (ssget "_:L" '((0 . "DIMENSION")))
    (progn
      (vla-startundomark
        (setq acDoc (vla-get-activedocument (vlax-get-acad-object)))
      )
      (setq scale (getvar 'cannoscalevalue))
      (vlax-for x (setq ss (vla-get-activeselectionset acDoc))
        (vla-put-linearscalefactor x scale)
      )
    )
  )

  (*error* nil)
)