Change a linear scale?

[lucas3]

This ... ?

(defun c:Test (/ ss n e)
 ;;    Tharwat 02.01.2014    ;;
 (if
   (and (progn
          (princ
            "\n Select any kind of lines to change the LType scale ..."
          )
          (setq ss (ssget "_:L" '((0 . "*LINE"))))
        )
        (princ (strcat "\n Current Ltype scale of last objects < "
                       (if *ltsv*
                         (rtos *ltsv* 2)
                         "0.0"
                       )
                       " > "
               )
        )
        (setq *ltsv* (getdist "\n Specify Line Type Scale :"))
   )
    (repeat (setq n (sslength ss))
      (setq e (entget (ssname ss (setq n (1- n)))))
      (entmod (append e (list (cons 48 *ltsv*))))
    )
 )
 (princ)
)
(princ)
(princ "\n** Type < Test > to invoke the command **")
(princ)

 

NO!not last ,before changes，scale is 1.0 , so when Select the object，Command bar display: "The Current Ltype scale Specify Line Type Scale : If I change to 0.5，so the current ltype scale is 0.5,next time when use this command ,Command bar display:"The Current Ltype scale Specify Line Type Scale :

[lucas3]

Hi,Tharwat ,other ，this code not support pline

[lucas3]

Hi!,Tharwat ,Your help was greatly appreciated. Can you understand what I mean ？（#21）

[lucas3]

please!help me.

[lucas3]

Hi!Tharwat ,I mean: when Select line ，Read and display The value of figure in the red box, ( figure is here: http://url.cn/Px3TOa )

 

when Single Choice no problem，when multi-select， if the value of linetype scale is the same , so display it ,if the value of linetype scale is different，so display “*multifarious*”

 

NOW ,Do you understand？

[lucas3]

This code by Free-Lancer (http://bbs.xdcad.net/)

ltype scale.lsp

 

app.lsp Must change expanded-name to app.fas,Because,Can't upload *.fas file

app.lsp

 

I think the fas file have some function

 

Hi !Tharwat, This is what I want ！ but must appload app.fas file ! now, you Should be understand what I want, Can you help me finish it ？I'm truly grateful for your help

[lucas3]

 

This is the demo.

[CADTutor]

Dear lucas3, this is starting to look like harassment. The contributors here do so out of their own good will - it's not a service. However, if you do need a service, there are those who can provide it at a very reasonable price - please ask.

[lucas3]

Sorry!Maybe I brought some trouble，I think, I should shut up.

[flyfox1047]

This code by Free-Lancer (http://bbs.xdcad.net/)

[ATTACH]46129[/ATTACH]

 

app.lsp Must change expanded-name to app.fas,Because,Can't upload *.fas file

[ATTACH]46132[/ATTACH]

 

I think the fas file have some function

 

Hi !Tharwat, This is what I want ！ but must appload app.fas file ! now, you Should be understand what I want, Can you help me finish it ？I'm truly grateful for your help

 

(defun c:abcd()
(vl-load-com)
(setq acadobject (vlax-get-acad-object))                  
(setq acaddocument (vla-get-activedocument acadobject))   
(setq mspace (vla-get-modelspace acaddocument))
(setq ss (ssget))
(setq i -1 flag t flag1 t)
(setq aa (ssname ss 0))
(setq vlaa (vlax-ename->vla-object aa))
(setq first (vla-get-LinetypeScale vlaa))
(repeat (sslength ss)
 (setq aa (ssname ss (setq i (1+ i))))
 (setq vlaa (vlax-ename->vla-object aa))  
 (if (= first (vla-get-LinetypeScale vlaa))
   (setq flag t)
   (setq flag1 nil)
 )
)
(if (and flag flag1)
 (setq gg (getreal (strcat "The current ltype scale is ：" (RTOS first 2) ",Specify Line Type Scale :"))：")))
 (setq gg (getreal (strcat "The current ltype scale is ：*multifarious* ，Specify Line Type Scale :"))：" )))
)
(setq i -1)
(repeat (sslength ss)
 (setq aa (ssname ss (setq i (1+ i))))
 (setq vlaa (vlax-ename->vla-object aa))
 (vla-put-LinetypeScale vlaa gg)
)
 )

[flyfox1047]

Dear lucas3, this is starting to look like harassment. The contributors here do so out of their own good will - it's not a service. However, if you do need a service, there are those who can provide it at a very reasonable price - please ask.

 

Don't be so strict,Help others can also make their progress！

[eldon]

Don't be so strict,Help others can also make their progress！

 

Quis custodiet ipsos custodes?

[flyfox1047]

Quis custodiet ipsos custodes?

 

List of Latin phrases ? Only legal ！Aha！ Who do you agree with the speech？

As long as don't send advertising, don't insult others，Don't do destructive，It's not a big deal！

[CADTutor]

As long as don't send advertising, don't insult others，Don't do destructive，It's not a big deal！

 

You are forgetting that there is also an etiquette that all forum members should observe, which covers such things as multiple posting and harassment of other members.

[flyfox1047]

You are forgetting that there is also an etiquette that all forum members should observe, which covers such things as multiple posting and harassment of other members.

 

Wow!I just published my idea，harassment？I don't think so，I have asked questions too,Others are willing to help，This is only my little idea,Don’t get angry！I hope everyone can learn from each other, help each other! Give the rookie a little more care！

[GLORY]

On ‎1‎/‎2‎/‎2014 at 4:09 PM, Tharwat said:

 

It could be with this lisp

 

Be SURE to have the selected lines on any hidden Ltypes to see the changes .

 

 

(defun c:Test (/ ss l n e)
 ;;    Tharwat 02.01.2014    ;;
 (if (and (setq ss (ssget "_:L" '((0 . "*LINE")))) (setq l (getdist "\n Specify Line Type Scale :")))
   (repeat (setq n (sslength ss))
     (setq e (entget (ssname ss (setq n (1- n)))))
     (entmod (append e (list (cons 48 l))))
   )
 )
 (princ)
)

 

 

Hello Sir,

 

Instead of getting an specific value of line scale, is it possible to make the scale of each line twice its length for a named layer?

 

Thank you.

[Tharwat]

2 hours ago, GLORY said:

Hello Sir,

 

Instead of getting an specific value of line scale, is it possible to make the scale of each line twice its length for a named layer?

 

Thank you.

Yes, it is possible.

Layer name ?

[myloveflyer]

On 1/7/2014 at 8:32 AM, lucas3 said:

对不起！也许我给你带来了麻烦，我想，我该闭嘴了。

You'd better provide a sample diagram, before the graphics processing, after the graphics processing, so that everyone can help you.