auto scaling block issue

[vtmiii]

since Autocad 2021 and now in 2022, i have noticed a scaling problem when inserting a block. now i did double check the problem with autocad 2020 and had no problem with block. I wrote a lisp routine for inserting duct turning vanes in duct. basically when the command is used, you pick the inside corner of the turn and the pick the outside corner of the turn, this sets a variable that is run through the lisp file and determines which block to get and inserts the block and scales it to the distance in variable and its done. In autocad 2020 and earlier it works fine, but since 2021 it doubles the scaling of the block.
the blocks for this function are 1 inch long so they scale ease. now i know i can fix this by rewritting the lisp routine, but should not have to. Has anyone else noticed this problem

[Tom Beauford]

Without seeing the lisp I'd have to guess the block was modified somehow. Compare the blocks from an older drawing with one added in 2021. Are they scaled different or are the blocks different sizes when you edit them?

[vtmiii]

nope its the same blocks and same lisp routine
here is part of the lisp file

(defun c:V ()
(command "osnap" "intersection" "")
(setq pt1 (getpoint "insertion point: "))
(setq pt2 (getpoint "rotation point: "))
(setq len (distance pt1 pt2))
(cond
((< len 16.9706)VA
(command "-insert" "vane1" pt1 "" "" pt2 "")
(command "scale" "l" "" pt1 pt2 "")
)

i also attached the block that this part of routine calls in

[Tom Beauford]

nope its the same blocks and same lisp routine

So you're saying they're the exact same blocks scaled exactly the same are different sizes in drawings drawn in different versions?


You need to Wrap Code tags around any code you post.

Clicking the [Go Advanced] button at the bottom puts a toolbar at the top and the # icon in that toolbar places code tags around

selected text

for you or simply paste your code inside.

You've only shown part of the lisp missing at least two closing parenthesis and a definition for VA.
Try changing (command "osnap" "intersection" "") to (setvar 'osmode 32) and changing the other command calls to command-s.
V is the command alias for the view command. I'd try a little harder to name your lisp command.

[vtmiii]

ok here is the actual lisp file i wrote here at home before bringing it to work
and i included the all the vane blocks that the lisp routine file calls for. as stated
before, it works fine in all cad Versions before 2021. if think its actually a code problem in
the actual Acad.exe file

[Tom Beauford]

Avoid unnecessary command calls replace (command "osnap" "intersection" "") with (setvar 'osmode 32).
The newer command-s works much cleaner and avoids a lot of issues from using command calls which may be what you've been having.
The Express Tools installed with AutoCAD have not been updated to command-s and fail all the time now. https://forums.augi.com/showthread.p...lisp-functions
Again what is VA in line 7 supposed to be doing?

[vtmiii]

the VA is from some help when i first created the file along time ago (about 6 years ago) with someone here helping me