İki noktanın koordinatını belirtilen formatta oluşturma

AutoCAD • AutoLISP • Programlama • Püfler • Komutlar • Terimler • Eğitim

aLd • TCad • FacadeCAD • Cephe Kot • HQ Library • FreeMUST • Pasdoc.A

Forumlar > AutoLISP > İki noktanın koordinatını belirtilen formatta oluşturma

21.06.2014 06:37

espanolun

Selamlar, autocad üzerinde peşpeşe vereceğim iki noktanın koordiantlarını alıp, alttaki tnaımda belirttiğim şekilde oluşturacak bir lispe ihtiyacım var. yardımcı olabilirseniz sevinirim.

1.noktanın X,Y alınacak (X1,Y1)
2.noktanın X,Y alınacak (X2,Y2)

format:

301,1,SX,X1=504420.5773,Y1=3987924.0273,X2=504424.5673,Y2=3987924.6065

not: eğer oluşan bu satırı bir de copy, copyclipboard gibi bir işlev de olursa çok faydalı olur. olmazsa da sorun değil.

yardımlar için teşekkürler

77863

21.06.2014 08:15

ProhibiT

Verdiğiniz formatta 301,1,SX kısmı nedir? bunlar sabit değerler midir?

77864

21.06.2014 08:40

espanolun

Alıntı
ProhibiT :
Verdiğiniz formatta 301,1,SX kısmı nedir? bunlar sabit değerler midir?

evet 301,1,SX, kısmı sabit. sadece seçtiğimi iki noktanın koordinatları değişken.

77866

21.06.2014 15:08

ProhibiT

Kod:

(defun c:P2F (/ fT HtmL n1 n2)
(setvar "cmdecho" 0) (command "_.undo" "group") (vl-load-com)
(setq n1 (getpoint "\n1. Nokta: ")
n2 (getpoint "\r2. Nokta: ")
fT (strcat "301,1,SX,X1=" (rtos (car n1) 2)
",Y1=" (rtos (cadr n1) 2)
",X2=" (rtos (car n2) 2)
",Y2=" (rtos (cadr n2) 2)))
(vlax-invoke (vlax-get (vlax-get (setq HtmL (vlax-create-object "htmlfile"))
'ParentWindow) 'ClipBoardData) 'setData "Text" fT)
(vlax-release-object html) (princ (strcat "\r" fT))
(command "_.undo" "end") (princ))

77867

21.06.2014 17:00

espanolun

Alıntı
ProhibiT :

Prohibit çok teşekkür ederim, denedim tam istediğim gibi. elinize emeğinize sağlık.:satisfied

ProhibiT (21.06.2014 18:58 GMT)

> 1 <


	Forum	Download	Galeri	Üye Ol \| Giriş