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

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 开发篇 › AutoLISP/Visual LISP 编程技术 › 发一个双向偏移 lsp
12下一页
返回列表 发新帖
查看: 3190|回复: 14

[源码] 发一个双向偏移 lsp

[复制链接]
alexmai
发表于 2021-5-14 14:35:08 | 显示全部楼层 |阅读模式
本帖最后由 alexmai 于 2021-5-14 15:56 编辑

;感谢 Lee Mac


  3. ;;--------------------------=={  Dynamic Offset  }==-----------------------------;;
  4. ;;                                                                               ;;
  5. ;;  Allows the user to dynamically offset multiple objects simultaneously, by    ;;
  6. ;;  either specifying the offset distance via mouse-click, or at the             ;;
  7. ;;  command-line. The command-line default will remember the last offset entered ;;
  8. ;;  by the user.                                                                 ;;
  9. ;;                                                                               ;;
  10. ;;  Object Snap functionality is retained, and the on-screen offset distance is  ;;
  11. ;;  determined by the nearest object in the offset selection set.                ;;
  12. ;;                                                                               ;;
  13. ;;  The user can use the +/- keys to change the number of offsets, or,           ;;
  14. ;;  alternatively, the user can press 'N' and specify the number of offsets      ;;
  15. ;;  directly.                                                                    ;;
  16. ;;                                                                               ;;
  17. ;;  The user can also press 'S' during object offset to change the layer,        ;;
  18. ;;  linetype, lineweight, and colour of the resultant offset objects.            ;;
  19. ;;                                                                               ;;
  20. ;;  By pressing TAB the user can switch modes between offsetting both sides or   ;;
  21. ;;  just one side of an object.                                                  ;;
  22. ;;                                                                               ;;
  23. ;;  The toggle for retaining or deleting the original Objects can be altered by  ;;
  24. ;;  pressing 'D'. The user can hold SHIFT to highlight the offset entities.      ;;
  25. ;;                                                                               ;;
  26. ;;-------------------------------------------------------------------------------;;
  27. ;;                                                                               ;;
  28. ;;  FUNCTION SYNTAX:  DynOff                                                     ;;
  29. ;;                                                                               ;;
  30. ;;-------------------------------------------------------------------------------;;
  31. ;;                                                                               ;;
  32. ;;  Author: Lee Mac, Copyright ?October 2009 - [url=http://www.lee-mac.com]www.lee-mac.com[/url]                  ;;
  33. ;;                                                                               ;;
  34. ;;-------------------------------------------------------------------------------;;
  35. ;;                                                                               ;;
  36. ;;  Version:                                                                     ;;
  37. ;;                                                                               ;;
  38. ;;  1.0:  17/10/2009  -  First Release                                           ;;
  39. ;;-------------------------------------------------------------------------------;;
  40. ;;  1.1:  19/10/2009  -  Added Object Snap functionality                         ;;
  41. ;;-------------------------------------------------------------------------------;;
  42. ;;  1.2:  20/10/2009  -  Added Multiple Offset Option                            ;;
  43. ;;-------------------------------------------------------------------------------;;
  44. ;;  1.3:  21/10/2009  -  Updated Object Snap Coding                              ;;
  45. ;;-------------------------------------------------------------------------------;;
  46. ;;  1.4:  23/10/2009  -  Updated Offset Number Options                           ;;
  47. ;;                    -  Added option to specify Offset factor.                  ;;
  48. ;;-------------------------------------------------------------------------------;;
  49. ;;  1.5:  29/10/2009  -  Added Settings Dialog.                                  ;;
  50. ;;-------------------------------------------------------------------------------;;
  51. ;;  1.6:  08/12/2009  -  Added option to only offset object on one side.         ;;
  52. ;;-------------------------------------------------------------------------------;;
  53. ;;  1.7:  10/12/2009  -  Added option to delete original objects.                ;;
  54. ;;-------------------------------------------------------------------------------;;
  55. ;;  1.8:  14/12/2009  -  Added ability to offset to the center of two objects.   ;;
  56. ;;-------------------------------------------------------------------------------;;
  57. ;;  1.9:  16/12/2009  -  Modified method for spacing multiple offsets.           ;;
  58. ;;                    -  Improved OSnap Coding.                                  ;;
  59. ;;-------------------------------------------------------------------------------;;
  60. ;;  2.0:  18/12/2009  -  Added colour change for offset entities.                ;;
  61. ;;                   -   Fixed Bug when using Offset Factor.                     ;;
  62. ;;-------------------------------------------------------------------------------;;
  63. ;;  2.1:  21/12/2009  -  Updated code to check for Express Tools.                ;;
  64. ;;-------------------------------------------------------------------------------;;

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

  68.                        *error* clean DynOff_Sub txt2num

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

  72.                        CODE CPT
  73.                        DATA DCFNAME DCTITLE DOC DRFT
  74.                        E1 E2 ELST ENTLST ET EXFLAG
  75.                        GR
  76.                        I IOBJ
  77.                        K MSG
  78.                        OBJ OBJLST OFF OOBJ OPT OSGRV OSTR
  79.                        PROP
  80.                        RLST
  81.                        SS
  82.                        X

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

  86.                        ; *dynOff  ~  Default Offset Distance
  87.                        ; *dynNum  ~  Default Offset Number
  88.                        ; *dynFac  ~  Default Offset Factor
  89.                        ; *dynMod  ~  Default Offset Mode (bit-coded)
  90.                        ; *dynDel  ~  Default Delete Option

  92.                        ; *DynOffDefaults*  ~ Default Dialog Settings

  94.                  )

  96.   (setq dcfname "LMAC_DynOff_V2.1.dcl"
  97.         dcTitle "Dynamic Offset V2.1 Settings")
  98.   
  99.   (or *dynOff (setq *dynOff 10.0))
  100.   (or *dynNum (setq *dynNum  1  ))
  101.   (or *dynFac (setq *dynFac  1.0))
  102.   (or *dynMod (setq *dynMod  2  ))
  103.   (or *dynDel (setq *dynDel  nil))

  105.   (or *DynOffDefaults*
  106.       (setq *DynOffDefaults* '("1" "1" 256 256 "*Source*" "*Source*"   ;; Layer
  107.                                                "ByLayer"  "ByLayer"    ;; Linetype
  108.                                                "ByLayer"  "ByLayer"))) ;; Lineweight

  110.   (setq k -1)
  111.   (setq *DynOffDefaults*
  112.     (mapcar
  113.       (function
  114.         (lambda (value)
  115.           (cond (  (<= 4 (setq k (1+ k)) 5)
  116.                    (if (tblsearch "LAYER" value) value "*Source*"))

  118.                 (  (<= 6 k 7)
  119.                    (if (tblsearch "LTYPE" value) value "ByLayer"))

  121.                 (t value)))) *DynOffDefaults*))

  123.   (setq dynMode (nth *dynMod '(1 2 3)))
  124.   

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

  128.   (defun *error* (err)
  129.     (setq eLst (clean eLst))
  130.     (and doc (vla-EndUndoMark doc))
  131.     (or (wcmatch (strcase err) "*BREAK,*CANCEL*,*EXIT*")
  132.         (princ (strcat "\n** Error: " err " **"))) (redraw) (princ))

  134.   ;;-------------------------------------------------------------------------------;;
  135.   

  137.   (defun clean (lst / lst)
  138.     (cond (lst (mapcar
  139.                  (function
  140.                    (lambda (object)
  141.                      (if (not (vlax-erased-p object))
  142.                        (vla-delete object)))) lst)
  143.            (setq lst nil))))


  146.   (defun DynOff_Sub (obj off / rLst oObj iObj i)
  147.    
  148.     (if (vl-catch-all-error-p
  149.           (vl-catch-all-apply
  150.             (function
  151.               (lambda ( )               
  152.                 (if (= 1 (logand 1 dynmode))
  153.                   (progn
  154.                     (setq i  3 oObj (vlax-invoke obj 'Offset off))
  155.                     (if (or (and et (not (acet-sys-shift-down))) (not et)) ;; -- Mod 2.0 --
  156.                       (foreach prop '(color layer linetype lineweight)
  157.                         (mapcar
  158.                           (function
  159.                             (lambda (object / val)
  160.                               (if (or (vl-position (setq val (nth i *DynOffDefaults*)) '(256 "*Source*"))
  161.                                       (and (= i 3) (= "1" (cadr *DynOffDefaults*))))
  162.                                 (vlax-put-property object prop (vlax-get-property obj prop))
  163.                                 (vlax-put-property object prop (if (< i 9) val (eval (read (strcat "acLnWt" val)))))))) oObj)
  164.                         (setq i (+ i 2))))))
  165.                
  166.                 (if (= 2 (logand 2 dynmode))
  167.                   (progn
  168.                     (setq i 2 iObj (vlax-invoke obj 'Offset (- off)))
  169.                     (if (or (and et (not (acet-sys-shift-down))) (not et)) ;; -- Mod 2.0 --
  170.                       (foreach prop '(color layer linetype lineweight)
  171.                         (mapcar
  172.                           (function
  173.                             (lambda (object / val)
  174.                               (if (or (vl-position (setq val (nth i *DynOffDefaults*)) '(256 "*Source*"))
  175.                                       (and (= i 2) (= "1" (car *DynOffDefaults*))))
  176.                                 (vlax-put-property object prop (vlax-get-property obj prop))
  177.                                 (vlax-put-property object prop (if (< i 8) val (eval (read (strcat "acLnWt" val)))))))) iObj)
  178.                         (setq i (+ i 2))))))
  179.                
  180.                 (setq rLst (append oObj iObj))))))
  181.       
  182.           (clean (append oObj iObj))
  183.       
  184.       rLst))
  185.   

  187.   (defun txt2num  (txt)
  188.     (cond ((distof txt 5)) ((distof txt 2)) ((distof txt 1)) ((distof txt 4)) ((distof txt 3))))

  190.   (defun GetOffLen (num fac / result)
  191.     (setq result 0.)
  192.     (while (not (minusp (setq num (1- num))))
  193.       (setq result (+ result (expt fac num))))
  194.    
  195.     result)

  197.   (setq et (not (vl-catch-all-error-p
  198.                   (vl-catch-all-apply (function (lambda nil (acet-sys-shift-down)))))))
  199.   (or et (princ "\nExpress Tools not Loaded - Shift option not Available."))
  200.   

  202.   (setq doc   (vla-get-ActiveDocument
  203.                 (vlax-get-acad-object))
  204.         
  205.         drft  (vla-get-drafting
  206.                 (vla-get-preferences
  207.                   (vlax-get-acad-object)))
  208.         
  209.         osGrv (osmode-grvecs-lst
  210.                 (vla-get-AutoSnapMarkerColor drft)
  211.                   (vla-get-AutoSnapMarkerSize drft)))
  212.   

  214.   (cond (  (not (DC_Write dcfname))
  215.            (princ "\nDCL File could not be Written."))

  217.         (t
  218.   
  219.           (if (setq ss (ssget "_:L" '((0 . "ARC,CIRCLE,ELLIPSE,*LINE"))))
  220.             (progn
  221.               
  222.               (vla-StartUndoMark doc)
  223.               (setq ObjLst (mapcar 'vlax-ename->vla-object
  224.                              (setq EntLst (vl-remove-if 'listp
  225.                                             (mapcar 'cadr (ssnamex ss))))) oStr "")
  226.               
  227.               (setq msg '(strcat "\n[TAB] Mode, [+/-] Offset [N]umber, Offset [F]actor"
  228.                                  "\n[C]enter, [S]ettings"
  229.                           (if et ", [SHIFT] Show Offsets" "") ", [D]elete Original = "
  230.                           (if *dynDel "Yes" "No")
  231.                                  "\nSpecify Offset <" (vl-princ-to-string *dynOff) "> : "))
  232.               (princ (eval msg))
  233.               
  234.               (while
  235.                 (progn
  236.                   (setq gr (grread 't 15 0) code (car gr) data (cadr gr))
  237.                   (redraw)
  238.                   
  239.                   (cond (  (and (= 5 code) (listp data))
  240.                            
  241.                            (setq EntLst (vl-sort EntLst
  242.                                           (function
  243.                                             (lambda (a b)
  244.                                               (< (distance data (vlax-curve-getClosestPointto a data))
  245.                                                  (distance data (vlax-curve-getClosestPointto b data)))))))
  246.                              
  247.                            (setq cPt (vlax-curve-getClosestPointto (car entLst) data)

  249.                                  off (/ (distance cPt data) (GetOffLen *dynNum *dynFac)))  ;; -- Mod 2.0 --
  250.                         
  251.                            (grdraw cPt data 3 1)

  253.                            (setq eLst (clean eLst))

  255.                            (if (and (< 0 (getvar "OSMODE") 16384)
  256.                                     (setq oPt (vl-remove-if (function null)
  257.                                                 (mapcar
  258.                                                   (function
  259.                                                     (lambda (x / o)
  260.                                                       (if (setq o (osnap data x))
  261.                                                         (list (distance data o) o x data)))) (get_osmode)))))
  262.                              
  263.                              (setq oPt (cdar (vl-sort oPt (function (lambda (a b) (< (car a) (car b)))))))
  264.                              (setq oPt nil))

  266.                            (and oPt (OsMark oPt))

  268.                            (foreach obj ObjLst (setq i -1 x 0.)
  269.                              (repeat *dynNum                     
  270.                                (setq eLst
  271.                                  (append eLst (cond ((DynOff_Sub obj
  272.                                                        (* (setq x (+ x (expt *dynFac (setq i (1+ i))))) off))) ((clean eLst)))))))
  273.                         
  274.                            (if (and eLst et (acet-sys-shift-down))
  275.                              (mapcar
  276.                                (function
  277.                                  (lambda (x) (vla-put-color x acBlue))) eLst)) ;; -- Mod 2.0 --

  279.                          t)

  281.                         (  (= code 25) nil)
  282.                         
  283.                         (  (and (= code 3) (listp data))

  285.                            (clean eLst)
  286.                         
  287.                            (setq *dynOff off)
  288.                            (setq cPt (vlax-curve-getClosestPointto (car entLst) data))
  289.                         
  290.                            (if (and (< 0 (getvar "OSMODE") 16384)
  291.                                     (setq oPt (vl-remove-if (function null)
  292.                                                 (mapcar
  293.                                                   (function
  294.                                                     (lambda (x / o)
  295.                                                       (if (setq o (osnap data x))
  296.                                                         (list (distance data o) o x data)))) (get_osmode)))))
  297.                              
  298.                              (setq oPt     (cdar (vl-sort oPt
  299.                                                    (function (lambda (a b) (< (car a) (car b))))))
  300.                                    
  301.                                    data    (osnap (caddr oPt) (cadr oPt))

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

  305.                                               (GetOffLen *dynNum *dynFac)))   ;; -- Mod 1.9 --
  306.                            
  307.                              (setq oPt nil))

  309.                            (foreach obj ObjLst (setq i -1 x 0.)
  310.                              (repeat *dynNum
  311.                                (setq eLst
  312.                                  (append eLst (cond ((DynOff_Sub obj
  313.                                                        (* (setq x (+ x (expt *dynFac (setq i (1+ i))))) *dynoff))) ((clean eLst))))))) nil)                  
  314.                         
  315.                         (  (= code 2)

  317.                            (cond (  (or (= 46 data) (< 47 data 58))
  318.                                     (setq oStr (strcat oStr (chr data)))
  319.                                     (princ (chr data)))

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

  323.                                     (while
  324.                                       (progn
  325.                                         (setq e1 (entsel "\nSelect First Object: "))

  327.                                         (cond (  (vl-consp e1)

  329.                                                  (if (wcmatch (cdr (assoc 0 (entget (car e1)))) "ARC,CIRCLE,ELLIPSE,*LINE")
  330.                                                    
  331.                                                    (while
  332.                                                      (progn
  333.                                                        (setq e2 (car (entsel "\nSelect Second Object: ")))

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

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

  340.                                                                     (setq p1 (vlax-curve-getClosestPointto (car e1) (cadr e1))
  341.                                                                           p2 (vlax-curve-getClosestPointto e2 p1))

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

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

  347.                                                                     (foreach obj ObjLst (setq i -1 x 0.)
  348.                                                                       (repeat *dynNum
  349.                                                                         (setq eLst
  350.                                                                           (append eLst

  352.                                                                             (cond (  (DynOff_Sub obj

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

  356.                                                                                   (  (clean eLst)))))))

  358.                                                                     (setq exFlag nil))

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

  362.                                                              (  (setq exFlag t) nil))))
  363.                                                    
  364.                                                    (princ "\nInvalid Object Selected.")))

  366.                                               (  (setq exFlag t) nil))))

  368.                                     exFlag)                                                                    

  370.                                  (  (vl-position data '(43 61))
  371.                                     (setq *dynNum (1+ *dynNum)))

  373.                                  (  (vl-position data '(68 100))
  374.                                     (setq *dynDel (not *dynDel))
  375.                                  
  376.                                     (princ (strcat "\nOriginal Objects "
  377.                                                    (if *dynDel "will" "will not") " be Deleted" (eval msg))))

  379.                                  (  (vl-position data '(78 110))
  380.                                     (initget 6)
  381.                                     (setq *dynNum
  382.                                           
  383.                                       (cond ((getint (strcat "\nSpecify Number of Offsets <" (itoa *dynNum) "> : ")))
  384.                                             
  385.                                             (*dynNum)))
  386.                                  
  387.                                     (princ (eval msg)))

  389.                                  (  (= data 6)
  390.                                     (cond (  (< 0 (getvar "OSMODE") 16384)
  391.                                              (setvar "OSMODE" (+ 16384 (getvar "OSMODE")))
  392.                                              (princ "\n<Osnap off>"))
  393.                                           
  394.                                           (t (setvar "OSMODE" (- (getvar "OSMODE") 16384))
  395.                                              (princ "\n<Osnap on>")))
  396.                                  
  397.                                     (princ (eval msg)))

  399.                                  (  (= data 9)

  401.                                     (setq dynmode

  403.                                       (cond (  (= 2 *dynMod)
  404.                                                (setq *dynMod 0) 1)

  406.                                             (  (nth (setq *dynMod (1+ *dynMod)) '(1 2 3))))))
  407.                                  
  408.                                  (  (vl-position data '(70 102))
  409.                                     (initget 6)
  410.                                     (setq *DynFac
  411.                                           
  412.                                       (cond ((getreal (strcat "\nSpecify Offset Factor <" (vl-princ-to-string *dynFac) "> : ")))
  413.                                             
  414.                                             (*dynFac)))

  416.                                     (princ (eval msg)))

  418.                                  (  (vl-position data '(83 115))
  419.                                     (Off_Settings dcfname (vlax-ename->vla-object (car EntLst)))
  420.                                  
  421.                                   t)                           

  423.                                  (  (= data 45)
  424.                                  
  425.                                     (cond (  (= 1 *dynNum)
  426.                                              (princ (strcat "\nMinimum Offset Number Reached." (eval msg))))
  427.                                           
  428.                                           (t (setq *dynNum (1- *dynNum)))))

  430.                                  (  (and (< 0 (strlen oStr)) (= data 8))
  431.                                  
  432.                                     (setq oStr (substr oStr 1 (1- (strlen oStr))))
  433.                                     (princ (vl-list->string '(8 32 8))))

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

  437.                                     (cond (  (zerop (strlen oStr))

  439.                                              (clean eLst)
  440.                                           
  441.                                              (foreach obj ObjLst (setq i -1 x 0.)
  442.                                                (repeat *dynNum
  443.                                                  (setq eLst
  444.                                                    (append eLst
  445.                                                            
  446.                                                      (cond (  (DynOff_Sub obj
  447.                                                                
  448.                                                                 (* (setq x (+ x (expt *dynFac (setq i (1+ i))))) *dynoff)))

  450.                                                            (  (clean eLst))))))) nil)                                    

  452.                                           (  (setq off (txt2num oStr))

  454.                                              (clean eLst)
  455.                                           
  456.                                              (setq *dynOff off)
  457.                                              (foreach obj ObjLst (setq i -1 x 0.)
  458.                                                (repeat *dynNum
  459.                                                  (setq eLst
  460.                                                    (append eLst

  462.                                                      (cond (  (DynOff_Sub obj

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

  466.                                                            (  (clean eLst))))))) nil)

  468.                                           (t (princ "\nInvalid Offset Entered.")
  469.                                              (princ (eval msg)) (setq oStr ""))))
  470.                                  (t )))
  471.                         (t ))))

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

  475.               (vla-EndUndoMark doc)))))
  476.   
  477.   (princ))

  479. (defun osMark (o / s)
  480.   (setq s (/ (getvar "VIEWSIZE") (cadr (getvar "SCREENSIZE")))
  481.         o (cons (trans (car o) 1 3) (cdr o)))

  483.   (grvecs (cdr (assoc (cadr o) osGrv))
  484.           (list (list s 0. 0. (caar o))
  485.                 (list 0. s 0. (cadar o))
  486.                 (list 0. 0. s 0.)
  487.                 (list 0. 0. 0. 1.))))

  489. (defun get_osmode nil ; by Evgeniy Elpanov
  490.   (mapcar
  491.     (function cdr)
  492.       (vl-remove-if
  493.         (function (lambda (x) (zerop (logand (getvar "OSMODE") (car x)))))
  494.         '((1    . "_end")
  495.           (2    . "_mid")
  496.           (4    . "_cen")
  497.           (8    . "_nod")
  498.           (16   . "_qua")
  499.           (32   . "_int")
  500.           (64   . "_ins")
  501.           (128  . "_per")
  502.           (256  . "_tan")
  503.           (512  . "_nea")
  504.           (2048 . "_app")))))

  506. (defun osmode-grvecs-lst (col ass / -ASS ASS COL)
  507.    ; By Evgeniy Elpanov (Modified by Lee Mac)
  508.   
  509.   (setq -ass (- ass))
  510.   
  511.   (list (list "_end"
  512.               col (list -ass -ass) (list -ass  ass)
  513.               col (list (1-  -ass) (1- -ass)) (list (1- -ass) (1+  ass))              
  514.               col (list -ass  ass) (list  ass  ass)
  515.               col (list (1-  -ass) (1+  ass)) (list (1+  ass) (1+  ass))              
  516.               col (list  ass  ass) (list  ass -ass)
  517.               col (list (1+   ass) (1+  ass)) (list (1+  ass) (1- -ass))              
  518.               col (list  ass -ass) (list -ass -ass)
  519.               col (list (1+   ass) (1- -ass)) (list (1- -ass) (1- -ass)))
  520.         
  521.         (list "_mid"
  522.               col (list -ass -ass) (list    0. ass)
  523.               col (list (1-  -ass) (1- -ass)) (list 0. (1+  ass))
  524.               col (list    0. ass) (list  ass -ass)
  525.               col (list 0. (1+  ass)) (list (1+  ass) (1- -ass))
  526.               col (list  ass -ass) (list -ass -ass)
  527.               col (list (1+   ass) (1- -ass)) (list (1- -ass) (1- -ass)))
  528.         
  529.         (list "_cen"
  530.               7   (list (* -ass 0.2) 0.)  (list (*  ass 0.2) 0.)
  531.               7   (list  0. (* -ass 0.2)) (list  0.  (*  ass 0.2))
  532.               col (list    -ass   0.)     (list (* -ass 0.86) (* ass  0.5))
  533.               col (list (* -ass 0.86) (* ass  0.5))  (list (* -ass  0.5) (* ass 0.86))
  534.               col (list (* -ass  0.5) (* ass 0.86))  (list 0. ass)
  535.               col (list 0. ass) (list (* ass 0.5)    (* ass 0.86))
  536.               col (list (* ass 0.5)   (* ass 0.86))  (list (* ass 0.86) (* ass 0.5))
  537.               col (list (* ass 0.86)  (* ass 0.5))   (list ass 0.)
  538.               col (list ass 0.) (list (* ass 0.86)   (* -ass 0.5))
  539.               col (list (* ass 0.86)  (* -ass 0.5))  (list (* ass 0.5) (* -ass 0.86))
  540.               col (list (* ass 0.5)   (* -ass 0.86)) (list 0. -ass)
  541.               col (list 0. -ass)(list (* -ass 0.5)   (* -ass 0.86))
  542.               col (list (* -ass 0.5)  (* -ass 0.86)) (list (* -ass 0.86) (* -ass 0.5))
  543.               col (list (* -ass 0.86) (* -ass 0.5))  (list -ass 0.))

  545.         (list "_nod"
  546.               col (list -ass -ass)    (list ass ass)
  547.               col (list -ass ass)     (list ass -ass)
  548.               col (list -ass 0.)      (list (* -ass 0.86) (* ass 0.5))
  549.               col (list (* -ass 0.86) (* ass 0.5))   (list (* -ass 0.5) (* ass 0.86))
  550.               col (list (* -ass 0.5)  (* ass 0.86))  (list 0. ass)
  551.               col (list 0. ass) (list (* ass 0.5)    (* ass 0.86))
  552.               col (list (* ass 0.5)   (* ass 0.86))  (list (* ass 0.86) (* ass 0.5))
  553.               col (list (* ass 0.86)  (* ass 0.5))   (list ass 0.)
  554.               col (list ass 0.) (list (* ass 0.86)   (* -ass 0.5))
  555.               col (list (* ass 0.86)  (* -ass 0.5))  (list (* ass 0.5) (* -ass 0.86))
  556.               col (list (* ass 0.5)   (* -ass 0.86)) (list 0. -ass)
  557.               col (list 0. -ass)(list (* -ass 0.5)   (* -ass 0.86))
  558.               col (list (* -ass 0.5)  (* -ass 0.86)) (list (* -ass 0.86) (* -ass 0.5))
  559.               col (list (* -ass 0.86) (* -ass 0.5))  (list -ass 0.))

  561.         (list "_qua"
  562.               col (list 0. -ass)   (list -ass 0.)
  563.               col (list 0. (1- -ass))   (list (1- -ass) 0.)
  564.               col (list -ass 0.)   (list 0. ass)
  565.               col (list (1- -ass) 0.)   (list 0. (1+ ass))
  566.               col (list 0. ass)    (list ass 0.)
  567.               col (list 0. (1+ ass))    (list (1+ ass) 0.)
  568.               col (list ass 0.)    (list 0. -ass)
  569.               col (list (1+ ass) 0.)    (list 0. (1- -ass)))

  571.         (list "_int"
  572.               col (list -ass -ass) (list ass ass)
  573.               col (list -ass (1+ -ass)) (list ass (1+ ass))
  574.               col (list (1+ -ass) -ass) (list (1+ ass) ass)
  575.               col (list -ass ass)  (list ass -ass)
  576.               col (list -ass (1+ ass))  (list ass (1+ -ass))
  577.               col (list (1+ -ass) ass)  (list (1+ ass) -ass))

  579.         (list "_ins"
  580.               col (list (* -ass 0.1) (* -ass 0.1)) (list -ass (* -ass 0.1))
  581.               col (list -ass (* -ass 0.1)) (list -ass ass)
  582.               col (list -ass ass) (list (* ass 0.1) ass)
  583.               col (list (* ass 0.1) ass)   (list (* ass 0.1) (* ass 0.1))
  584.               col (list (* ass 0.1) (* ass 0.1))   (list ass (* ass 0.1))
  585.               col (list ass (* ass 0.1))   (list ass -ass)
  586.               col (list ass -ass) (list (* -ass 0.1) -ass)
  587.               col (list (* -ass 0.1) -ass) (list (* -ass 0.1) (* -ass 0.1))
  588.               col (list (1- (* -ass 0.1)) (1- (* -ass 0.1))) (list (1- -ass) (1- (* -ass 0.1)))
  589.               col (list (1- -ass) (1- (* -ass 0.1))) (list (1- -ass) (1+ ass))
  590.               col (list (1- -ass) (1+ ass)) (list (1+ (* ass 0.1)) (1+ ass))
  591.               col (list (1+ (* ass 0.1)) (1+ ass)) (list (1+ (* ass 0.1)) (1+ (* ass 0.1)))
  592.               col (list (1+ (* ass 0.1)) (1+ (* ass 0.1))) (list (1+ ass) (1+ (* ass 0.1)))
  593.               col (list (1+ ass) (1+ (* ass 0.1)))   (list (1+ ass) (1- -ass))
  594.               col (list (1+ ass) (1- -ass)) (list (1- (* -ass 0.1)) (1- -ass))
  595.               col (list (1- (* -ass 0.1))   (1- -ass)) (list (1- (* -ass 0.1)) (1- (* -ass 0.1))))

  597.         (list "_tan"
  598.               col (list -ass ass) (list ass ass)
  599.               col (list (1- -ass) (1+ ass)) (list (1+ ass) (1+ ass))
  600.               col (list -ass 0.)  (list (* -ass 0.86) (* ass 0.5))
  601.               col (list (* -ass 0.86) (* ass 0.5)) (list (* -ass 0.5) (* ass 0.86))
  602.               col (list (* -ass 0.5) (* ass 0.86)) (list 0. ass)
  603.               col (list 0. ass) (list  (* ass 0.5) (* ass 0.86))
  604.               col (list (* ass 0.5)  (* ass 0.86)) (list (* ass 0.86) (* ass 0.5))
  605.               col (list (* ass 0.86)  (* ass 0.5)) (list ass 0.)
  606.               col (list ass 0.) (list (* ass 0.86) (* -ass 0.5))
  607.               col (list (* ass 0.86) (* -ass 0.5)) (list (* ass 0.5) (* -ass 0.86))
  608.               col (list (* ass 0.5) (* -ass 0.86)) (list 0. -ass)
  609.               col (list 0. -ass)(list (* -ass 0.5) (* -ass 0.86))
  610.               col (list (* -ass 0.5)(* -ass 0.86)) (list (* -ass 0.86) (* -ass 0.5))
  611.               col (list (* -ass 0.86)(* -ass 0.5)) (list -ass 0.))

  613.         (list "_per"
  614.               col (list -ass -ass) (list -ass ass)
  615.               col (list (1- -ass)  (1- -ass)) (list (1- -ass) (1+ ass))
  616.               col (list ass -ass)  (list -ass -ass)
  617.               col (list (1+ ass)   (1- -ass)) (list (1- -ass) (1- -ass))
  618.               col (list -ass 0.)   (list 0. 0.)
  619.               col (list -ass -1.)  (list 0. -1.)
  620.               col (list 0. 0.)     (list 0. -ass)
  621.               col (list -1. 0.)    (list -1. -ass))

  623.         (list "_nea"
  624.               col (list -ass -ass) (list ass ass)
  625.               col (list -ass ass)  (list ass ass)
  626.               col (list (1- -ass)  (1+ ass)) (list (1+ ass) (1+ ass))
  627.               col (list -ass ass)  (list ass -ass)
  628.               col (list ass -ass)  (list -ass -ass)
  629.               col (list (1+ ass) (1- -ass)) (list (1- -ass) (1- -ass)))

  631.         (list "_app"
  632.               col (list -ass -ass) (list ass ass)
  633.               col (list ass -ass)  (list -ass ass)
  634.               col (list -ass -ass) (list -ass ass)
  635.               col (list (1- -ass)  (1- -ass)) (list (1- -ass) (1+ ass))
  636.               col (list -ass ass)  (list ass ass)
  637.               col (list (1- -ass)  (1+ ass))  (list (1+ ass) (1+ ass))
  638.               col (list ass ass)   (list ass -ass)
  639.               col (list (1+ ass)   (1+ ass))  (list (1+ ass) (1- -ass))
  640.               col (list ass -ass)  (list -ass -ass)
  641.               col (list (1+ ass)   (1- -ass)) (list (1- -ass) (1- -ass)))))


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

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

  648.   (mapcar 'set '(*dyniCols *dynoCols *dyniCol *dynoCol  *dynilay
  649.                  *dynolay  *dynilin  *dynolin *dyniwgt  *dynowgt) *DynOffDefaults*)         
  650.   
  651.   (defun mklst (key lst)
  652.     (start_list key) (mapcar 'add_list lst) (end_list))

  654.   (defun img (key col)   
  655.     (start_image key)
  656.     (fill_image 0 0 (dimx_tile key) (dimy_tile key) col)
  657.     (end_image))

  659.   (setq doc  (cond (doc) ((vla-get-ActiveDocument
  660.                             (vlax-get-acad-object))))
  661.         lays (vla-get-layers doc))

  663.   (defun layCol (lay)
  664.     (vla-get-color (vla-item lays lay)))

  666.   (setq bsCol
  667.     (cond (  (vl-position (setq bsCol (vla-get-Color obj)) '(256 0))
  668.              (setq bsflag t)
  669.              (layCol (vla-get-Layer obj)))

  671.           (bsCol)))  

  673.   (defun mk_arc nil
  674.     (vec_arc (if (= "1" *dyniCols)
  675.                (if bsFlag
  676.                  (laycol
  677.                    (if (eq "*Source*" *dynilay)
  678.                      (vla-get-layer obj) *dynilay)) bsCol)
  679.                (if (= 256 *dyniCol)
  680.                  (if (eq "*Source*" *dynilay) bsCol
  681.                    (laycol *dynilay))
  682.                  *dyniCol))

  684.              bsCol

  686.              (if (= "1" *dynoCols)
  687.                (if bsFlag
  688.                  (laycol
  689.                    (if (eq "*Source*" *dynolay)
  690.                      (vla-get-layer obj) *dynolay)) bsCol)
  691.                (if (= 256 *dynoCol)
  692.                  (if (eq "*Source*" *dynolay) bsCol
  693.                    (laycol *dynolay))
  694.                  *dynoCol))))
  695.   
  696.   (cond (  (<= (setq dcTag (load_dialog fname)) 0)
  697.            (princ "\nDialog File not Found."))

  699.         (  (not (new_dialog "dsett" dcTag))
  700.            (princ "\nSettings Dialog could not be Loaded."))

  702.         (t
  703.            (vlax-for lay (vla-get-layers doc)
  704.              (setq lLay (cons (vla-get-Name lay) lLay)))
  705.            (setq lLay (cons "*Source*" (acad_strlsort lLay)))

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

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

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

  719.            (mapcar 'set_tile '("ilay" "olay" "ilin" "olin" "ilw" "olw")
  720.                    (mapcar 'itoa
  721.                            (mapcar 'vl-position
  722.                                    (list *dyniLay *dynoLay *dyniLin *dynoLin *dyniWgt *dynoWgt)
  723.                                    (list   lLay     lLay      lLin     lLin    lWgt     lWgt))))

  725.            (set_tile "icols" *dyniCols)
  726.            (set_tile "ocols" *dynoCols)

  728.            (set_tile "dtitle" dcTitle)
  729.          
  730.            (mode_tile "icol" (atoi (get_tile "icols")))
  731.            (mode_tile "ocol" (atoi (get_tile "ocols")))

  733.            (logo)
  734.            (mk_arc)
  735.            (mapcar 'img '("icol" "ocol") (list *dyniCol *dynoCol))

  737.            (action_tile "ilay"
  738.              (vl-prin1-to-string
  739.                (quote
  740.                  (progn
  741.                    (setq *dynilay (nth (atoi $value) lLay)) (mk_arc)))))

  743.            (action_tile "olay"
  744.              (vl-prin1-to-string
  745.                (quote
  746.                  (progn
  747.                    (setq *dynolay (nth (atoi $value) lLay)) (mk_arc)))))

  749.            (action_tile "ilin"
  750.              (vl-prin1-to-string
  751.                (quote
  752.                  (progn
  753.                    (setq *dyniLin (nth (atoi $value) lLin))))))

  755.            (action_tile "olin"
  756.              (vl-prin1-to-string
  757.                (quote
  758.                  (progn
  759.                    (setq *dynoLin (nth (atoi $value) lLin))))))

  761.            (action_tile "ilw"
  762.              (vl-prin1-to-string
  763.                (quote
  764.                  (progn
  765.                    (setq *dyniWgt (nth (atoi $value) lWgt))))))

  767.            (action_tile "olw"
  768.              (vl-prin1-to-string
  769.                (quote
  770.                  (progn
  771.                    (setq *dynoWgt (nth (atoi $value) lWgt))))))

  773.            (action_tile "icol"
  774.              (vl-prin1-to-string
  775.                (quote
  776.                  (progn
  777.                    (setq *dyniCol (cond ((acad_colordlg *dyniCol)) (*dyniCol)))
  778.                    (img "icol" *dyniCol)
  779.                    (mk_arc)))))
  780.          
  781.            (action_tile "ocol"
  782.              (vl-prin1-to-string
  783.                (quote
  784.                  (progn
  785.                    (setq *dynoCol (cond ((acad_colordlg *dynoCol)) (*dynoCol)))
  786.                    (img "ocol" *dynoCol)
  787.                    (mk_arc)))))

  789.            (action_tile "icols"
  790.              (vl-prin1-to-string
  791.                (quote
  792.                  (progn
  793.                    (mode_tile "icol" (atoi (setq *dyniCols $value)))
  794.                    (mk_arc)))))

  796.            (action_tile "ocols"
  797.              (vl-prin1-to-string
  798.                (quote
  799.                  (progn
  800.                    (mode_tile "ocol" (atoi (setq *dynoCols $value)))
  801.                    (mk_arc)))))
  802.                   
  803.            (action_tile "accept"
  804.              (vl-prin1-to-string
  805.                (quote
  806.                  (progn
  807.                    (setq *DynOffDefaults*
  808.                           (list *dyniCols *dynoCols *dyniCol  *dynoCol  *dynilay
  809.                                 *dynolay  *dynilin  *dynolin  *dyniwgt  *dynowgt))
  810.                    (done_dialog)))))
  811.                   
  812.            (action_tile "cancel" "(done_dialog)")

  814.            (start_dialog)
  815.            (unload_dialog dcTag))))


  818. (defun DC_Write (fname / wPath ofile)

  820.   (if (not (findfile fname))
  821.     (if (setq wPath (findfile "ACAD.PAT"))
  822.       (progn
  823.         (setq wPath (vl-filename-directory wPath))
  824.         (or (eq "\" (substr wPath (strlen wPath)))
  825.             (setq wPath (strcat wPath "\")))
  826.         
  827.         (setq ofile (open (strcat wPath fname) "w"))
  828.         
  829.         (foreach str
  830.                  
  831.           '(
  832.             "//-------------------=={ Dynamic Offset }==-------------------//"
  833.             "//                                                            //"
  834.             "//  DynOff.dcl for use in conjunction with DynOff.lsp         //"
  835.             "//------------------------------------------------------------//"
  836.             "//  Author: Lee Mac, Copyright ?2009 - [url=http://www.lee-mac.com]www.lee-mac.com[/url]       //"
  837.             "//------------------------------------------------------------//"
  838.             ""
  839.             "// Sub-Assembly Definitions"
  840.             ""
  841.             "pop : popup_list   { fixed_width = false; alignment = centered; }"
  842.             "col : image_button { alignment = centered; height = 1.5; width = 4.0;"
  843.             "                     fixed_width = true; fixed_height = true; color = 2; }"
  844.             ""
  845.             "// Main Dialog"
  846.             ""
  847.             "dsett : dialog { key = "dtitle";"
  848.             "  spacer;"
  849.             "  : row {"
  850.             "    : boxed_column { label = "Offset Preview"; fixed_width = false; "
  851.             "      : boxed_row { label = "Outer Colour"; fixed_width = true;"
  852.             "                    alignment = centered;"
  853.             "        spacer;"
  854.             "        : col  { key = "ocol"; }"
  855.             "        spacer;"
  856.             "        : toggle { key = "ocols"; label = "Source"; }"
  857.             "        spacer;"
  858.             "      } // boxed_row"
  859.             "      : image { key = "dimage"; alignment = centered;"
  860.             "                width = 24.64 ; fixed_width  = true;"
  861.             "                height = 11.39; fixed_height = true; color = -2; }"
  862.             "      : boxed_row { label = "Inner Colour"; fixed_width = true;"
  863.             "                    alignment = centered;"
  864.             "        spacer;"
  865.             "        : col  { key = "icol"; }"
  866.             "        spacer;"
  867.             "        : toggle { key = "icols"; label = "Source"; }"
  868.             "        spacer;"
  869.             "      } // boxed_row"
  870.             "    } // column"
  871.             "    : column { "
  872.             "      : boxed_column { label = "Outer Offset";"
  873.             "        : pop { label = "Layer:"; key = "olay"; }"
  874.             "        : pop { label = "Linetype:"; key = "olin"; }"
  875.             "        : pop { label = "Lineweight:"; key = "olw" ; }"
  876.             "        spacer;"
  877.             "      } // boxed_column"
  878.             "      spacer;"
  879.             "      : boxed_column { label = "Inner Offset";"
  880.             "        : pop { label = "Layer:"; key = "ilay"; }"
  881.             "        : pop { label = "Linetype:"; key = "ilin"; }"
  882.             "        : pop { label = "Lineweight:"; key = "ilw" ; }"
  883.             "        spacer;"
  884.             "      } // boxed_column"
  885.             "    } // column"
  886.             "  } // row"
  887.             "  spacer;"
  888.             "  : row {"
  889.             "    : spacer { width = 19.33; height = 3.18; }"
  890.             "    ok_cancel;"
  891.             "    spacer;"
  892.             "    : image { key = "logo" ; alignment = centered;"
  893.             "              width = 19.33; fixed_width  = true;"
  894.             "              height = 3.18; fixed_height = true; color = -15; }"
  895.             "  } // row"
  896.             "} // dialog"
  897.             ""
  898.             "//------------------------------------------------------------//"
  899.             "//                         End of File                        //"
  900.             "//------------------------------------------------------------//"
  901.             )

  903.           (write-line str ofile))
  904.         (close ofile)
  905.       t)
  906.   nil)
  907. t))

  909. (defun logo nil

  911.   (start_image "logo")

  913.   (mapcar 'vector_image
  914.          
  915.           '(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
  916.             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
  917.             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
  918.             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
  919.             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
  920.             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
  921.             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
  922.             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
  923.             88 86 86 94 93 92 92 92 92 92 92 93 113 113 112 111 109 108 107 105 109 111
  924.             112 113 113 113 96 94 93 93 93 93 93 94 95 96 97 98 99 101 102 104 105 107
  925.             108 104 103 101 100 100 99 99 98 98 98 98 98 99 100 102 103 104 101 99 98
  926.             96 94 105 107 108 109 110 112 113 114 114 114 112 111 110 108 107 105 103 102)

  928.           '(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
  929.             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
  930.             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
  931.             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
  932.             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
  933.             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
  934.             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
  935.             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
  936.             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
  937.             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)

  939.           '(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
  940.             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
  941.             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
  942.             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
  943.             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
  944.             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
  945.             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
  946.             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
  947.             92 92 93 93 113 112 111 109 108 107 105 104 111 112 113 113 113 113 94 93 93
  948.             93 93 93 94 95 96 97 98 99 101 102 104 105 107 108 109 103 101 100 100 99 99
  949.             98 98 98 98 98 99 100 102 103 104 105 99 98 96 94 96 107 108 109 110 112 113
  950.             114 114 114 112 111 110 108 107 105 103 102 101)

  952.           '(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
  953.             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
  954.             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
  955.             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
  956.             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
  957.             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
  958.             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
  959.             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
  960.             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
  961.             3 5 5 6 6 6 7 7 7 7 6 5 4 4 3 3 3 3 3 3)

  963.           '(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
  964.             14 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166
  965.             166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166
  966.             166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166
  967.             166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166
  968.             166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166
  969.             166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166
  970.             166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166
  971.             166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166
  972.             166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166
  973.             166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166
  974.             166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166
  975.             166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166
  976.             166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166
  977.             166 166 166 166))

  979.   (end_image))

  981. (defun vec_arc (iCol bCol oCol)

  983.   (start_image "dimage")

  985.   (mapcar 'vector_image

  987.           '(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)
  988.           '(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)
  989.           '(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)
  990.           '(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)

  992.           (list iCol iCol iCol iCol iCol iCol iCol iCol iCol iCol iCol iCol iCol iCol iCol
  993.                 iCol iCol iCol iCol iCol iCol iCol iCol iCol iCol iCol iCol iCol))

  995.   (mapcar 'vector_image

  997.           '(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
  998.             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
  999.             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)

  1001.           '(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
  1002.             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
  1003.             88 85 82 117 114 111 107 104 101 97 94 91 88 85 82 146 143 139 135 132 128 125 121
  1004.             146 143 139 135 132 128 125 121)

  1006.           '(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
  1007.             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
  1008.             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)

  1010.           '(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
  1011.             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
  1012.             85 82 80 114 111 107 104 101 97 94 91 88 85 82 80 143 139 135 132 128 125 121 117 143
  1013.             139 135 132 128 125 121 117)

  1015.           (list bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol
  1016.                 bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol
  1017.                 bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol
  1018.                 bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol
  1019.                 bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol
  1020.                 bCol bCol bCol bCol bCol))

  1022.   (mapcar 'vector_image

  1024.           '(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
  1025.             146 146 146 146 145 144 144 143 142 141 139 138 137 135 133 131 129 127 125 123 120
  1026.             118 115 112 109)

  1028.           '(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
  1029.             129 124 120 115 111 107 103 98 94 90 86 82 78 74 70 67 63 59 56 52 49)

  1031.           '(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
  1032.             146 146 145 144 144 143 142 141 139 138 137 135 133 131 129 127 125 123 120 118 115 112 109 106)

  1034.           '(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
  1035.             124 120 115 111 107 103 98 94 90 86 82 78 74 70 67 63 59 56 52 49 46)

  1037.           (list oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol
  1038.                 oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol
  1039.                 oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol
  1040.                 oCol oCol oCol oCol oCol))

  1042.   (end_image))


  1045. (vl-load-com)
  1046. (princ "\n:: DynOff.lsp | Version 2.1 | ?Lee Mac 2009 [url=http://www.lee-mac.com]www.lee-mac.com[/url] ::")
  1047. (princ "\n:: Type "DynOff" to Invoke ::")
  1048. (princ)

  1050. ;;-------------------------------------------------------------------------------;;
  1051. ;;                                 End of File                                   ;;
  1052. ;;-------------------------------------------------------------------------------;;
"觉得好，就打赏"
打赏
共1人打赏
回复

使用道具 举报

mashanjie
发表于 2023-8-22 17:05:49 | 显示全部楼层
应该来个像系统偏移那样，输入命令以后直接可以输入数值然后点一条线，这样才最方便，省去往另一边偏移的步骤，这个并不能起到啥简化，感觉使用这个比用系统的手动还来得慢些。
回复 支持 反对

使用道具 举报

alexmai
 楼主| 发表于 2021-5-16 11:18:34 | 显示全部楼层
sunny_8848 发表于 2021-5-16 09:46
cad2010用不了，提示输入的字符串太长。楼主能否上传文件

把开头的  [code="lisp] 和结尾的 [/code] 删掉试试
回复 支持 反对

使用道具 举报

alexmai
 楼主| 发表于 2021-5-23 23:46:11 | 显示全部楼层
sunny_8848 发表于 2021-5-18 13:24
还是不行：错误: 参数类型错误: FILE nil



下载这个试试，如果都不行，估计你使用的插件与它有冲突

本帖子中包含更多资源

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

x
回复 支持 反对

使用道具 举报

tryhi
发表于 2021-5-14 17:47:19 | 显示全部楼层
不做个中文说明么？
回复 支持 反对

使用道具 举报

烟盒迷唇
发表于 2021-5-15 11:32:57 | 显示全部楼层
就是复制粘贴就完了
回复 支持 反对

使用道具 举报

G〆h
发表于 2021-5-15 14:26:03 | 显示全部楼层

RE: 发一个双向偏移 lsp

本帖最后由 G〆h 于 2021-5-15 14:27 编辑

补个视频教程，详见 http://www.lee-mac.com/programs.html

本帖子中包含更多资源

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

x
回复 支持 反对

使用道具 举报

sunny_8848
发表于 2021-5-16 09:46:09 | 显示全部楼层
cad2010用不了，提示输入的字符串太长。楼主能否上传文件
回复 支持 反对

使用道具 举报

sunny_8848
发表于 2021-5-18 13:24:04 | 显示全部楼层
还是不行：错误: 参数类型错误: FILE nil
回复 支持 反对

使用道具 举报

sunny_8848
发表于 2021-5-25 16:22:17 | 显示全部楼层
alexmai 发表于 2021-5-23 23:46
下载这个试试，如果都不行，估计你使用的插件与它有冲突

多谢帮忙，很好用
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-11-17 04:43 , Processed in 0.229966 second(s), 28 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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