program veya lisp lazım | Forumlar

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

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

Forumlar > AutoLISP > program veya lisp lazım

79093

14.11.2014 13:32

mustafasolidworks

resimdeki plakayı delik kordinatlarını yazdıran ve nc dosyasına çeviren lisp veya program arıyorum

79099

14.11.2014 15:19

mustafasolidworks

g kodlarının olduğu dosya

yani bir köşeyi orjin alıp delik merkezlerini sayısal olarak oluşturan dosya

mesela X 100 Y50
X 200 Y100

bu şekilde delik merkezlerini içinde barındıran dosya

79107

14.11.2014 17:18

Travaci

Örnek bir dosya paylaşırsanız ... Aşağıdaki gibi birşey olsa gerek ?

Kod:

(defun c:cdata2 (/ *error* lpr dmz obj dat txt n)
(setq obj (ssget (list (cons 0 "circle"))) n 0
lpr (getvar "luprec") dmz (getvar "dimzin"))
(defun *error* (er) (setvar "luprec" lpr) (setvar "dimzin" dmz) (close txt))
(if obj (progn (setq txt (open (getfiled "" "" "nc1" 9) "w"))
(setvar "luprec" 1) (setvar "dimzin" 0)
(repeat (sslength obj)
(setq dat (entget (ssname obj n)) n (1+ n))
(write-line (strcat "X " (rtos (car (trans (cdr (assoc 10 dat)) 0 1)) 2)
" Y " (rtos (cadr (trans (cdr (assoc 10 dat)) 0 1)) 2)) txt))
(close txt) (setvar "luprec" lpr) (setvar "dimzin" dmz)))
(setvar "luprec" lpr) (setvar "dimzin" dmz) (princ)
)

orjini, ucs move ile istediğiniz köşeye taşıyın yada köşeyi orjine taşıyın : )

79108

14.11.2014 18:15

mustafasolidworks