ferro.84
Guest
İyi sabaha,
Uzmanlara yardım için soruyorum.
Tasarımcının adını kağıt değirmeninde otomatik olarak derlemek istiyorum.
Şirketde bir pdm yok: Şu anda her kullanıcı her çizim için isminin kopyasını/paste yapar!
Fikrim, o zaman, her bir yerel değişkende kurtarmaktır (örneğin, o Flash kullanarak tasarımcının adı) her seferinde masa 2d'nin kurtarılmasıyla hatırlanmak.
Temel olarak, "Kaynak 2d" başlatırken, lisp prosedürü değişken "tasarımcı adı" ve yazar yazar Bir xy noktasında kartella ve sonra çizimi kurtarır.
Geri zaman bana bir prosedür yapmama yardımcı oldu Hukuk Kanunu Bir xy noktasındaki bir metin
Ve bunu değişken bir apex (still teşekkürler!), işte kodun çıkarılması:
Aynı mantığı kullanmak istiyorum, sadece bu durumda bu durumda Write write xy noktasında bir metin, yerel bir değişkenden balık tut.
Bu prosedürü nasıl yapabileceğinize dair herhangi bir tavsiye?
Ya da belki de bunu uygulamak için daha iyi bir yol var, bunu düşündüm...
Yardımınız için teşekkür ederiz!
İyi iş ve iyi bir yıl!
Uzmanlara yardım için soruyorum.
Tasarımcının adını kağıt değirmeninde otomatik olarak derlemek istiyorum.
Şirketde bir pdm yok: Şu anda her kullanıcı her çizim için isminin kopyasını/paste yapar!
Fikrim, o zaman, her bir yerel değişkende kurtarmaktır (örneğin, o Flash kullanarak tasarımcının adı) her seferinde masa 2d'nin kurtarılmasıyla hatırlanmak.
Temel olarak, "Kaynak 2d" başlatırken, lisp prosedürü değişken "tasarımcı adı" ve yazar yazar Bir xy noktasında kartella ve sonra çizimi kurtarır.
Geri zaman bana bir prosedür yapmama yardımcı oldu Hukuk Kanunu Bir xy noktasındaki bir metin
Ve bunu değişken bir apex (still teşekkürler!), işte kodun çıkarılması:
Kod:
(def_apice)
(setq angoli (sd-am-form-struct-corners (sd-am-inq-curr-sheet))))
(setq coord_angolo_basso_destra (for-gpnt2d:x (gpnt2d_x) :y (gpnt2d_y)
(setq coord_angolo_basso_destra_x (gpnt2d_x)
(setq coord_angolo_basso_destra_y (gpnt2d_y)
(setq coord_apice_x (- coord_angolo_basso_destra_x 10))
(setq coord_apice_y (+ coord_angolo_basso_destra_y))
(setf coord_apice (gpnt2d coord_apice_x coord_apice_y))
(setf seleziona_testo (sd-call-cmds (get_selection:focus_type *sd-anno-text-seltype * :select coord_apice) :failure nil)
(setf testo (sd-am-inq-text-strings (ilk seleziona_testo))
(ilk testo)
)Bu prosedürü nasıl yapabileceğinize dair herhangi bir tavsiye?
Ya da belki de bunu uygulamak için daha iyi bir yol var, bunu düşündüm...
Yardımınız için teşekkür ederiz!
İyi iş ve iyi bir yıl!