Hi, I need help on SCALE comma

Saqib_theleo · 发表于 2022-7-6 08:10:24

Hi to all,
I want to know what is Lisp of built-in Scale command of AutoCad, I want to use default scale command value 0.8 every time rather than 1.0 (which is default value set by Cad). Where are these default values found in AutoCad.
Thanks.

pBe · 发表于 2022-7-6 08:26:06

What is it you need anyway? tell us the big picture

Tharwat · 发表于 2022-7-6 08:28:45

This can do the trick instead of the built-in scale command , and permanently with value 8.0 .

copy

(defun c:Test (/ selectionset intger point) (vl-load-com);;; Tharwat 12. march. 2012 ;;; (if (and (setq selectionset (ssget "_:L"))          (setq point (getpoint "\n Specify base point :"))     )   (repeat (setq intger (sslength selectionset))     (vla-scaleentity       (vlax-ename->vla-object         (ssname selectionset (setq intger (1- intger)))       )       (vlax-3d-point point)       8.0     )   )   (princ) ) (princ))

David Bethel · 发表于 2022-7-6 08:38:01

ASAIK, They've always been hard coded into AutoCAD and therefore not negotiable. -David.

That is if you are talking about the scale parameter via INSERT command.

Saqib_theleo · 发表于 2022-7-6 08:53:12

Hi Tharwat,
Thanks for your help, yes this is what I needed. I'll add this Lisp in startup suite content in the AutoLisp Loadapplication so that when I use scale command I don't have to write 0.8 every time on every drawing I open.
Thanks for your help.

Saqib_theleo · 发表于 2022-7-6 08:55:18

Hi pBe,
I don't mean to change Cad's standard commands, just wanted to change Scale command's default value 1.0 to 0.8. I am working on too many drawings. All of them were edited to make some changes but now we need some of old data from unchanged drawings and scale them a little bit like 0.8. Tharwat made a Lisp which works as I wanted.
Hope you understand.

Saqib_theleo · 发表于 2022-7-6 09:04:01

Hi David,
Alright no problem if they are unable to change. I wanted to change Scale command's value 1.0 to 0.8. Tharwat made a Lisp which works fine. Thanks.

Tharwat · 发表于 2022-7-6 09:14:26

You're welcome .

happy to hear that .

Tharwat

[编程交流] Hi, I need help on SCALE comma

发表回复

精选推荐