设为首页收藏本站CAD论坛CAD教程CAD下载明经币充值
切换到宽版

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 开发篇 › AutoLISP/Visual LISP 编程技术 › 动态偏移（LEE MAC)
123下一页
返回列表 发新帖
查看: 7802|回复: 25

[源码] 动态偏移（LEE MAC)

[复制链接]
flyfox1047
发表于 2013-12-4 19:32 | 显示全部楼层 |阅读模式
本帖最后由 flyfox1047 于 2013-12-4 20:04 编辑

Offset DistanceThe user may enter the offset distance at the command line, or onscreen
偏移距离可以在屏幕上指定
Offset NumberThe number of offsets can be increased/decreased using the +/- keys, or alternatively the user may enter the offset number by pressing N
可以通过“-”和"+"号减少或增加偏移的数量，又或者输入N后直接输入偏移的数量
Offset FactorThe factor of the distance between successive offsets can be altered by pressing F
可以通过“F”键改变连续偏移之间的距离因子
Offset SettingsDestination Layer/Linetype/LineWeight and Colour can be changed by pressing S
目标图层/线型/线宽和颜色可以按S键来改变
Offset ModeCan be changed by pressing Tab, the user has the ability to offset the set of objects to either side, or both sides simultaneously
可以通过按“TAB”键来改变偏移方向和双边偏移
Object DeletionThe user can retain/delete the original object by pressing D
用户可以按"D"键来保留或删除原来的对象
Offset to CenterThe user can offset to the center of two objects by pressing C
可以偏移到两个对象的中心 按"C"键
Highlight OffsetsBy holding Shift, the user can highlight offset entities (requires Express Tools)
按住Shift键，用户可以突出颜色显示偏移动象（需要ET工具）


  1. (defun c:DynOff (/    ;; --=={ Local Functions }==--

  3.                        *error* clean DynOff_Sub txt2num

  5.                       ;; --=={ Local Variables }==--

  7.                        CODE CPT
  8.                        DATA DCFNAME DCTITLE DOC DRFT
  9.                        E1 E2 ELST ENTLST ET EXFLAG
  10.                        GR
  11.                        I IOBJ
  12.                        K MSG
  13.                        OBJ OBJLST OFF OOBJ OPT OSGRV OSTR
  14.                        PROP
  15.                        RLST
  16.                        SS
  17.                        X

  19.                       ;; --=={ Global Variables }==--

  21.                        ; *dynOff  ~  Default Offset Distance
  22.                        ; *dynNum  ~  Default Offset Number
  23.                        ; *dynFac  ~  Default Offset Factor
  24.                        ; *dynMod  ~  Default Offset Mode (bit-coded)
  25.                        ; *dynDel  ~  Default Delete Option

  27.                        ; *DynOffDefaults*  ~ Default Dialog Settings

  29.                  )

  31.   (setq dcfname "LMAC_DynOff_V2.1.dcl"
  32.         dcTitle "Dynamic Offset V2.1 Settings")
  33.   
  34.   (or *dynOff (setq *dynOff 10.0))
  35.   (or *dynNum (setq *dynNum  1  ))
  36.   (or *dynFac (setq *dynFac  1.0))
  37.   (or *dynMod (setq *dynMod  2  ))
  38.   (or *dynDel (setq *dynDel  nil))

  40.   (or *DynOffDefaults*
  41.       (setq *DynOffDefaults* '("1" "1" 256 256 "*Source*" "*Source*"   ;; Layer
  42.                                                "ByLayer"  "ByLayer"    ;; Linetype
  43.                                                "ByLayer"  "ByLayer"))) ;; Lineweight

  45.   (setq k -1)
  46.   (setq *DynOffDefaults*
  47.     (mapcar
  48.       (function
  49.         (lambda (value)
  50.           (cond (  (<= 4 (setq k (1+ k)) 5)
  51.                    (if (tblsearch "LAYER" value) value "*Source*"))

  53.                 (  (<= 6 k 7)
  54.                    (if (tblsearch "LTYPE" value) value "ByLayer"))

  56.                 (t value)))) *DynOffDefaults*))

  58.   (setq dynMode (nth *dynMod '(1 2 3)))
  59.   

  61.   ;; --=={ Error Handler }==--

  63.   (defun *error* (err)
  64.     (setq eLst (clean eLst))
  65.     (and doc (vla-EndUndoMark doc))
  66.     (or (wcmatch (strcase err) "*BREAK,*CANCEL*,*EXIT*")
  67.         (princ (strcat "\n** Error: " err " **"))) (redraw) (princ))

  69.   ;;-------------------------------------------------------------------------------;;
  70.   

  72.   (defun clean (lst / lst)
  73.     (cond (lst (mapcar
  74.                  (function
  75.                    (lambda (object)
  76.                      (if (not (vlax-erased-p object))
  77.                        (vla-delete object)))) lst)
  78.            (setq lst nil))))


  81.   (defun DynOff_Sub (obj off / rLst oObj iObj i)
  82.    
  83.     (if (vl-catch-all-error-p
  84.           (vl-catch-all-apply
  85.             (function
  86.               (lambda ( )               
  87.                 (if (= 1 (logand 1 dynmode))
  88.                   (progn
  89.                     (setq i  3 oObj (vlax-invoke obj 'Offset off))
  90.                     (if (or (and et (not (acet-sys-shift-down))) (not et)) ;; -- Mod 2.0 --
  91.                       (foreach prop '(color layer linetype lineweight)
  92.                         (mapcar
  93.                           (function
  94.                             (lambda (object / val)
  95.                               (if (or (vl-position (setq val (nth i *DynOffDefaults*)) '(256 "*Source*"))
  96.                                       (and (= i 3) (= "1" (cadr *DynOffDefaults*))))
  97.                                 (vlax-put-property object prop (vlax-get-property obj prop))
  98.                                 (vlax-put-property object prop (if (< i 9) val (eval (read (strcat "acLnWt" val)))))))) oObj)
  99.                         (setq i (+ i 2))))))
  100.                
  101.                 (if (= 2 (logand 2 dynmode))
  102.                   (progn
  103.                     (setq i 2 iObj (vlax-invoke obj 'Offset (- off)))
  104.                     (if (or (and et (not (acet-sys-shift-down))) (not et)) ;; -- Mod 2.0 --
  105.                       (foreach prop '(color layer linetype lineweight)
  106.                         (mapcar
  107.                           (function
  108.                             (lambda (object / val)
  109.                               (if (or (vl-position (setq val (nth i *DynOffDefaults*)) '(256 "*Source*"))
  110.                                       (and (= i 2) (= "1" (car *DynOffDefaults*))))
  111.                                 (vlax-put-property object prop (vlax-get-property obj prop))
  112.                                 (vlax-put-property object prop (if (< i 8) val (eval (read (strcat "acLnWt" val)))))))) iObj)
  113.                         (setq i (+ i 2))))))
  114.                
  115.                 (setq rLst (append oObj iObj))))))
  116.       
  117.           (clean (append oObj iObj))
  118.       
  119.       rLst))
  120.   

  122.   (defun txt2num  (txt)
  123.     (cond ((distof txt 5)) ((distof txt 2)) ((distof txt 1)) ((distof txt 4)) ((distof txt 3))))

  125.   (defun GetOffLen (num fac / result)
  126.     (setq result 0.)
  127.     (while (not (minusp (setq num (1- num))))
  128.       (setq result (+ result (expt fac num))))
  129.    
  130.     result)

  132.   (setq et (not (vl-catch-all-error-p
  133.                   (vl-catch-all-apply (function (lambda nil (acet-sys-shift-down)))))))
  134.   (or et (princ "\nExpress Tools not Loaded - Shift option not Available."))
  135.   

  137.   (setq doc   (vla-get-ActiveDocument
  138.                 (vlax-get-acad-object))
  139.         
  140.         drft  (vla-get-drafting
  141.                 (vla-get-preferences
  142.                   (vlax-get-acad-object)))
  143.         
  144.         osGrv (osmode-grvecs-lst
  145.                 (vla-get-AutoSnapMarkerColor drft)
  146.                   (vla-get-AutoSnapMarkerSize drft)))
  147.   

  149.   (cond (  (not (DC_Write dcfname))
  150.            (princ "\nDCL File could not be Written."))

  152.         (t
  153.   
  154.           (if (setq ss (ssget "_:L" '((0 . "ARC,CIRCLE,ELLIPSE,*LINE"))))
  155.             (progn
  156.               
  157.               (vla-StartUndoMark doc)
  158.               (setq ObjLst (mapcar 'vlax-ename->vla-object
  159.                              (setq EntLst (vl-remove-if 'listp
  160.                                             (mapcar 'cadr (ssnamex ss))))) oStr "")
  161.               
  162.               (setq msg '(strcat "\n[TAB] Mode, [+/-] Offset [N]umber, Offset [F]actor"
  163.                                  "\n[C]enter, [S]ettings"
  164.                           (if et ", [SHIFT] Show Offsets" "") ", [D]elete Original = "
  165.                           (if *dynDel "Yes" "No")
  166.                                  "\nSpecify Offset <" (vl-princ-to-string *dynOff) "> : "))
  167.               (princ (eval msg))
  168.               
  169.               (while
  170.                 (progn
  171.                   (setq gr (grread 't 15 0) code (car gr) data (cadr gr))
  172.                   (redraw)
  173.                   
  174.                   (cond (  (and (= 5 code) (listp data))
  175.                            
  176.                            (setq EntLst (vl-sort EntLst
  177.                                           (function
  178.                                             (lambda (a b)
  179.                                               (< (distance data (vlax-curve-getClosestPointto a data))
  180.                                                  (distance data (vlax-curve-getClosestPointto b data)))))))
  181.                              
  182.                            (setq cPt (vlax-curve-getClosestPointto (car entLst) data)

  184.                                  off (/ (distance cPt data) (GetOffLen *dynNum *dynFac)))  ;; -- Mod 2.0 --
  185.                         
  186.                            (grdraw cPt data 3 1)

  188.                            (setq eLst (clean eLst))

  190.                            (if (and (< 0 (getvar "OSMODE") 16384)
  191.                                     (setq oPt (vl-remove-if (function null)
  192.                                                 (mapcar
  193.                                                   (function
  194.                                                     (lambda (x / o)
  195.                                                       (if (setq o (osnap data x))
  196.                                                         (list (distance data o) o x data)))) (get_osmode)))))
  197.                              
  198.                              (setq oPt (cdar (vl-sort oPt (function (lambda (a b) (< (car a) (car b)))))))
  199.                              (setq oPt nil))

  201.                            (and oPt (OsMark oPt))

  203.                            (foreach obj ObjLst (setq i -1 x 0.)
  204.                              (repeat *dynNum                     
  205.                                (setq eLst
  206.                                  (append eLst (cond ((DynOff_Sub obj
  207.                                                        (* (setq x (+ x (expt *dynFac (setq i (1+ i))))) off))) ((clean eLst)))))))
  208.                         
  209.                            (if (and eLst et (acet-sys-shift-down))
  210.                              (mapcar
  211.                                (function
  212.                                  (lambda (x) (vla-put-color x acBlue))) eLst)) ;; -- Mod 2.0 --

  214.                          t)

  216.                         (  (= code 25) nil)
  217.                         
  218.                         (  (and (= code 3) (listp data))

  220.                            (clean eLst)
  221.                         
  222.                            (setq *dynOff off)
  223.                            (setq cPt (vlax-curve-getClosestPointto (car entLst) data))
  224.                         
  225.                            (if (and (< 0 (getvar "OSMODE") 16384)
  226.                                     (setq oPt (vl-remove-if (function null)
  227.                                                 (mapcar
  228.                                                   (function
  229.                                                     (lambda (x / o)
  230.                                                       (if (setq o (osnap data x))
  231.                                                         (list (distance data o) o x data)))) (get_osmode)))))
  232.                              
  233.                              (setq oPt     (cdar (vl-sort oPt
  234.                                                    (function (lambda (a b) (< (car a) (car b))))))
  235.                                    
  236.                                    data    (osnap (caddr oPt) (cadr oPt))

  238.                                    *dynOff (/ (distance (vlax-curve-getClosestPointto (car entLst) data) data)

  240.                                               (GetOffLen *dynNum *dynFac)))   ;; -- Mod 1.9 --
  241.                            
  242.                              (setq oPt nil))

  244.                            (foreach obj ObjLst (setq i -1 x 0.)
  245.                              (repeat *dynNum
  246.                                (setq eLst
  247.                                  (append eLst (cond ((DynOff_Sub obj
  248.                                                        (* (setq x (+ x (expt *dynFac (setq i (1+ i))))) *dynoff))) ((clean eLst))))))) nil)                  
  249.                         
  250.                         (  (= code 2)

  252.                            (cond (  (or (= 46 data) (< 47 data 58))
  253.                                     (setq oStr (strcat oStr (chr data)))
  254.                                     (princ (chr data)))

  256.                                  (  (vl-position data '(67 99)) (clean eLst)

  258.                                     (while
  259.                                       (progn
  260.                                         (setq e1 (entsel "\nSelect First Object: "))

  262.                                         (cond (  (vl-consp e1)

  264.                                                  (if (wcmatch (cdr (assoc 0 (entget (car e1)))) "ARC,CIRCLE,ELLIPSE,*LINE")
  265.                                                    
  266.                                                    (while
  267.                                                      (progn
  268.                                                        (setq e2 (car (entsel "\nSelect Second Object: ")))

  270.                                                        (cond (  (eq 'ENAME (type e2))

  272.                                                                 (if (wcmatch (cdr (assoc 0 (entget e2))) "ARC,CIRCLE,ELLIPSE,*LINE")
  273.                                                                   (progn

  275.                                                                     (setq p1 (vlax-curve-getClosestPointto (car e1) (cadr e1))
  276.                                                                           p2 (vlax-curve-getClosestPointto e2 p1))

  278.                                                                     (setq *dynOff (/ (distance p1 p2)

  280.                                                                                      (GetOffLen (1+ *dynNum) *dynFac)))  ;; -- Mod 2.0 --

  282.                                                                     (foreach obj ObjLst (setq i -1 x 0.)
  283.                                                                       (repeat *dynNum
  284.                                                                         (setq eLst
  285.                                                                           (append eLst

  287.                                                                             (cond (  (DynOff_Sub obj

  289.                                                                                        (* (setq x (+ x (expt *dynFac (setq i (1+ i))))) *dynoff)))

  291.                                                                                   (  (clean eLst)))))))

  293.                                                                     (setq exFlag nil))

  295.                                                                   (princ "\nInvalid Object Selected.")))

  297.                                                              (  (setq exFlag t) nil))))
  298.                                                    
  299.                                                    (princ "\nInvalid Object Selected.")))

  301.                                               (  (setq exFlag t) nil))))

  303.                                     exFlag)                                                                    

  305.                                  (  (vl-position data '(43 61))
  306.                                     (setq *dynNum (1+ *dynNum)))

  308.                                  (  (vl-position data '(68 100))
  309.                                     (setq *dynDel (not *dynDel))
  310.                                  
  311.                                     (princ (strcat "\nOriginal Objects "
  312.                                                    (if *dynDel "will" "will not") " be Deleted" (eval msg))))

  314.                                  (  (vl-position data '(78 110))
  315.                                     (initget 6)
  316.                                     (setq *dynNum
  317.                                           
  318.                                       (cond ((getint (strcat "\nSpecify Number of Offsets <" (itoa *dynNum) "> : ")))
  319.                                             
  320.                                             (*dynNum)))
  321.                                  
  322.                                     (princ (eval msg)))

  324.                                  (  (= data 6)
  325.                                     (cond (  (< 0 (getvar "OSMODE") 16384)
  326.                                              (setvar "OSMODE" (+ 16384 (getvar "OSMODE")))
  327.                                              (princ "\n<Osnap off>"))
  328.                                           
  329.                                           (t (setvar "OSMODE" (- (getvar "OSMODE") 16384))
  330.                                              (princ "\n<Osnap on>")))
  331.                                  
  332.                                     (princ (eval msg)))

  334.                                  (  (= data 9)

  336.                                     (setq dynmode

  338.                                       (cond (  (= 2 *dynMod)
  339.                                                (setq *dynMod 0) 1)

  341.                                             (  (nth (setq *dynMod (1+ *dynMod)) '(1 2 3))))))
  342.                                  
  343.                                  (  (vl-position data '(70 102))
  344.                                     (initget 6)
  345.                                     (setq *DynFac
  346.                                           
  347.                                       (cond ((getreal (strcat "\nSpecify Offset Factor <" (vl-princ-to-string *dynFac) "> : ")))
  348.                                             
  349.                                             (*dynFac)))

  351.                                     (princ (eval msg)))

  353.                                  (  (vl-position data '(83 115))
  354.                                     (Off_Settings dcfname (vlax-ename->vla-object (car EntLst)))
  355.                                  
  356.                                   t)                           

  358.                                  (  (= data 45)
  359.                                  
  360.                                     (cond (  (= 1 *dynNum)
  361.                                              (princ (strcat "\nMinimum Offset Number Reached." (eval msg))))
  362.                                           
  363.                                           (t (setq *dynNum (1- *dynNum)))))

  365.                                  (  (and (< 0 (strlen oStr)) (= data 8))
  366.                                  
  367.                                     (setq oStr (substr oStr 1 (1- (strlen oStr))))
  368.                                     (princ (vl-list->string '(8 32 8))))

  370.                                  (  (vl-position data '(13 32))

  372.                                     (cond (  (zerop (strlen oStr))

  374.                                              (clean eLst)
  375.                                           
  376.                                              (foreach obj ObjLst (setq i -1 x 0.)
  377.                                                (repeat *dynNum
  378.                                                  (setq eLst
  379.                                                    (append eLst
  380.                                                            
  381.                                                      (cond (  (DynOff_Sub obj
  382.                                                                
  383.                                                                 (* (setq x (+ x (expt *dynFac (setq i (1+ i))))) *dynoff)))

  385.                                                            (  (clean eLst))))))) nil)                                    

  387.                                           (  (setq off (txt2num oStr))

  389.                                              (clean eLst)
  390.                                           
  391.                                              (setq *dynOff off)
  392.                                              (foreach obj ObjLst (setq i -1 x 0.)
  393.                                                (repeat *dynNum
  394.                                                  (setq eLst
  395.                                                    (append eLst

  397.                                                      (cond (  (DynOff_Sub obj

  399.                                                                 (* (setq x (+ x (expt *dynFac (setq i (1+ i))))) off)))

  401.                                                            (  (clean eLst))))))) nil)

  403.                                           (t (princ "\nInvalid Offset Entered.")
  404.                                              (princ (eval msg)) (setq oStr ""))))
  405.                                  (t )))
  406.                         (t ))))

  408.               (if *dynDel (mapcar (function vla-delete) ObjLst))

  410.               (vla-EndUndoMark doc)))))
  411.   
  412.   (princ))

  414. (defun osMark (o / s)
  415.   (setq s (/ (getvar "VIEWSIZE") (cadr (getvar "SCREENSIZE")))
  416.         o (cons (trans (car o) 1 3) (cdr o)))

  418.   (grvecs (cdr (assoc (cadr o) osGrv))
  419.           (list (list s 0. 0. (caar o))
  420.                 (list 0. s 0. (cadar o))
  421.                 (list 0. 0. s 0.)
  422.                 (list 0. 0. 0. 1.))))

  424. (defun get_osmode nil ; by Evgeniy Elpanov
  425.   (mapcar
  426.     (function cdr)
  427.       (vl-remove-if
  428.         (function (lambda (x) (zerop (logand (getvar "OSMODE") (car x)))))
  429.         '((1    . "_end")
  430.           (2    . "_mid")
  431.           (4    . "_cen")
  432.           (8    . "_nod")
  433.           (16   . "_qua")
  434.           (32   . "_int")
  435.           (64   . "_ins")
  436.           (128  . "_per")
  437.           (256  . "_tan")
  438.           (512  . "_nea")
  439.           (2048 . "_app")))))

  441. (defun osmode-grvecs-lst (col ass / -ASS ASS COL)
  442.    ; By Evgeniy Elpanov (Modified by Lee Mac)
  443.   
  444.   (setq -ass (- ass))
  445.   
  446.   (list (list "_end"
  447.               col (list -ass -ass) (list -ass  ass)
  448.               col (list (1-  -ass) (1- -ass)) (list (1- -ass) (1+  ass))              
  449.               col (list -ass  ass) (list  ass  ass)
  450.               col (list (1-  -ass) (1+  ass)) (list (1+  ass) (1+  ass))              
  451.               col (list  ass  ass) (list  ass -ass)
  452.               col (list (1+   ass) (1+  ass)) (list (1+  ass) (1- -ass))              
  453.               col (list  ass -ass) (list -ass -ass)
  454.               col (list (1+   ass) (1- -ass)) (list (1- -ass) (1- -ass)))
  455.         
  456.         (list "_mid"
  457.               col (list -ass -ass) (list    0. ass)
  458.               col (list (1-  -ass) (1- -ass)) (list 0. (1+  ass))
  459.               col (list    0. ass) (list  ass -ass)
  460.               col (list 0. (1+  ass)) (list (1+  ass) (1- -ass))
  461.               col (list  ass -ass) (list -ass -ass)
  462.               col (list (1+   ass) (1- -ass)) (list (1- -ass) (1- -ass)))
  463.         
  464.         (list "_cen"
  465.               7   (list (* -ass 0.2) 0.)  (list (*  ass 0.2) 0.)
  466.               7   (list  0. (* -ass 0.2)) (list  0.  (*  ass 0.2))
  467.               col (list    -ass   0.)     (list (* -ass 0.86) (* ass  0.5))
  468.               col (list (* -ass 0.86) (* ass  0.5))  (list (* -ass  0.5) (* ass 0.86))
  469.               col (list (* -ass  0.5) (* ass 0.86))  (list 0. ass)
  470.               col (list 0. ass) (list (* ass 0.5)    (* ass 0.86))
  471.               col (list (* ass 0.5)   (* ass 0.86))  (list (* ass 0.86) (* ass 0.5))
  472.               col (list (* ass 0.86)  (* ass 0.5))   (list ass 0.)
  473.               col (list ass 0.) (list (* ass 0.86)   (* -ass 0.5))
  474.               col (list (* ass 0.86)  (* -ass 0.5))  (list (* ass 0.5) (* -ass 0.86))
  475.               col (list (* ass 0.5)   (* -ass 0.86)) (list 0. -ass)
  476.               col (list 0. -ass)(list (* -ass 0.5)   (* -ass 0.86))
  477.               col (list (* -ass 0.5)  (* -ass 0.86)) (list (* -ass 0.86) (* -ass 0.5))
  478.               col (list (* -ass 0.86) (* -ass 0.5))  (list -ass 0.))

  480.         (list "_nod"
  481.               col (list -ass -ass)    (list ass ass)
  482.               col (list -ass ass)     (list ass -ass)
  483.               col (list -ass 0.)      (list (* -ass 0.86) (* ass 0.5))
  484.               col (list (* -ass 0.86) (* ass 0.5))   (list (* -ass 0.5) (* ass 0.86))
  485.               col (list (* -ass 0.5)  (* ass 0.86))  (list 0. ass)
  486.               col (list 0. ass) (list (* ass 0.5)    (* ass 0.86))
  487.               col (list (* ass 0.5)   (* ass 0.86))  (list (* ass 0.86) (* ass 0.5))
  488.               col (list (* ass 0.86)  (* ass 0.5))   (list ass 0.)
  489.               col (list ass 0.) (list (* ass 0.86)   (* -ass 0.5))
  490.               col (list (* ass 0.86)  (* -ass 0.5))  (list (* ass 0.5) (* -ass 0.86))
  491.               col (list (* ass 0.5)   (* -ass 0.86)) (list 0. -ass)
  492.               col (list 0. -ass)(list (* -ass 0.5)   (* -ass 0.86))
  493.               col (list (* -ass 0.5)  (* -ass 0.86)) (list (* -ass 0.86) (* -ass 0.5))
  494.               col (list (* -ass 0.86) (* -ass 0.5))  (list -ass 0.))

  496.         (list "_qua"
  497.               col (list 0. -ass)   (list -ass 0.)
  498.               col (list 0. (1- -ass))   (list (1- -ass) 0.)
  499.               col (list -ass 0.)   (list 0. ass)
  500.               col (list (1- -ass) 0.)   (list 0. (1+ ass))
  501.               col (list 0. ass)    (list ass 0.)
  502.               col (list 0. (1+ ass))    (list (1+ ass) 0.)
  503.               col (list ass 0.)    (list 0. -ass)
  504.               col (list (1+ ass) 0.)    (list 0. (1- -ass)))

  506.         (list "_int"
  507.               col (list -ass -ass) (list ass ass)
  508.               col (list -ass (1+ -ass)) (list ass (1+ ass))
  509.               col (list (1+ -ass) -ass) (list (1+ ass) ass)
  510.               col (list -ass ass)  (list ass -ass)
  511.               col (list -ass (1+ ass))  (list ass (1+ -ass))
  512.               col (list (1+ -ass) ass)  (list (1+ ass) -ass))

  514.         (list "_ins"
  515.               col (list (* -ass 0.1) (* -ass 0.1)) (list -ass (* -ass 0.1))
  516.               col (list -ass (* -ass 0.1)) (list -ass ass)
  517.               col (list -ass ass) (list (* ass 0.1) ass)
  518.               col (list (* ass 0.1) ass)   (list (* ass 0.1) (* ass 0.1))
  519.               col (list (* ass 0.1) (* ass 0.1))   (list ass (* ass 0.1))
  520.               col (list ass (* ass 0.1))   (list ass -ass)
  521.               col (list ass -ass) (list (* -ass 0.1) -ass)
  522.               col (list (* -ass 0.1) -ass) (list (* -ass 0.1) (* -ass 0.1))
  523.               col (list (1- (* -ass 0.1)) (1- (* -ass 0.1))) (list (1- -ass) (1- (* -ass 0.1)))
  524.               col (list (1- -ass) (1- (* -ass 0.1))) (list (1- -ass) (1+ ass))
  525.               col (list (1- -ass) (1+ ass)) (list (1+ (* ass 0.1)) (1+ ass))
  526.               col (list (1+ (* ass 0.1)) (1+ ass)) (list (1+ (* ass 0.1)) (1+ (* ass 0.1)))
  527.               col (list (1+ (* ass 0.1)) (1+ (* ass 0.1))) (list (1+ ass) (1+ (* ass 0.1)))
  528.               col (list (1+ ass) (1+ (* ass 0.1)))   (list (1+ ass) (1- -ass))
  529.               col (list (1+ ass) (1- -ass)) (list (1- (* -ass 0.1)) (1- -ass))
  530.               col (list (1- (* -ass 0.1))   (1- -ass)) (list (1- (* -ass 0.1)) (1- (* -ass 0.1))))

  532.         (list "_tan"
  533.               col (list -ass ass) (list ass ass)
  534.               col (list (1- -ass) (1+ ass)) (list (1+ ass) (1+ ass))
  535.               col (list -ass 0.)  (list (* -ass 0.86) (* ass 0.5))
  536.               col (list (* -ass 0.86) (* ass 0.5)) (list (* -ass 0.5) (* ass 0.86))
  537.               col (list (* -ass 0.5) (* ass 0.86)) (list 0. ass)
  538.               col (list 0. ass) (list  (* ass 0.5) (* ass 0.86))
  539.               col (list (* ass 0.5)  (* ass 0.86)) (list (* ass 0.86) (* ass 0.5))
  540.               col (list (* ass 0.86)  (* ass 0.5)) (list ass 0.)
  541.               col (list ass 0.) (list (* ass 0.86) (* -ass 0.5))
  542.               col (list (* ass 0.86) (* -ass 0.5)) (list (* ass 0.5) (* -ass 0.86))
  543.               col (list (* ass 0.5) (* -ass 0.86)) (list 0. -ass)
  544.               col (list 0. -ass)(list (* -ass 0.5) (* -ass 0.86))
  545.               col (list (* -ass 0.5)(* -ass 0.86)) (list (* -ass 0.86) (* -ass 0.5))
  546.               col (list (* -ass 0.86)(* -ass 0.5)) (list -ass 0.))

  548.         (list "_per"
  549.               col (list -ass -ass) (list -ass ass)
  550.               col (list (1- -ass)  (1- -ass)) (list (1- -ass) (1+ ass))
  551.               col (list ass -ass)  (list -ass -ass)
  552.               col (list (1+ ass)   (1- -ass)) (list (1- -ass) (1- -ass))
  553.               col (list -ass 0.)   (list 0. 0.)
  554.               col (list -ass -1.)  (list 0. -1.)
  555.               col (list 0. 0.)     (list 0. -ass)
  556.               col (list -1. 0.)    (list -1. -ass))

  558.         (list "_nea"
  559.               col (list -ass -ass) (list ass ass)
  560.               col (list -ass ass)  (list ass ass)
  561.               col (list (1- -ass)  (1+ ass)) (list (1+ ass) (1+ ass))
  562.               col (list -ass ass)  (list ass -ass)
  563.               col (list ass -ass)  (list -ass -ass)
  564.               col (list (1+ ass) (1- -ass)) (list (1- -ass) (1- -ass)))

  566.         (list "_app"
  567.               col (list -ass -ass) (list ass ass)
  568.               col (list ass -ass)  (list -ass ass)
  569.               col (list -ass -ass) (list -ass ass)
  570.               col (list (1- -ass)  (1- -ass)) (list (1- -ass) (1+ ass))
  571.               col (list -ass ass)  (list ass ass)
  572.               col (list (1- -ass)  (1+ ass))  (list (1+ ass) (1+ ass))
  573.               col (list ass ass)   (list ass -ass)
  574.               col (list (1+ ass)   (1+ ass))  (list (1+ ass) (1- -ass))
  575.               col (list ass -ass)  (list -ass -ass)
  576.               col (list (1+ ass)   (1- -ass)) (list (1- -ass) (1- -ass)))))


  579. ;; ----=={ DCL Section }==----

  581. (defun Off_Settings (fname obj / mklst img layCol mk_arc lays dcTag lLay lLin bsCol bsflag)

  583.   (mapcar 'set '(*dyniCols *dynoCols *dyniCol *dynoCol  *dynilay
  584.                  *dynolay  *dynilin  *dynolin *dyniwgt  *dynowgt) *DynOffDefaults*)         
  585.   
  586.   (defun mklst (key lst)
  587.     (start_list key) (mapcar 'add_list lst) (end_list))

  589.   (defun img (key col)   
  590.     (start_image key)
  591.     (fill_image 0 0 (dimx_tile key) (dimy_tile key) col)
  592.     (end_image))

  594.   (setq doc  (cond (doc) ((vla-get-ActiveDocument
  595.                             (vlax-get-acad-object))))
  596.         lays (vla-get-layers doc))

  598.   (defun layCol (lay)
  599.     (vla-get-color (vla-item lays lay)))

  601.   (setq bsCol
  602.     (cond (  (vl-position (setq bsCol (vla-get-Color obj)) '(256 0))
  603.              (setq bsflag t)
  604.              (layCol (vla-get-Layer obj)))

  606.           (bsCol)))  

  608.   (defun mk_arc nil
  609.     (vec_arc (if (= "1" *dyniCols)
  610.                (if bsFlag
  611.                  (laycol
  612.                    (if (eq "*Source*" *dynilay)
  613.                      (vla-get-layer obj) *dynilay)) bsCol)
  614.                (if (= 256 *dyniCol)
  615.                  (if (eq "*Source*" *dynilay) bsCol
  616.                    (laycol *dynilay))
  617.                  *dyniCol))

  619.              bsCol

  621.              (if (= "1" *dynoCols)
  622.                (if bsFlag
  623.                  (laycol
  624.                    (if (eq "*Source*" *dynolay)
  625.                      (vla-get-layer obj) *dynolay)) bsCol)
  626.                (if (= 256 *dynoCol)
  627.                  (if (eq "*Source*" *dynolay) bsCol
  628.                    (laycol *dynolay))
  629.                  *dynoCol))))
  630.   
  631.   (cond (  (<= (setq dcTag (load_dialog fname)) 0)
  632.            (princ "\nDialog File not Found."))

  634.         (  (not (new_dialog "dsett" dcTag))
  635.            (princ "\nSettings Dialog could not be Loaded."))

  637.         (t
  638.            (vlax-for lay (vla-get-layers doc)
  639.              (setq lLay (cons (vla-get-Name lay) lLay)))
  640.            (setq lLay (cons "*Source*" (acad_strlsort lLay)))

  642.            (vlax-for lin (vla-get-linetypes doc)
  643.              (setq lLin (cons (vla-get-Name lin) lLin)))
  644.            (setq lLin (append '("*Source*" "ByLayer") (acad_strlsort (cddr (reverse lLin)))))

  646.            (setq lWgt '("*Source*" "ByLayer"
  647.                         "000" "005" "009" "013" "015" "018" "020" "025" "030"
  648.                         "035" "040" "050" "053" "060" "070" "080" "090" "100"
  649.                         "106" "120" "140" "158" "200" "211"))

  651.            (mapcar 'mklst '("ilay" "olay" "ilin" "olin" "olw" "ilw")
  652.                    (list lLay lLay lLin lLin lWgt lWgt))

  654.            (mapcar 'set_tile '("ilay" "olay" "ilin" "olin" "ilw" "olw")
  655.                    (mapcar 'itoa
  656.                            (mapcar 'vl-position
  657.                                    (list *dyniLay *dynoLay *dyniLin *dynoLin *dyniWgt *dynoWgt)
  658.                                    (list   lLay     lLay      lLin     lLin    lWgt     lWgt))))

  660.            (set_tile "icols" *dyniCols)
  661.            (set_tile "ocols" *dynoCols)

  663.            (set_tile "dtitle" dcTitle)
  664.          
  665.            (mode_tile "icol" (atoi (get_tile "icols")))
  666.            (mode_tile "ocol" (atoi (get_tile "ocols")))

  668.            (logo)
  669.            (mk_arc)
  670.            (mapcar 'img '("icol" "ocol") (list *dyniCol *dynoCol))

  672.            (action_tile "ilay"
  673.              (vl-prin1-to-string
  674.                (quote
  675.                  (progn
  676.                    (setq *dynilay (nth (atoi $value) lLay)) (mk_arc)))))

  678.            (action_tile "olay"
  679.              (vl-prin1-to-string
  680.                (quote
  681.                  (progn
  682.                    (setq *dynolay (nth (atoi $value) lLay)) (mk_arc)))))

  684.            (action_tile "ilin"
  685.              (vl-prin1-to-string
  686.                (quote
  687.                  (progn
  688.                    (setq *dyniLin (nth (atoi $value) lLin))))))

  690.            (action_tile "olin"
  691.              (vl-prin1-to-string
  692.                (quote
  693.                  (progn
  694.                    (setq *dynoLin (nth (atoi $value) lLin))))))

  696.            (action_tile "ilw"
  697.              (vl-prin1-to-string
  698.                (quote
  699.                  (progn
  700.                    (setq *dyniWgt (nth (atoi $value) lWgt))))))

  702.            (action_tile "olw"
  703.              (vl-prin1-to-string
  704.                (quote
  705.                  (progn
  706.                    (setq *dynoWgt (nth (atoi $value) lWgt))))))

  708.            (action_tile "icol"
  709.              (vl-prin1-to-string
  710.                (quote
  711.                  (progn
  712.                    (setq *dyniCol (cond ((acad_colordlg *dyniCol)) (*dyniCol)))
  713.                    (img "icol" *dyniCol)
  714.                    (mk_arc)))))
  715.          
  716.            (action_tile "ocol"
  717.              (vl-prin1-to-string
  718.                (quote
  719.                  (progn
  720.                    (setq *dynoCol (cond ((acad_colordlg *dynoCol)) (*dynoCol)))
  721.                    (img "ocol" *dynoCol)
  722.                    (mk_arc)))))

  724.            (action_tile "icols"
  725.              (vl-prin1-to-string
  726.                (quote
  727.                  (progn
  728.                    (mode_tile "icol" (atoi (setq *dyniCols $value)))
  729.                    (mk_arc)))))

  731.            (action_tile "ocols"
  732.              (vl-prin1-to-string
  733.                (quote
  734.                  (progn
  735.                    (mode_tile "ocol" (atoi (setq *dynoCols $value)))
  736.                    (mk_arc)))))
  737.                   
  738.            (action_tile "accept"
  739.              (vl-prin1-to-string
  740.                (quote
  741.                  (progn
  742.                    (setq *DynOffDefaults*
  743.                           (list *dyniCols *dynoCols *dyniCol  *dynoCol  *dynilay
  744.                                 *dynolay  *dynilin  *dynolin  *dyniwgt  *dynowgt))
  745.                    (done_dialog)))))
  746.                   
  747.            (action_tile "cancel" "(done_dialog)")

  749.            (start_dialog)
  750.            (unload_dialog dcTag))))


  753. (defun DC_Write (fname / wPath ofile)

  755.   (if (not (findfile fname))
  756.     (if (setq wPath (findfile "ACAD.PAT"))
  757.       (progn
  758.         (setq wPath (vl-filename-directory wPath))
  759.         (or (eq "\\" (substr wPath (strlen wPath)))
  760.             (setq wPath (strcat wPath "\\")))
  761.         
  762.         (setq ofile (open (strcat wPath fname) "w"))
  763.         
  764.         (foreach str
  765.                  
  766.           '(
  767.             "//-------------------=={ Dynamic Offset }==-------------------//"
  768.             "//                                                            //"
  769.             "//  DynOff.dcl for use in conjunction with DynOff.lsp         //"
  770.             "//------------------------------------------------------------//"
  771.             "//  Author: Lee Mac, Copyright ?2009 - www.lee-mac.com       //"
  772.             "//------------------------------------------------------------//"
  773.             ""
  774.             "// Sub-Assembly Definitions"
  775.             ""
  776.             "pop : popup_list   { fixed_width = false; alignment = centered; }"
  777.             "col : image_button { alignment = centered; height = 1.5; width = 4.0;"
  778.             "                     fixed_width = true; fixed_height = true; color = 2; }"
  779.             ""
  780.             "// Main Dialog"
  781.             ""
  782.             "dsett : dialog { key = \"dtitle\";"
  783.             "  spacer;"
  784.             "  : row {"
  785.             "    : boxed_column { label = \"Offset Preview\"; fixed_width = false; "
  786.             "      : boxed_row { label = \"Outer Colour\"; fixed_width = true;"
  787.             "                    alignment = centered;"
  788.             "        spacer;"
  789.             "        : col  { key = \"ocol\"; }"
  790.             "        spacer;"
  791.             "        : toggle { key = \"ocols\"; label = \"Source\"; }"
  792.             "        spacer;"
  793.             "      } // boxed_row"
  794.             "      : image { key = \"dimage\"; alignment = centered;"
  795.             "                width = 24.64 ; fixed_width  = true;"
  796.             "                height = 11.39; fixed_height = true; color = -2; }"
  797.             "      : boxed_row { label = \"Inner Colour\"; fixed_width = true;"
  798.             "                    alignment = centered;"
  799.             "        spacer;"
  800.             "        : col  { key = \"icol\"; }"
  801.             "        spacer;"
  802.             "        : toggle { key = \"icols\"; label = \"Source\"; }"
  803.             "        spacer;"
  804.             "      } // boxed_row"
  805.             "    } // column"
  806.             "    : column { "
  807.             "      : boxed_column { label = \"Outer Offset\";"
  808.             "        : pop { label = \"Layer:\"; key = \"olay\"; }"
  809.             "        : pop { label = \"Linetype:\"; key = \"olin\"; }"
  810.             "        : pop { label = \"Lineweight:\"; key = \"olw\" ; }"
  811.             "        spacer;"
  812.             "      } // boxed_column"
  813.             "      spacer;"
  814.             "      : boxed_column { label = \"Inner Offset\";"
  815.             "        : pop { label = \"Layer:\"; key = \"ilay\"; }"
  816.             "        : pop { label = \"Linetype:\"; key = \"ilin\"; }"
  817.             "        : pop { label = \"Lineweight:\"; key = \"ilw\" ; }"
  818.             "        spacer;"
  819.             "      } // boxed_column"
  820.             "    } // column"
  821.             "  } // row"
  822.             "  spacer;"
  823.             "  : row {"
  824.             "    : spacer { width = 19.33; height = 3.18; }"
  825.             "    ok_cancel;"
  826.             "    spacer;"
  827.             "    : image { key = \"logo\" ; alignment = centered;"
  828.             "              width = 19.33; fixed_width  = true;"
  829.             "              height = 3.18; fixed_height = true; color = -15; }"
  830.             "  } // row"
  831.             "} // dialog"
  832.             ""
  833.             "//------------------------------------------------------------//"
  834.             "//                         End of File                        //"
  835.             "//------------------------------------------------------------//"
  836.             )

  838.           (write-line str ofile))
  839.         (close ofile)
  840.       t)
  841.   nil)
  842. t))

  844. (defun logo nil

  846.   (start_image "logo")

  848.   (mapcar 'vector_image
  849.          
  850.           '(24 21 19 18 17 16 15 14 1 1 0 0 17 8 0 0 1 1 1 1 8 8 7 7 7 7 7 7 33 33 35
  851.             37 38 39 41 48 47 46 46 54 52 51 50 49 41 42 43 44 45 46 46 47 47 48 48 48
  852.             48 48 49 49 49 49 48 48 48 47 47 44 46 47 48 49 49 50 50 51 52 52 53 53 53
  853.             53 53 53 53 52 52 52 52 51 51 51 51 52 54 54 55 56 58 59 60 62 70 70 68 67
  854.             65 64 62 61 59 58 57 55 64 63 63 63 63 62 61 71 70 69 69 69 69 69 68 69 69
  855.             69 47 26 27 28 28 28 28 28 27 27 26 25 36 34 33 33 33 46 46 47 77 77 77 76
  856.             75 74 73 73 73 72 72 72 72 72 72 72 72 73 73 74 75 79 76 76 76 75 75 75 75
  857.             75 76 76 76 77 77 78 78 79 80 81 83 84 85 86 93 76 77 87 87 81 80 88 88 88
  858.             88 86 86 94 93 92 92 92 92 92 92 93 113 113 112 111 109 108 107 105 109 111
  859.             112 113 113 113 96 94 93 93 93 93 93 94 95 96 97 98 99 101 102 104 105 107
  860.             108 104 103 101 100 100 99 99 98 98 98 98 98 99 100 102 103 104 101 99 98
  861.             96 94 105 107 108 109 110 112 113 114 114 114 112 111 110 108 107 105 103 102)

  863.           '(16 18 19 20 21 21 21 21 22 23 23 24 24 0 0 0 1 2 3 21 21 21 20 19 18 1 1 0 1
  864.             1 2 2 3 4 5 5 4 3 3 1 1 2 3 4 5 6 7 9 10 12 12 13 15 16 18 19 21 23 25 25 27
  865.             28 30 31 33 34 35 40 38 37 36 34 34 33 31 30 28 28 26 25 23 21 21 19 18 16 15
  866.             14 13 11 10 10 9 8 7 6 5 4 3 3 2 2 0 0 0 0 0 0 0 0 0 0 0 0 1 20 21 22 22 23
  867.             24 24 23 23 22 21 20 4 3 2 2 0 0 0 1 2 2 4 4 20 21 23 23 24 24 23 22 21 20 1
  868.             1 0 4 5 6 7 8 9 11 12 13 15 16 18 20 20 22 23 25 26 27 29 30 34 30 29 27 26
  869.             24 22 21 19 18 16 15 13 12 12 10 9 8 7 6 5 4 4 3 3 3 4 10 10 12 12 19 19 20
  870.             21 22 22 21 21 20 19 6 6 5 3 13 14 15 16 17 18 19 19 20 19 18 17 15 14 5 9 11
  871.             12 14 14 16 17 18 19 20 21 21 22 22 22 22 21 21 20 19 19 18 18 17 16 14 12 11
  872.             10 8 7 6 6 5 5 3 3 3 3 3 5 5 6 6 6 7 7 7 7 6 5 4 4 3 3 3 3 3)

  874.           '(21 19 18 17 16 15 14 8 1 0 0 17 24 0 0 1 1 1 1 1 8 7 7 7 7 7 7 8 33 35 37 38
  875.             39 41 41 47 46 46 46 52 51 50 49 48 42 43 44 45 46 46 47 47 48 48 48 48 48 49
  876.             49 49 49 48 48 48 47 47 44 46 47 48 49 49 50 50 51 52 52 53 53 53 53 53 53 53
  877.             52 52 52 52 51 51 51 51 52 54 54 55 56 58 59 60 62 64 70 68 67 65 64 62 61 59
  878.             58 57 55 54 63 63 63 63 62 61 71 70 69 69 69 69 69 68 69 69 69 70 26 27 28 28
  879.             28 28 28 27 27 26 25 36 34 33 33 33 33 46 47 47 77 77 76 75 74 73 73 73 72 72
  880.             72 72 72 72 72 72 73 73 74 75 79 76 76 76 75 75 75 75 75 76 76 76 77 77 78 78
  881.             79 80 81 83 84 85 86 87 76 77 77 87 81 80 88 88 88 88 86 86 94 93 92 92 92 92
  882.             92 92 93 93 113 112 111 109 108 107 105 104 111 112 113 113 113 113 94 93 93
  883.             93 93 93 94 95 96 97 98 99 101 102 104 105 107 108 109 103 101 100 100 99 99
  884.             98 98 98 98 98 99 100 102 103 104 105 99 98 96 94 96 107 108 109 110 112 113
  885.             114 114 114 112 111 110 108 107 105 103 102 101)

  887.           '(18 19 20 21 21 21 21 21 23 23 24 24 16 0 0 1 2 3 21 22 21 20 19 18 1 1 0 0 1 2
  888.             2 3 4 5 5 4 3 3 1 1 2 3 4 5 6 7 9 10 12 12 13 15 16 18 19 21 23 25 25 27 28 30
  889.             31 33 34 35 40 38 37 36 34 34 33 31 30 28 28 26 25 23 21 21 19 18 16 15 14 13
  890.             11 10 10 9 8 7 6 5 4 3 3 2 2 1 0 0 0 0 0 0 0 0 0 0 0 1 20 21 22 22 23 24 24 23
  891.             23 22 21 20 4 3 2 2 0 0 0 1 2 2 4 4 20 21 23 23 24 24 23 22 21 20 1 1 0 0 5 6 7
  892.             8 9 11 12 13 15 16 18 20 20 22 23 25 26 27 29 30 34 30 29 27 26 24 22 21 19 18
  893.             16 15 13 12 12 10 9 8 7 6 5 4 4 4 3 3 4 10 10 12 12 19 19 20 21 22 22 21 21 20
  894.             19 6 6 5 3 3 14 15 16 17 18 19 19 20 19 18 17 15 14 13 9 11 12 14 14 16 17 18 19
  895.             20 21 21 22 22 22 22 21 21 20 19 19 18 18 17 16 14 12 11 10 8 7 6 6 5 5 5 3 3 3
  896.             3 5 5 6 6 6 7 7 7 7 6 5 4 4 3 3 3 3 3 3)

  898.           '(14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14
  899.             14 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166
  900.             166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166
  901.             166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166
  902.             166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166
  903.             166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166
  904.             166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166
  905.             166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166
  906.             166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166
  907.             166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166
  908.             166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166
  909.             166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166
  910.             166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166
  911.             166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166
  912.             166 166 166 166))

  914.   (end_image))

  916. (defun vec_arc (iCol bCol oCol)

  918.   (start_image "dimage")

  920.   (mapcar 'vector_image

  922.           '(0 48 48 48 48 47 46 45 44 43 42 40 39 37 35 33 31 29 26 24 21 19 16 14 11 8 5 2)
  923.           '(0 146 143 141 138 135 132 130 127 124 122 119 117 115 113 111 109 107 105 104 103 101 100 99 99 98 98 97)
  924.           '(0 48 48 48 47 46 45 44 43 42 40 39 37 35 33 31 29 26 24 21 19 16 14 11 8 5 2 0)
  925.           '(0 143 141 138 135 132 130 127 124 122 119 117 115 113 111 109 107 105 104 103 101 100 99 99 98 98 97 97)

  927.           (list iCol iCol iCol iCol iCol iCol iCol iCol iCol iCol iCol iCol iCol iCol iCol
  928.                 iCol iCol iCol iCol iCol iCol iCol iCol iCol iCol iCol iCol iCol))

  930.   (mapcar 'vector_image

  932.           '(0 42 39 35 32 28 25 21 18 14 10 7 3 42 39 35 32 28 25 21 18 14 10 7 3 71 69 66 63
  933.             60 58 55 52 48 45 71 69 66 63 60 58 55 52 48 45 93 92 90 89 88 86 84 82 80 78 76
  934.             74 93 92 90 89 88 86 84 82 80 78 76 74 97 97 97 97 96 96 95 94 97 97 97 97 96 96 95 94)

  936.           '(0 58 57 55 54 53 52 51 50 50 49 49 49 58 57 55 54 53 52 51 50 50 49 49 49 80 77 75
  937.             72 70 68 65 63 62 60 80 77 75 72 70 68 65 63 62 60 117 114 111 107 104 101 97 94 91
  938.             88 85 82 117 114 111 107 104 101 97 94 91 88 85 82 146 143 139 135 132 128 125 121
  939.             146 143 139 135 132 128 125 121)

  941.           '(0 39 35 32 28 25 21 18 14 10 7 3 0 39 35 32 28 25 21 18 14 10 7 3 0 69 66 63 60 58
  942.             55 52 48 45 42 69 66 63 60 58 55 52 48 45 42 92 90 89 88 86 84 82 80 78 76 74 71 92
  943.             90 89 88 86 84 82 80 78 76 74 71 97 97 97 96 96 95 94 93 97 97 97 96 96 95 94 93)

  945.           '(0 57 55 54 53 52 51 50 50 49 49 49 48 57 55 54 53 52 51 50 50 49 49 49 48 77 75 72
  946.             70 68 65 63 62 60 58 77 75 72 70 68 65 63 62 60 58 114 111 107 104 101 97 94 91 88
  947.             85 82 80 114 111 107 104 101 97 94 91 88 85 82 80 143 139 135 132 128 125 121 117 143
  948.             139 135 132 128 125 121 117)

  950.           (list bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol
  951.                 bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol
  952.                 bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol
  953.                 bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol
  954.                 bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol
  955.                 bCol bCol bCol bCol bCol))

  957.   (mapcar 'vector_image

  959.           '(56 51 47 43 39 35 30 26 22 17 13 8 4 0 106 103 100 97 93 90 86 83 79 75 72 68 64 60
  960.             146 146 146 146 145 144 144 143 142 141 139 138 137 135 133 131 129 127 125 123 120
  961.             118 115 112 109)

  963.           '(11 9 8 6 5 4 3 2 1 1 0 0 0 0 46 42 39 36 34 31 28 25 23 21 18 16 14 12 146 142 137 133
  964.             129 124 120 115 111 107 103 98 94 90 86 82 78 74 70 67 63 59 56 52 49)

  966.           '(51 47 43 39 35 30 26 22 17 13 8 4 0 0 103 100 97 93 90 86 83 79 75 72 68 64 60 56 146
  967.             146 146 145 144 144 143 142 141 139 138 137 135 133 131 129 127 125 123 120 118 115 112 109 106)

  969.           '(9 8 6 5 4 3 2 1 1 0 0 0 0 0 42 39 36 34 31 28 25 23 21 18 16 14 12 11 142 137 133 129
  970.             124 120 115 111 107 103 98 94 90 86 82 78 74 70 67 63 59 56 52 49 46)

  972.           (list oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol
  973.                 oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol
  974.                 oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol
  975.                 oCol oCol oCol oCol oCol))

  977.   (end_image))


  980. (vl-load-com)
  981. (princ "\n:: DynOff.lsp | Version 2.1 | ?Lee Mac 2009 www.lee-mac.com ::")
  982. (princ "\n:: Type \"DynOff\" to Invoke ::")
  983. (princ)

动态

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？注册

x
"觉得好，就打赏"
打赏
还没有人打赏，支持一下

相关帖子
回复

使用道具 举报

20060510412
发表于 2018-11-6 10:59 | 显示全部楼层
试用过之后，只有一个感觉：好精美的程序啊
回复 支持 反对

使用道具 举报

yanchao316
发表于 2016-9-29 14:14 | 显示全部楼层
代码加点中文解释就更好了
回复 支持 反对

使用道具 举报

tomonkey239
发表于 2023-10-11 22:54 | 显示全部楼层
大师之作，学习都学不会
回复 支持 反对

使用道具 举报

ysq101
发表于 2013-12-4 19:50 | 显示全部楼层
983行代码.........看着都晕啊~~~~~~功能没试...支持一下
回复 支持 反对

使用道具 举报

flyfox1047
 楼主| 发表于 2013-12-4 20:02 | 显示全部楼层
ysq101 发表于 2013-12-4 19:50
983行代码.........看着都晕啊~~~~~~功能没试...支持一下

不简简单单的是偏移，可以很多附加选项
回复 支持 反对

使用道具 举报

xyp1964
发表于 2013-12-4 20:06 | 显示全部楼层
意义不大
回复 支持 反对

使用道具 举报

tianyi1230
发表于 2013-12-4 22:52 | 显示全部楼层
源码汉化才好用
回复 支持 反对

使用道具 举报

yaokui25
发表于 2013-12-5 06:48 | 显示全部楼层
好像在论坛上看过类似的
楼主辛苦了
回复 支持 反对

使用道具 举报

hhh454
发表于 2013-12-6 08:05 | 显示全部楼层
看到这个，学习道路还很长
回复 支持 反对

使用道具 举报

海盗曹
发表于 2013-12-6 09:26 | 显示全部楼层
lee的代码真是博大精深那
回复 支持 反对

使用道具 举报

az98hxq
发表于 2013-12-6 12:25 | 显示全部楼层
用了一下，确实功能强大，非常不错
回复 支持 反对

使用道具 举报

ps122hb
发表于 2013-12-7 08:15 | 显示全部楼层
确实很厉害，学习了
回复 支持 反对

使用道具 举报

123下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码，在未取得本站及作者授权的情况下，不得用于商业用途

GMT+8, 2024-6-25 13:43 , Processed in 0.253114 second(s), 32 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表