Topic: how to Achieve only one pick point & both pick point

[Sam]

Dear sir,

how to Achieve only one pick point & both pick point (diagonal)
sorry for my bad explanation. see image
attached gif file

[Tharwat]

Change the extension of the file to gpg to allow all users to see it .

Thanks

[irneb]

The SWF opens in Flash Player, but nothing seems to happen.

What is a GPG file? I don't seem to find any program which opens such. Closest I get when searching the net seems to be a Public Key File - i.e. like a PGP file. But I'm sure that's not it.

[HasanCAD]

The SWF opens in Flash Player, but nothing seems to happen.

What is a GPG file? I don't seem to find any program which opens such. Closest I get when searching the net seems to be a Public Key File - i.e. like a PGP file. But I'm sure that's not it.

I think that Tharwat meant *.JPG.

[irneb]

Unfortunately that's not it either - tells me it's a corrupt image when trying to open it as a JPG.

[HasanCAD]

Unfortunately that's not it either - tells me it's a corrupt image when trying to open it as a JPG.

Tharwat wants to say
Please take a snap and save as *.JPG
OR
Please take a snap and save as *.GIF (If it is animation file)

[Tharwat]

Thanks Hasan for the clarifications , although you did not bring the complete one .

Sorry irneb for that confusion , actually i meant .JPEG

Thanks

[Lee Mac]

how to Achieve only one pick point & both pick point (diagonal)

From the gif it would appear that you already have the program? 

[Sam]

how to Achieve only one pick point & both pick point (diagonal)

From the gif it would appear that you already have the program? 

dear sir,
i have a program in my office old employ written this program but i want some modification on this lisp, this is vlx file
i create new lisp with layer

[Tharwat]

Code - Auto/Visual Lisp: [Select]

1. (if (eq (progn (initget 7 "Two")
2.                (setq p (getpoint "\n Specify point or <two>:"))
3.         )
4.         "Two"
5.     )
6.   (progn
7.     (setq p1 (getpoint "\n Specify first point :"))
8.     (setq p2 (getpoint "\n Next point :" p1))
9.   )
10. )

[Sam]

Code - Auto/Visual Lisp: [Select]

1. (if (eq (progn (initget 7 "Two")
2.                (setq p (getpoint "\n Specify point or <two>:"))
3.         )
4.         "Two"
5.     )
6.   (progn
7.     (setq p1 (getpoint "\n Specify first point :"))
8.     (setq p2 (getpoint "\n Next point :" p1))
9.   )
10. )

dear sir,
thx
1 more query how to individual  layer & text style name every text

[Tharwat]

(if (and ( that program is belong to you and you have access to it )
             (if you mean lay the entity on a specific layer while inserting it )
        )
(just include the name of the layer within the entmake like this '(8 . "Your Layer name"))
otherwise
(You should show your codes)
)
 

[Sam]

(if (and ( that program is belong to you and you have access to it )
             (if you mean lay the entity on a specific layer while inserting it )
        )
(just include the name of the layer within the entmake like this '(8 . "Your Layer name"))
otherwise
(You should show your codes)
)
 

dear sir,
thx...
i start try to working on code i am not expert on autolisp