LISP

مثال على الليسبات

جويلية 18, 2016جويلية 18, 2016 Omar Selim

معجب بهذه:إعجاب تحميل…
http://bimarabia.com/os/?p=29935
http://bimarabia.com/os/?p=29935

LISP

Command Alias (PGP) Porter

جويلية 17, 2016جويلية 17, 2016 Omar Selim

قيادة Alias (PGP)
يمكنك استخدامة للتعديل و الاضافة و الحذف في ال Alias من ملفات PGP
https://knowledge.autodesk.com/support/autocad/downloads/caas/downloads/content/autodesk-customization-conversion-tools.html

scriptpro_2.0.msi.zip (zip – 1456Kb)
For AutoCAD 2008 and later versions….

AutoLISP Compatibility Analyzer

جويلية 17, 2016جويلية 17, 2016 Omar Selim

مراجعه هل يتوافق ملف الاتوليسب مع الاتوكاد خاصة 2004 و يقدم حلول لحل مشكلة التعارض و عدم التوافق

AutoLISP Compatibility Analyzer
AutoLISP Compatibility Analyzer details any AutoCAD® 2004 and later compatibility issues found in AutoLISP and Menu LISP files. AutoLISP Compatibility Analyzer …

AUTOCAD · LISP

scriptpro

جويلية 17, 2016جويلية 17, 2016 Omar Selim

ياخذ برمجة الاتوكاد الى مستوى اعلي مع واجهه سهلة الاستخدام
يمكنك تطبيق عدد من الاوامر على عدد من الملفات مره واحدة
http://download.autodesk.com/us/support/files/autodesk_customization_conversion_tools/Readme_cct.html?_ga=1.19088504.1323715139.1460625402
scriptpro_2.0.msi.zip (zip – 1456Kb)
…

AUTOCAD · autolisp · LISP

AutoCAD x,y, coordinates lisp command

جوان 14, 2014 Omar Selim

بضعط الماوس يقولم الليسب بكتابة الاحداثيات

النسح الكلام التالي

(defun err (s)
(if (/= s “Function cancelled”)
    (princ (strcat “\nError: ” s))
)
(errestore)
)
(defun errinit ()
(setq olderr *error*
        *error* err
        DT (getvar “dimtad”)                      ;Save DIMTAD
        AB (getvar “angbase”)                     ;Save ANGBASE
        AD (getvar “angdir”)                      ;Save ANGDIR
)
(setvar “dimtad” 0)                             ;Set DIMTAD = 0
(setvar “angbase” 0)                            ;Set ANGBASE = 0
(setvar “angdir” 0)                             ;Set ANGDIR = 0
)
(defun errestore ()
(setvar “dimtad” DT)                            ;Restore DIMTAD
(setvar “angbase” AB)                           ;Restore ANGBASE
(setvar “angdir” AD)                            ;Restore ANGDIR
(setq *error* olderr)
(princ)
)
(defun c:xY (/ olderr DT AB AD olddflt dflt prmpt pnt etxt ntxt ctxt
                   ename ent txtpnt txthgt txtjst)
(errinit)

(setq dflt “2-lines”
        prmpt (strcat “\n <” dflt “>/1-line/: “))
(initget “2-lines 1-line”)
(while (setq pnt (getpoint prmpt))
    (if (/= (type pnt) ‘LIST)
      (progn
        (setq olddflt dflt dflt pnt)
        (if (= dflt “Undo”)
          (progn
            (command “u”)
            (setq dflt olddflt)
          );end progn
        );end if
      );end progn
      (progn
        (command “undo” “group”)
        (if (= dflt “2-lines”)
          (progn
            (setq etxt (strcat (rtos (car pnt) 2 3) ” D”)
                  ntxt (strcat (rtos (cadr pnt) 2 3) ” L”)
            );end setq
            (setvar “texteval” 1)
            (if (= (substr (getvar “acadver”) 1 2) “12”)
              (progn
                (command “dim1” “leader” pnt pause “” etxt)
                (setvar “texteval” 0)
                (setq ename (entlast)
                        ent (entget ename)
                     txtpnt (cdr (assoc 11 ent))
                     txthgt (cdr (assoc 40 ent))
                );end setq
                (if (= (cdr (assoc 72 ent)) 0)(setq txtjst “ml”)(setq txtjst “mr”))
                (setvar “texteval” 1)
                (command “text” txtjst txtpnt txthgt 0 “”)
                (command “text” “” ntxt)
              );end progn
              (command “leader” pnt pause “” etxt ntxt “”)
            );end if
            (setvar “texteval” 0)
          );end progn
        );end if
        (if (= dflt “1-line”)
          (progn
            (setq ctxt (strcat (rtos (car pnt) 2 3) ” D, ” (rtos (cadr pnt) 2 3) ” L”))
            (setvar “texteval” 1)
            (if (= (substr (getvar “acadver”) 1 2) “12”)
              (command “dim1” “leader” pnt pause “” ctxt)
              (command “leader” pnt pause “” ctxt “”)
            );end if
            (setvar “texteval” 0)
          );end progn
        );end if
        (command “undo” “end”)
      );end progn
    );end if
    (cond ((= dflt “2-lines”) (setq prmpt (strcat “\n <” dflt “>/1-line/Undo/: “)))
          (T                  (setq prmpt (strcat “\n <” dflt “>/2-lines/Undo/: “)))
    );end cond
    (initget “2-lines 1-line Undo”)
);end while

(errestore)
);end defun