Jump to content

Recommended Posts

Posted
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 :

  • Replies 37
  • Created
  • Last Reply

Top Posters In This Topic

  • lucas3

    18

  • Tharwat

    5

  • eldon

    4

  • flyfox1047

    4

Top Posters In This Topic

Posted Images

Posted

Hi,Tharwat ,other ,this code not support pline

Posted

Hi!,Tharwat ,Your help was greatly appreciated. Can you understand what I mean ?(#21)

Posted

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?

Posted

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

Posted

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.

Posted

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

Posted
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)
)
 )

Posted
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!

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

 

Quis custodiet ipsos custodes?

Posted
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!

Posted
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.

Posted
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!

  • 5 years later...
Posted
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.

Posted
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 ?

Posted
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.

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Unfortunately, your content contains terms that we do not allow. Please edit your content to remove the highlighted words below.
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


×
×
  • Create New...