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

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 应用篇 › AutoCAD工具插件 › Lee MAC 李·麦克 动态偏移插件，面板汉化增加提示
12345下一页
返回列表 发新帖
查看: 10573|回复: 43

Lee MAC 李·麦克 动态偏移插件，面板汉化增加提示

    [复制链接]
飒路紫
发表于 2020-2-20 17:05:17 | 显示全部楼层 |阅读模式
本帖最后由 飒路紫 于 2020-6-22 00:00 编辑

原版展示：







面板汉化并增加提示按钮：






举例展示（配电箱出线平面图）：




插件, 2020, 平面图, 按钮, 出线

本帖子中包含更多资源

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

x

评分

参与人数 1明经币 +1 收起 理由
USER2128 + 1 赞一个!

查看全部评分

相关帖子
回复

使用道具 举报

daixq021
发表于 2022-6-24 21:15:56 | 显示全部楼层

这个能够帮助汉化和增加功能吗？

本帖最后由 daixq021 于 2022-6-24 21:21 编辑


附图是李·麦克（Lee.Mac）大师的另一个作品。

建议增加的功能：修改属性文字的高度、宽度和角度；
帮助汉化，有愿意付出的吗？

本帖子中包含更多资源

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

x
回复 支持 1 反对 0

使用道具 举报

小毛草
发表于 2022-5-5 09:03:57 | 显示全部楼层
老兄未汉化提示部分内容，帮你汉化了一下！

  2. ;;-----------------------------=={  动态偏移  }==--------------------------------;;
  3. ;;                                                                               ;;
  4. ;;  允许用户通过通过鼠标单击指定偏移距离，或在命令行。命令行默认值将记住最后输入 ;;
  5. ;;  的偏移量由用户提供。                                                         ;;
  6. ;;                                                                               ;;
  7. ;;  保留对象捕捉功能，屏幕上的偏移距离为由偏移选择集中最近的对象确定。           ;;
  8. ;;                                                                               ;;
  9. ;;  用户可以使用+/-键更改偏移量，或者，或者，用户可以按“N”并指定偏移量直接的。   ;;
  10. ;;                                                                               ;;
  11. ;;  用户也可以在对象偏移期间按“S”键来更改图层，生成的偏移对象的线型、线宽和颜色。;;
  12. ;;                                                                               ;;
  13. ;;  通过按TAB键，用户可以在两侧偏移或只是物体的一面。                            ;;
  14. ;;                                                                               ;;
  15. ;;  保留或删除原始对象的切换可以通过按“D”。用户可以按住SHIFT键以突出显示偏移实体 ;;
  16. ;;                                                                               ;;
  17. ;;-------------------------------------------------------------------------------;;

  19. (defun c:EG (/    ;; ---====={ 局部函数 }=====---

  21.                        *error* clean DynOff_Sub txt2num

  23.                       ;; ---====={ 局部变量 }=====---

  25.                        CODE CPT
  26.                        DATA DCFNAME DCTITLE DOC DRFT
  27.                        E1 E2 ELST ENTLST ET EXFLAG
  28.                        GR
  29.                        I IOBJ
  30.                        K MSG
  31.                        OBJ OBJLST OFF OOBJ OPT OSGRV OSTR
  32.                        PROP
  33.                        RLST
  34.                        SS
  35.                        X id

  37.                       ;; ---====={ 全局变量 }=====---

  39.                        ; *dynOff  ~  默认偏移距离
  40.                        ; *dynNum  ~  默认偏移号
  41.                        ; *dynFac  ~  默认偏移因子
  42.                        ; *dynMod  ~  默认偏移模式（位编码）
  43.                        ; *dynDel  ~  默认删除选项

  45.                        ; *DynOffDefaults*  ~ 默认对话框设置

  47.                  )

  49.   (setq dcfname "LMAC_DynOff_V2.1.dcl"
  50.         dcTitle "动态偏移设置")
  51.   
  52.   (or *dynOff (setq *dynOff 10.0))
  53.   (or *dynNum (setq *dynNum  1  ))
  54.   (or *dynFac (setq *dynFac  1.0))
  55.   (or *dynMod (setq *dynMod  2  ))
  56.   (or *dynDel (setq *dynDel  nil))

  58.   (or *DynOffDefaults*
  59.       (setq *DynOffDefaults* '("1" "1" 256 256 "*Source*" "*Source*"   ;; 图层
  60.                                                "ByLayer"  "ByLayer"    ;; 线型
  61.                                                "ByLayer"  "ByLayer"))) ;; 线宽

  63.   (setq k -1)
  64.   (setq *DynOffDefaults*
  65.     (mapcar
  66.       (function
  67.         (lambda (value)
  68.           (cond (  (<= 4 (setq k (1+ k)) 5)
  69.                    (if (tblsearch "LAYER" value) value "*Source*"))

  71.                 (  (<= 6 k 7)
  72.                    (if (tblsearch "LTYPE" value) value "ByLayer"))

  74.                 (t value)))) *DynOffDefaults*))

  76.   (setq dynMode (nth *dynMod '(1 2 3)))
  77.   

  79.   ;; --=={ 错误处理程序 }==--

  81.   (defun *error* (err)
  82.     (setq eLst (clean eLst))
  83.     (and doc (vla-EndUndoMark doc))
  84.     (or (wcmatch (strcase err) "*BREAK,*CANCEL*,*EXIT*")
  85.         (princ (strcat "\n** 错误: " err " **"))) (redraw) (princ))

  87.   ;;-------------------------------------------------------------------------------;;
  88.   

  90.   (defun clean (lst / lst)
  91.     (cond (lst (mapcar
  92.                  (function
  93.                    (lambda (object)
  94.                      (if (not (vlax-erased-p object))
  95.                        (vla-delete object)))) lst)
  96.            (setq lst nil))))


  99.   (defun DynOff_Sub (obj off / rLst oObj iObj i)
  100.    
  101.     (if (vl-catch-all-error-p
  102.           (vl-catch-all-apply
  103.             (function
  104.               (lambda ( )               
  105.                 (if (= 1 (logand 1 dynmode))
  106.                   (progn
  107.                     (setq i  3 oObj (vlax-invoke obj 'Offset off))
  108.                     (if (or (and et (not (acet-sys-shift-down))) (not et)) ;; -- Mod 2.0 --
  109.                       (foreach prop '(color layer linetype lineweight)
  110.                         (mapcar
  111.                           (function
  112.                             (lambda (object / val)
  113.                               (if (or (vl-position (setq val (nth i *DynOffDefaults*)) '(256 "*Source*"))
  114.                                       (and (= i 3) (= "1" (cadr *DynOffDefaults*))))
  115.                                 (vlax-put-property object prop (vlax-get-property obj prop))
  116.                                 (vlax-put-property object prop (if (< i 9) val (eval (read (strcat "acLnWt" val)))))))) oObj)
  117.                         (setq i (+ i 2))))))
  118.                
  119.                 (if (= 2 (logand 2 dynmode))
  120.                   (progn
  121.                     (setq i 2 iObj (vlax-invoke obj 'Offset (- off)))
  122.                     (if (or (and et (not (acet-sys-shift-down))) (not et)) ;; -- Mod 2.0 --
  123.                       (foreach prop '(color layer linetype lineweight)
  124.                         (mapcar
  125.                           (function
  126.                             (lambda (object / val)
  127.                               (if (or (vl-position (setq val (nth i *DynOffDefaults*)) '(256 "*Source*"))
  128.                                       (and (= i 2) (= "1" (car *DynOffDefaults*))))
  129.                                 (vlax-put-property object prop (vlax-get-property obj prop))
  130.                                 (vlax-put-property object prop (if (< i 8) val (eval (read (strcat "acLnWt" val)))))))) iObj)
  131.                         (setq i (+ i 2))))))
  132.                
  133.                 (setq rLst (append oObj iObj))))))
  134.       
  135.           (clean (append oObj iObj))
  136.       
  137.       rLst))
  138.   

  140.   (defun txt2num  (txt)
  141.     (cond ((distof txt 5)) ((distof txt 2)) ((distof txt 1)) ((distof txt 4)) ((distof txt 3))))

  143.   (defun GetOffLen (num fac / result)
  144.     (setq result 0.)
  145.     (while (not (minusp (setq num (1- num))))
  146.       (setq result (+ result (expt fac num))))
  147.    
  148.     result)

  150.   (setq et (not (vl-catch-all-error-p
  151.                   (vl-catch-all-apply (function (lambda nil (acet-sys-shift-down)))))))
  152.   (or et (princ "\n未加载快速工具-换档选项不可用"))
  153. ;;;  (or et (princ "\nExpress Tools not Loaded - Shift option not Available."))
  154.   

  156.   (setq doc   (vla-get-ActiveDocument
  157.                 (vlax-get-acad-object))
  158.         
  159.         drft  (vla-get-drafting
  160.                 (vla-get-preferences
  161.                   (vlax-get-acad-object)))
  162.         
  163.         osGrv (osmode-grvecs-lst
  164.                 (vla-get-AutoSnapMarkerColor drft)
  165.                   (vla-get-AutoSnapMarkerSize drft)))
  166.   

  168.   (cond (  (not (DC_Write dcfname))
  169.            (princ "\n无法写入DCL文件"))
  170. ;;;           (princ "\nDCL File could not be Written."))

  172.         (t
  173.   
  174.           (if (setq ss (ssget "_:L" '((0 . "ARC,CIRCLE,ELLIPSE,*LINE"))))
  175.             (progn
  176.               
  177.               (vla-StartUndoMark doc)
  178.               (setq ObjLst (mapcar 'vlax-ename->vla-object
  179.                              (setq EntLst (vl-remove-if 'listp
  180.                                             (mapcar 'cadr (ssnamex ss))))) oStr "")
  181.               
  182.               (setq msg '(strcat "\n[TAB] 模式的切换\, [+/-] 增减偏移数量 [N]自定义偏移数量, 偏移 [F]因子"
  183.                                  "\n[C]中心偏移, [S]设置"
  184.                           (if et ", [SHIFT] 显示偏移数量" "") ", [D]删除原对象 = "
  185.                           (if *dynDel "Yes" "No")
  186.                                  "\n指定偏移量 <" (vl-princ-to-string *dynOff) "> : "))
  187.               (princ (eval msg))
  188.               
  189.               (while
  190.                 (progn
  191.                   (setq gr (grread 't 15 0) code (car gr) data (cadr gr))
  192.                   (redraw)
  193.                   
  194.                   (cond (  (and (= 5 code) (listp data))
  195.                            
  196.                            (setq EntLst (vl-sort EntLst
  197.                                           (function
  198.                                             (lambda (a b)
  199.                                               (< (distance data (vlax-curve-getClosestPointto a data))
  200.                                                  (distance data (vlax-curve-getClosestPointto b data)))))))
  201.                              
  202.                            (setq cPt (vlax-curve-getClosestPointto (car entLst) data)

  204.                                  off (/ (distance cPt data) (GetOffLen *dynNum *dynFac)))  ;; -- Mod 2.0 --
  205.                         
  206.                            (grdraw cPt data 3 1)

  208.                            (setq eLst (clean eLst))

  210.                            (if (and (< 0 (getvar "OSMODE") 16384)
  211.                                     (setq oPt (vl-remove-if (function null)
  212.                                                 (mapcar
  213.                                                   (function
  214.                                                     (lambda (x / o)
  215.                                                       (if (setq o (osnap data x))
  216.                                                         (list (distance data o) o x data)))) (get_osmode)))))
  217.                              
  218.                              (setq oPt (cdar (vl-sort oPt (function (lambda (a b) (< (car a) (car b)))))))
  219.                              (setq oPt nil))

  221.                            (and oPt (OsMark oPt))

  223.                            (foreach obj ObjLst (setq i -1 x 0.)
  224.                              (repeat *dynNum                     
  225.                                (setq eLst
  226.                                  (append eLst (cond ((DynOff_Sub obj
  227.                                                        (* (setq x (+ x (expt *dynFac (setq i (1+ i))))) off))) ((clean eLst)))))))
  228.                         
  229.                            (if (and eLst et (acet-sys-shift-down))
  230.                              (mapcar
  231.                                (function
  232.                                  (lambda (x) (vla-put-color x acBlue))) eLst)) ;; -- Mod 2.0 --

  234.                          t)

  236.                         (  (= code 25) nil)
  237.                         
  238.                         (  (and (= code 3) (listp data))

  240.                            (clean eLst)
  241.                         
  242.                            (setq *dynOff off)
  243.                            (setq cPt (vlax-curve-getClosestPointto (car entLst) data))
  244.                         
  245.                            (if (and (< 0 (getvar "OSMODE") 16384)
  246.                                     (setq oPt (vl-remove-if (function null)
  247.                                                 (mapcar
  248.                                                   (function
  249.                                                     (lambda (x / o)
  250.                                                       (if (setq o (osnap data x))
  251.                                                         (list (distance data o) o x data)))) (get_osmode)))))
  252.                              
  253.                              (setq oPt     (cdar (vl-sort oPt
  254.                                                    (function (lambda (a b) (< (car a) (car b))))))
  255.                                    
  256.                                    data    (osnap (caddr oPt) (cadr oPt))

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

  260.                                               (GetOffLen *dynNum *dynFac)))   ;; -- Mod 1.9 --
  261.                            
  262.                              (setq oPt nil))

  264.                            (foreach obj ObjLst (setq i -1 x 0.)
  265.                              (repeat *dynNum
  266.                                (setq eLst
  267.                                  (append eLst (cond ((DynOff_Sub obj
  268.                                                        (* (setq x (+ x (expt *dynFac (setq i (1+ i))))) *dynoff))) ((clean eLst))))))) nil)                  
  269.                         
  270.                         (  (= code 2)

  272.                            (cond (  (or (= 46 data) (< 47 data 58))
  273.                                     (setq oStr (strcat oStr (chr data)))
  274.                                     (princ (chr data)))

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

  278.                                     (while
  279.                                       (progn
  280.                                         (setq e1 (entsel "\n选择第一个对象: "))

  282.                                         (cond (  (vl-consp e1)

  284.                                                  (if (wcmatch (cdr (assoc 0 (entget (car e1)))) "ARC,CIRCLE,ELLIPSE,*LINE")
  285.                                                    
  286.                                                    (while
  287.                                                      (progn
  288.                                                        (setq e2 (car (entsel "\n选择第二个对象: ")))

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

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

  295.                                                                     (setq p1 (vlax-curve-getClosestPointto (car e1) (cadr e1))
  296.                                                                           p2 (vlax-curve-getClosestPointto e2 p1))

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

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

  302.                                                                     (foreach obj ObjLst (setq i -1 x 0.)
  303.                                                                       (repeat *dynNum
  304.                                                                         (setq eLst
  305.                                                                           (append eLst

  307.                                                                             (cond (  (DynOff_Sub obj

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

  311.                                                                                   (  (clean eLst)))))))

  313.                                                                     (setq exFlag nil))

  315.                                                                   (princ "\n选择的对象无效.")))

  317.                                                              (  (setq exFlag t) nil))))
  318.                                                    
  319.                                                    (princ "\n选择的对象无效.")))

  321.                                               (  (setq exFlag t) nil))))

  323.                                     exFlag)                                                                    

  325.                                  (  (vl-position data '(43 61))
  326.                                     (setq *dynNum (1+ *dynNum)))

  328.                                  (  (vl-position data '(68 100))
  329.                                     (setq *dynDel (not *dynDel))
  330.                                  
  331.                                     (princ (strcat "\n原始对象 "
  332.                                                    (if *dynDel "will" "will not") " be Deleted" (eval msg))))

  334.                                  (  (vl-position data '(78 110))
  335.                                     (initget 6)
  336.                                     (setq *dynNum
  337.                                           
  338.                                       (cond ((getint (strcat "\n指定偏移的数量 <" (itoa *dynNum) "> : ")))
  339.                                             
  340.                                             (*dynNum)))
  341.                                  
  342.                                     (princ (eval msg)))

  344.                                  (  (= data 6)
  345.                                     (cond (  (< 0 (getvar "OSMODE") 16384)
  346.                                              (setvar "OSMODE" (+ 16384 (getvar "OSMODE")))
  347.                                              (princ "\n<Osnap off>"))
  348.                                           
  349.                                           (t (setvar "OSMODE" (- (getvar "OSMODE") 16384))
  350.                                              (princ "\n<Osnap on>")))
  351.                                  
  352.                                     (princ (eval msg)))

  354.                                  (  (= data 9)

  356.                                     (setq dynmode

  358.                                       (cond (  (= 2 *dynMod)
  359.                                                (setq *dynMod 0) 1)

  361.                                             (  (nth (setq *dynMod (1+ *dynMod)) '(1 2 3))))))
  362.                                  
  363.                                  (  (vl-position data '(70 102))
  364.                                     (initget 6)
  365.                                     (setq *DynFac
  366.                                           
  367.                                       (cond ((getreal (strcat "\n指定偏移因子 <" (vl-princ-to-string *dynFac) "> : ")))
  368.                                             
  369.                                             (*dynFac)))

  371.                                     (princ (eval msg)))

  373.                                  (  (vl-position data '(83 115))
  374.                                     (Off_Settings dcfname (vlax-ename->vla-object (car EntLst)))
  375.                                  
  376.                                   t)                           

  378.                                  (  (= data 45)
  379.                                  
  380.                                     (cond (  (= 1 *dynNum)
  381.                                              (princ (strcat "\n已达到最小偏移量." (eval msg))))
  382.                                           
  383.                                           (t (setq *dynNum (1- *dynNum)))))

  385.                                  (  (and (< 0 (strlen oStr)) (= data 8))
  386.                                  
  387.                                     (setq oStr (substr oStr 1 (1- (strlen oStr))))
  388.                                     (princ (vl-list->string '(8 32 8))))

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

  392.                                     (cond (  (zerop (strlen oStr))

  394.                                              (clean eLst)
  395.                                           
  396.                                              (foreach obj ObjLst (setq i -1 x 0.)
  397.                                                (repeat *dynNum
  398.                                                  (setq eLst
  399.                                                    (append eLst
  400.                                                            
  401.                                                      (cond (  (DynOff_Sub obj
  402.                                                                
  403.                                                                 (* (setq x (+ x (expt *dynFac (setq i (1+ i))))) *dynoff)))

  405.                                                            (  (clean eLst))))))) nil)                                    

  407.                                           (  (setq off (txt2num oStr))

  409.                                              (clean eLst)
  410.                                           
  411.                                              (setq *dynOff off)
  412.                                              (foreach obj ObjLst (setq i -1 x 0.)
  413.                                                (repeat *dynNum
  414.                                                  (setq eLst
  415.                                                    (append eLst

  417.                                                      (cond (  (DynOff_Sub obj

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

  421.                                                            (  (clean eLst))))))) nil)

  423.                                           (t (princ "\n输入的偏移量无效.")
  424.                                              (princ (eval msg)) (setq oStr ""))))
  425.                                  (t )))
  426.                         (t ))))

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

  430.               (vla-EndUndoMark doc)))))
  431.   
  432.   (princ))

  434. (defun osMark (o / s)
  435.   (setq s (/ (getvar "VIEWSIZE") (cadr (getvar "SCREENSIZE")))
  436.         o (cons (trans (car o) 1 3) (cdr o)))

  438.   (grvecs (cdr (assoc (cadr o) osGrv))
  439.           (list (list s 0. 0. (caar o))
  440.                 (list 0. s 0. (cadar o))
  441.                 (list 0. 0. s 0.)
  442.                 (list 0. 0. 0. 1.))))

  444. (defun get_osmode nil ; by Evgeniy Elpanov
  445.   (mapcar
  446.     (function cdr)
  447.       (vl-remove-if
  448.         (function (lambda (x) (zerop (logand (getvar "OSMODE") (car x)))))
  449.         '((1    . "_end")
  450.           (2    . "_mid")
  451.           (4    . "_cen")
  452.           (8    . "_nod")
  453.           (16   . "_qua")
  454.           (32   . "_int")
  455.           (64   . "_ins")
  456.           (128  . "_per")
  457.           (256  . "_tan")
  458.           (512  . "_nea")
  459.           (2048 . "_app")))))

  461. (defun osmode-grvecs-lst (col ass / -ASS ASS COL)
  462.    ; By Evgeniy Elpanov (Modified by Lee Mac)
  463.   
  464.   (setq -ass (- ass))
  465.   
  466.   (list (list "_end"
  467.               col (list -ass -ass) (list -ass  ass)
  468.               col (list (1-  -ass) (1- -ass)) (list (1- -ass) (1+  ass))              
  469.               col (list -ass  ass) (list  ass  ass)
  470.               col (list (1-  -ass) (1+  ass)) (list (1+  ass) (1+  ass))              
  471.               col (list  ass  ass) (list  ass -ass)
  472.               col (list (1+   ass) (1+  ass)) (list (1+  ass) (1- -ass))              
  473.               col (list  ass -ass) (list -ass -ass)
  474.               col (list (1+   ass) (1- -ass)) (list (1- -ass) (1- -ass)))
  475.         
  476.         (list "_mid"
  477.               col (list -ass -ass) (list    0. ass)
  478.               col (list (1-  -ass) (1- -ass)) (list 0. (1+  ass))
  479.               col (list    0. ass) (list  ass -ass)
  480.               col (list 0. (1+  ass)) (list (1+  ass) (1- -ass))
  481.               col (list  ass -ass) (list -ass -ass)
  482.               col (list (1+   ass) (1- -ass)) (list (1- -ass) (1- -ass)))
  483.         
  484.         (list "_cen"
  485.               7   (list (* -ass 0.2) 0.)  (list (*  ass 0.2) 0.)
  486.               7   (list  0. (* -ass 0.2)) (list  0.  (*  ass 0.2))
  487.               col (list    -ass   0.)     (list (* -ass 0.86) (* ass  0.5))
  488.               col (list (* -ass 0.86) (* ass  0.5))  (list (* -ass  0.5) (* ass 0.86))
  489.               col (list (* -ass  0.5) (* ass 0.86))  (list 0. ass)
  490.               col (list 0. ass) (list (* ass 0.5)    (* ass 0.86))
  491.               col (list (* ass 0.5)   (* ass 0.86))  (list (* ass 0.86) (* ass 0.5))
  492.               col (list (* ass 0.86)  (* ass 0.5))   (list ass 0.)
  493.               col (list ass 0.) (list (* ass 0.86)   (* -ass 0.5))
  494.               col (list (* ass 0.86)  (* -ass 0.5))  (list (* ass 0.5) (* -ass 0.86))
  495.               col (list (* ass 0.5)   (* -ass 0.86)) (list 0. -ass)
  496.               col (list 0. -ass)(list (* -ass 0.5)   (* -ass 0.86))
  497.               col (list (* -ass 0.5)  (* -ass 0.86)) (list (* -ass 0.86) (* -ass 0.5))
  498.               col (list (* -ass 0.86) (* -ass 0.5))  (list -ass 0.))

  500.         (list "_nod"
  501.               col (list -ass -ass)    (list ass ass)
  502.               col (list -ass ass)     (list ass -ass)
  503.               col (list -ass 0.)      (list (* -ass 0.86) (* ass 0.5))
  504.               col (list (* -ass 0.86) (* ass 0.5))   (list (* -ass 0.5) (* ass 0.86))
  505.               col (list (* -ass 0.5)  (* ass 0.86))  (list 0. ass)
  506.               col (list 0. ass) (list (* ass 0.5)    (* ass 0.86))
  507.               col (list (* ass 0.5)   (* ass 0.86))  (list (* ass 0.86) (* ass 0.5))
  508.               col (list (* ass 0.86)  (* ass 0.5))   (list ass 0.)
  509.               col (list ass 0.) (list (* ass 0.86)   (* -ass 0.5))
  510.               col (list (* ass 0.86)  (* -ass 0.5))  (list (* ass 0.5) (* -ass 0.86))
  511.               col (list (* ass 0.5)   (* -ass 0.86)) (list 0. -ass)
  512.               col (list 0. -ass)(list (* -ass 0.5)   (* -ass 0.86))
  513.               col (list (* -ass 0.5)  (* -ass 0.86)) (list (* -ass 0.86) (* -ass 0.5))
  514.               col (list (* -ass 0.86) (* -ass 0.5))  (list -ass 0.))

  516.         (list "_qua"
  517.               col (list 0. -ass)   (list -ass 0.)
  518.               col (list 0. (1- -ass))   (list (1- -ass) 0.)
  519.               col (list -ass 0.)   (list 0. ass)
  520.               col (list (1- -ass) 0.)   (list 0. (1+ ass))
  521.               col (list 0. ass)    (list ass 0.)
  522.               col (list 0. (1+ ass))    (list (1+ ass) 0.)
  523.               col (list ass 0.)    (list 0. -ass)
  524.               col (list (1+ ass) 0.)    (list 0. (1- -ass)))

  526.         (list "_int"
  527.               col (list -ass -ass) (list ass ass)
  528.               col (list -ass (1+ -ass)) (list ass (1+ ass))
  529.               col (list (1+ -ass) -ass) (list (1+ ass) ass)
  530.               col (list -ass ass)  (list ass -ass)
  531.               col (list -ass (1+ ass))  (list ass (1+ -ass))
  532.               col (list (1+ -ass) ass)  (list (1+ ass) -ass))

  534.         (list "_ins"
  535.               col (list (* -ass 0.1) (* -ass 0.1)) (list -ass (* -ass 0.1))
  536.               col (list -ass (* -ass 0.1)) (list -ass ass)
  537.               col (list -ass ass) (list (* ass 0.1) ass)
  538.               col (list (* ass 0.1) ass)   (list (* ass 0.1) (* ass 0.1))
  539.               col (list (* ass 0.1) (* ass 0.1))   (list ass (* ass 0.1))
  540.               col (list ass (* ass 0.1))   (list ass -ass)
  541.               col (list ass -ass) (list (* -ass 0.1) -ass)
  542.               col (list (* -ass 0.1) -ass) (list (* -ass 0.1) (* -ass 0.1))
  543.               col (list (1- (* -ass 0.1)) (1- (* -ass 0.1))) (list (1- -ass) (1- (* -ass 0.1)))
  544.               col (list (1- -ass) (1- (* -ass 0.1))) (list (1- -ass) (1+ ass))
  545.               col (list (1- -ass) (1+ ass)) (list (1+ (* ass 0.1)) (1+ ass))
  546.               col (list (1+ (* ass 0.1)) (1+ ass)) (list (1+ (* ass 0.1)) (1+ (* ass 0.1)))
  547.               col (list (1+ (* ass 0.1)) (1+ (* ass 0.1))) (list (1+ ass) (1+ (* ass 0.1)))
  548.               col (list (1+ ass) (1+ (* ass 0.1)))   (list (1+ ass) (1- -ass))
  549.               col (list (1+ ass) (1- -ass)) (list (1- (* -ass 0.1)) (1- -ass))
  550.               col (list (1- (* -ass 0.1))   (1- -ass)) (list (1- (* -ass 0.1)) (1- (* -ass 0.1))))

  552.         (list "_tan"
  553.               col (list -ass ass) (list ass ass)
  554.               col (list (1- -ass) (1+ ass)) (list (1+ ass) (1+ ass))
  555.               col (list -ass 0.)  (list (* -ass 0.86) (* ass 0.5))
  556.               col (list (* -ass 0.86) (* ass 0.5)) (list (* -ass 0.5) (* ass 0.86))
  557.               col (list (* -ass 0.5) (* ass 0.86)) (list 0. ass)
  558.               col (list 0. ass) (list  (* ass 0.5) (* ass 0.86))
  559.               col (list (* ass 0.5)  (* ass 0.86)) (list (* ass 0.86) (* ass 0.5))
  560.               col (list (* ass 0.86)  (* ass 0.5)) (list ass 0.)
  561.               col (list ass 0.) (list (* ass 0.86) (* -ass 0.5))
  562.               col (list (* ass 0.86) (* -ass 0.5)) (list (* ass 0.5) (* -ass 0.86))
  563.               col (list (* ass 0.5) (* -ass 0.86)) (list 0. -ass)
  564.               col (list 0. -ass)(list (* -ass 0.5) (* -ass 0.86))
  565.               col (list (* -ass 0.5)(* -ass 0.86)) (list (* -ass 0.86) (* -ass 0.5))
  566.               col (list (* -ass 0.86)(* -ass 0.5)) (list -ass 0.))

  568.         (list "_per"
  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 0.)   (list 0. 0.)
  574.               col (list -ass -1.)  (list 0. -1.)
  575.               col (list 0. 0.)     (list 0. -ass)
  576.               col (list -1. 0.)    (list -1. -ass))

  578.         (list "_nea"
  579.               col (list -ass -ass) (list ass ass)
  580.               col (list -ass ass)  (list ass ass)
  581.               col (list (1- -ass)  (1+ ass)) (list (1+ ass) (1+ ass))
  582.               col (list -ass ass)  (list ass -ass)
  583.               col (list ass -ass)  (list -ass -ass)
  584.               col (list (1+ ass) (1- -ass)) (list (1- -ass) (1- -ass)))

  586.         (list "_app"
  587.               col (list -ass -ass) (list ass ass)
  588.               col (list ass -ass)  (list -ass ass)
  589.               col (list -ass -ass) (list -ass ass)
  590.               col (list (1- -ass)  (1- -ass)) (list (1- -ass) (1+ ass))
  591.               col (list -ass ass)  (list ass ass)
  592.               col (list (1- -ass)  (1+ ass))  (list (1+ ass) (1+ ass))
  593.               col (list ass ass)   (list ass -ass)
  594.               col (list (1+ ass)   (1+ ass))  (list (1+ ass) (1- -ass))
  595.               col (list ass -ass)  (list -ass -ass)
  596.               col (list (1+ ass)   (1- -ass)) (list (1- -ass) (1- -ass)))))


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

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

  603.   (mapcar 'set '(*dyniCols *dynoCols *dyniCol *dynoCol  *dynilay
  604.                  *dynolay  *dynilin  *dynolin *dyniwgt  *dynowgt) *DynOffDefaults*)         
  605.   
  606.   (defun mklst (key lst)
  607.     (start_list key) (mapcar 'add_list lst) (end_list))

  609.   (defun img (key col)   
  610.     (start_image key)
  611.     (fill_image 0 0 (dimx_tile key) (dimy_tile key) col)
  612.     (end_image))

  614.   (setq doc  (cond (doc) ((vla-get-ActiveDocument
  615.                             (vlax-get-acad-object))))
  616.         lays (vla-get-layers doc))

  618.   (defun layCol (lay)
  619.     (vla-get-color (vla-item lays lay)))

  621.   (setq bsCol
  622.     (cond (  (vl-position (setq bsCol (vla-get-Color obj)) '(256 0))
  623.              (setq bsflag t)
  624.              (layCol (vla-get-Layer obj)))

  626.           (bsCol)))  

  628.   (defun mk_arc nil
  629.     (vec_arc (if (= "1" *dyniCols)
  630.                (if bsFlag
  631.                  (laycol
  632.                    (if (eq "*Source*" *dynilay)
  633.                      (vla-get-layer obj) *dynilay)) bsCol)
  634.                (if (= 256 *dyniCol)
  635.                  (if (eq "*Source*" *dynilay) bsCol
  636.                    (laycol *dynilay))
  637.                  *dyniCol))

  639.              bsCol

  641.              (if (= "1" *dynoCols)
  642.                (if bsFlag
  643.                  (laycol
  644.                    (if (eq "*Source*" *dynolay)
  645.                      (vla-get-layer obj) *dynolay)) bsCol)
  646.                (if (= 256 *dynoCol)
  647.                  (if (eq "*Source*" *dynolay) bsCol
  648.                    (laycol *dynolay))
  649.                  *dynoCol))))

  651.   
  652.   (cond (  (<= (setq dcTag (load_dialog fname)) 0)
  653.            (princ "\n找不到对话框文件."))

  655.         (  (not (new_dialog "dsett" dcTag))
  656.            (princ "\n无法加载“设置”对话框."))

  658.         (t
  659.            (vlax-for lay (vla-get-layers doc)
  660.              (setq lLay (cons (vla-get-Name lay) lLay)))
  661.            (setq lLay (cons "*Source*" (acad_strlsort lLay)))

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

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

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

  675.            (mapcar 'set_tile '("ilay" "olay" "ilin" "olin" "ilw" "olw")
  676.                    (mapcar 'itoa
  677.                            (mapcar 'vl-position
  678.                                    (list *dyniLay *dynoLay *dyniLin *dynoLin *dyniWgt *dynoWgt)
  679.                                    (list   lLay     lLay      lLin     lLin    lWgt     lWgt))))

  681.            (set_tile "icols" *dyniCols)
  682.            (set_tile "ocols" *dynoCols)

  684.            (set_tile "dtitle" dcTitle)
  685.          
  686.            (mode_tile "icol" (atoi (get_tile "icols")))
  687.            (mode_tile "ocol" (atoi (get_tile "ocols")))

  689.            (logo)
  690.            (mk_arc)
  691.            (mapcar 'img '("icol" "ocol") (list *dyniCol *dynoCol))

  693.            (action_tile "ilay"
  694.              (vl-prin1-to-string
  695.                (quote
  696.                  (progn
  697.                    (setq *dynilay (nth (atoi $value) lLay)) (mk_arc)))))

  699.            (action_tile "olay"
  700.              (vl-prin1-to-string
  701.                (quote
  702.                  (progn
  703.                    (setq *dynolay (nth (atoi $value) lLay)) (mk_arc)))))

  705.            (action_tile "ilin"
  706.              (vl-prin1-to-string
  707.                (quote
  708.                  (progn
  709.                    (setq *dyniLin (nth (atoi $value) lLin))))))

  711.            (action_tile "olin"
  712.              (vl-prin1-to-string
  713.                (quote
  714.                  (progn
  715.                    (setq *dynoLin (nth (atoi $value) lLin))))))

  717.            (action_tile "ilw"
  718.              (vl-prin1-to-string
  719.                (quote
  720.                  (progn
  721.                    (setq *dyniWgt (nth (atoi $value) lWgt))))))

  723.            (action_tile "olw"
  724.              (vl-prin1-to-string
  725.                (quote
  726.                  (progn
  727.                    (setq *dynoWgt (nth (atoi $value) lWgt))))))

  729.            (action_tile "icol"
  730.              (vl-prin1-to-string
  731.                (quote
  732.                  (progn
  733.                    (setq *dyniCol (cond ((acad_colordlg *dyniCol)) (*dyniCol)))
  734.                    (img "icol" *dyniCol)
  735.                    (mk_arc)))))
  736.            (action_tile "ocol"
  737.              (vl-prin1-to-string
  738.                (quote
  739.                  (progn
  740.                    (setq *dynoCol (cond ((acad_colordlg *dynoCol)) (*dynoCol)))
  741.                    (img "ocol" *dynoCol)
  742.                    (mk_arc)))))

  744.            (action_tile "icols"
  745.              (vl-prin1-to-string
  746.                (quote
  747.                  (progn
  748.                    (mode_tile "icol" (atoi (setq *dyniCols $value)))
  749.                    (mk_arc)))))

  751.            (action_tile "ocols"
  752.              (vl-prin1-to-string
  753.                (quote
  754.                  (progn
  755.                    (mode_tile "ocol" (atoi (setq *dynoCols $value)))
  756.                    (mk_arc)))))
  757.                   
  758.            (action_tile "accept"
  759.              (vl-prin1-to-string
  760.                (quote
  761.                  (progn
  762.                    (setq *DynOffDefaults*
  763.                           (list *dyniCols *dynoCols *dyniCol  *dynoCol  *dynilay
  764.                                 *dynolay  *dynilin  *dynolin  *dyniwgt  *dynowgt))
  765.                    (done_dialog)))))         
  766.            (action_tile "about" "(off:about dcTag)")            
  767.            (action_tile "cancel" "(done_dialog)")         
  768.            (start_dialog)
  769.            (unload_dialog dcTag))))

  771. (defun off:about ( id /  )
  772.   (new_dialog "about" id)
  773.   (action_tile "accept" "(done_dialog)")
  774.   (start_dialog)
  775.   )  
  776. (defun DC_Write (fname / wPath ofile)

  778.   (if (not (findfile fname))
  779.     (if (setq wPath (findfile "ACAD.PAT"))
  780.       (progn
  781.         (setq wPath (vl-filename-directory wPath))
  782.         (or (eq "\" (substr wPath (strlen wPath)))
  783.             (setq wPath (strcat wPath "\")))
  784.         
  785.         (setq ofile (open (strcat wPath fname) "w"))
  786.         
  787.         (foreach str
  788.                  
  789.           '(
  790.             "//-------------------=={ Dynamic Offset }==-------------------//"
  791.             "//                                                            //"
  792.             "//  DynOff.dcl for use in conjunction with DynOff.lsp         //"
  793.             "//------------------------------------------------------------//"
  794.             "//  Author: Lee Mac, Copyright ?2009 - www.lee-mac.com       //"
  795.             "//------------------------------------------------------------//"
  796.             ""
  797.             "//  --=={ Sub-Assembly Definitions }==--"
  798.                     ""
  799.                     "txt1 : text"
  800.                     "{"
  801.                     "    alignment = centered;"
  802.                     "    fixed_width = false;"
  803.                     "}"
  804.                     ""
  805.                     "txt2 : text"
  806.                     "{"
  807.                     "    alignment = centered;"
  808.                     "    fixed_width = true;"
  809.                     "    width = 8.8;"
  810.                     "}"
  811.                     ""
  812.                     "txt3 : text"
  813.                     "{"
  814.                     "    alignment = left;"
  815.                     "    fixed_width = false;"
  816.                     "}"
  817.                     ""
  818.                     
  819.             "// Sub-Assembly Definitions"
  820.             ""
  821.             "pop : popup_list   { fixed_width = false; alignment = centered; }"
  822.             "col : image_button { alignment = centered; height = 1.5; width = 4.0;"
  823.             "                     fixed_width = true; fixed_height = true; color = 2; }"
  824.             ""
  825.             "// Main Dialog"
  826.             ""
  827.             "dsett : dialog { key = "dtitle";"
  828.             "  spacer;"
  829.             "  : row {"
  830.             "    : boxed_column { label = "偏移预览"; fixed_width = false; "
  831.             "      : boxed_row { label = "外偏颜色"; fixed_width = true;"
  832.             "                    alignment = centered;"
  833.             "        spacer;"
  834.             "        : col  { key = "ocol"; }"
  835.             "        spacer;"
  836.             "        : toggle { key = "ocols"; label = "缺省色"; }"
  837.             "        spacer;"
  838.             "      } // boxed_row"
  839.             "      : image { key = "dimage"; alignment = centered;"
  840.             "                width = 24.64 ; fixed_width  = true;"
  841.             "                height = 11.39; fixed_height = true; color = -2; }"
  842.             "      : boxed_row { label = "内偏颜色"; fixed_width = true;"
  843.             "                    alignment = centered;"
  844.             "        spacer;"
  845.             "        : col  { key = "icol"; }"
  846.             "        spacer;"
  847.             "        : toggle { key = "icols"; label = "缺省色"; }"
  848.             "        spacer;"
  849.             "      } // boxed_row"
  850.             "    } // column"
  851.             "    : column { "
  852.             "      : boxed_column { label = "向外偏移";"
  853.             "        : pop { label = "图层:"; key = "olay"; }"
  854.             "        : pop { label = "线型:"; key = "olin"; }"
  855.             "        : pop { label = "线宽:"; key = "olw" ; }"
  856.             "        spacer;"
  857.             "      } // boxed_column"
  858.             "      spacer;"
  859.             "      : boxed_column { label = "向内偏移";"
  860.             "        : pop { label = "图层:"; key = "ilay"; }"
  861.             "        : pop { label = "线型:"; key = "ilin"; }"
  862.             "        : pop { label = "线宽:"; key = "ilw" ; }"
  863.             "        spacer;"
  864.             "      } // boxed_column"
  865.             "    } // column"
  866.             "  } // row"
  867.             "  spacer;"
  868.             "  : row {"
  869.             "    : spacer { width = 19.33; height = 3.18; }"
  870.             "        : button { key = "about";  label = "提示"; }"
  871.             "    spacer;"
  872.             "    ok_cancel;"
  873.             "    spacer;"
  874.             "    : image { key = "logo" ; alignment = centered;"
  875.             "              width = 19.33; fixed_width  = true;"
  876.             "              height = 3.18; fixed_height = true; color = -15; }"
  877.             "  } // row"
  878.             "} // dialog"
  879.             ""
  880.             "//------------------------------------------------------------//"
  881.             "//                         End of File                        //"
  882.             "//------------------------------------------------------------//"



  886.             "//------------------------------------------------------------//"
  887.             "//                  'About' Dialog Definition                 //"
  888.             "//------------------------------------------------------------//"
  889.             ""
  890.             "about : dialog"
  891.             "{"
  892.             "    label = "提示";"
  893.             "    spacer;"
  894.             "    spacer_1;"
  895.             "    : row"
  896.             "    {"
  897.             "        fixed_width = true;"
  898.             "        alignment = centered;"
  899.             "        spacer;"
  900.             "        : column"
  901.             "        {"
  902.             "            : txt1 { label = "["     ; }"
  903.             "    spacer_1;"
  904.             "            : txt1 { label = "["     ; }"
  905.             "    spacer_1;"
  906.             "            : txt1 { label = "["     ; }"
  907.             "    spacer_1;"
  908.             "            : txt1 { label = "["     ; }"
  909.             "    spacer_1;"
  910.             "            : txt1 { label = "["     ; }"
  911.             "    spacer_1;"
  912.             "            : txt1 { label = "["     ; }"
  913.             "    spacer_1;"
  914.             "            : txt1 { label = "["     ; }"
  915.             "        }"
  916.             "        : column"
  917.             "        {"
  918.             "            : txt1 { label = "偏距"  ; }"
  919.             "            : txt1 { label = "+/-"   ; }"
  920.             "            : txt1 { label = "F"     ; }"
  921.             "            : txt1 { label = "Tab"   ; }"
  922.             "            : txt1 { label = "D"     ; }"
  923.             "            : txt1 { label = "C"     ; }"
  924.             "            : txt1 { label = "Shift" ; }"
  925.             "        }"
  926.             "        : column"
  927.             "        {"
  928.             "            : txt1 { label = "]"     ; }"
  929.             "            : txt1 { label = "]"     ; }"
  930.             "            : txt1 { label = "]"     ; }"
  931.             "            : txt1 { label = "]"     ; }"
  932.             "            : txt1 { label = "]"     ; }"
  933.             "            : txt1 { label = "]"     ; }"
  934.             "            : txt1 { label = "]"     ; }"
  935.             "        }"
  936.             "        spacer;"
  937.             "        : column"
  938.             "        {"
  939.             "            : txt3 { label = "偏移距离，命令行或屏幕上输入"     ; }"
  940.             "            : txt3 { label = "增加或减少偏移数量，或N输入"      ; }"
  941.             "            : txt3 { label = "逐个加大偏距量的设置，默认1"      ; }"
  942.             "            : txt3 { label = "内/外/内外,模式的切换"            ; }"
  943.             "            : txt3 { label = "保留或删除原始对象"               ; }"
  944.             "            : txt3 { label = "偏移到两个对象的中心"             ; }"
  945.             "            : txt3 { label = "按住shift，高光显示偏移实体"      ; }"
  946.             "        }"
  947.             "    }"
  948.             "    spacer;"
  949.             "    spacer_1;"
  950.             "    ok_only;"
  951.                     "}"
  952.                     ""
  953.             "//------------------------------------------------------------//"
  954.             "//                 End of Dialog Definition                   //"
  955.             "//------------------------------------------------------------//"
  956.             )

  958.           (write-line str ofile))
  959.         (close ofile)
  960.       t)
  961.   nil)
  962. t))

  964. (defun logo nil

  966.   (start_image "logo")

  968.   (mapcar 'vector_image
  969.          
  970.           '(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
  971.             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
  972.             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
  973.             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
  974.             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
  975.             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
  976.             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
  977.             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
  978.             88 86 86 94 93 92 92 92 92 92 92 93 113 113 112 111 109 108 107 105 109 111
  979.             112 113 113 113 96 94 93 93 93 93 93 94 95 96 97 98 99 101 102 104 105 107
  980.             108 104 103 101 100 100 99 99 98 98 98 98 98 99 100 102 103 104 101 99 98
  981.             96 94 105 107 108 109 110 112 113 114 114 114 112 111 110 108 107 105 103 102)

  983.           '(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
  984.             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
  985.             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
  986.             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
  987.             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
  988.             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
  989.             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
  990.             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
  991.             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
  992.             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)

  994.           '(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
  995.             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
  996.             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
  997.             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
  998.             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
  999.             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
  1000.             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
  1001.             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
  1002.             92 92 93 93 113 112 111 109 108 107 105 104 111 112 113 113 113 113 94 93 93
  1003.             93 93 93 94 95 96 97 98 99 101 102 104 105 107 108 109 103 101 100 100 99 99
  1004.             98 98 98 98 98 99 100 102 103 104 105 99 98 96 94 96 107 108 109 110 112 113
  1005.             114 114 114 112 111 110 108 107 105 103 102 101)

  1007.           '(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
  1008.             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
  1009.             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
  1010.             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
  1011.             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
  1012.             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
  1013.             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
  1014.             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
  1015.             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
  1016.             3 5 5 6 6 6 7 7 7 7 6 5 4 4 3 3 3 3 3 3)

  1018.           '(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
  1019.             14 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166
  1020.             166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166
  1021.             166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166
  1022.             166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166
  1023.             166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166
  1024.             166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166
  1025.             166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166
  1026.             166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166
  1027.             166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166
  1028.             166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166
  1029.             166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166
  1030.             166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166
  1031.             166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166 166
  1032.             166 166 166 166))

  1034.   (end_image))

  1036. (defun vec_arc (iCol bCol oCol)

  1038.   (start_image "dimage")

  1040.   (mapcar 'vector_image

  1042.           '(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)
  1043.           '(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)
  1044.           '(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)
  1045.           '(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)

  1047.           (list iCol iCol iCol iCol iCol iCol iCol iCol iCol iCol iCol iCol iCol iCol iCol
  1048.                 iCol iCol iCol iCol iCol iCol iCol iCol iCol iCol iCol iCol iCol))

  1050.   (mapcar 'vector_image

  1052.           '(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
  1053.             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
  1054.             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)

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

  1061.           '(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
  1062.             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
  1063.             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)

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

  1070.           (list bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol
  1071.                 bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol
  1072.                 bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol
  1073.                 bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol
  1074.                 bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol bCol
  1075.                 bCol bCol bCol bCol bCol))

  1077.   (mapcar 'vector_image

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

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

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

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

  1092.           (list oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol
  1093.                 oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol
  1094.                 oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol oCol
  1095.                 oCol oCol oCol oCol oCol))

  1097.   (end_image))


  1100. (vl-load-com)
  1101. (princ)
回复 支持 反对

使用道具 举报

飒路紫
 楼主| 发表于 2020-5-25 09:44:19 | 显示全部楼层
开心68602 发表于 2020-5-24 23:06
老师：加载插件后提示：未加载快速工具-换档选项不可用
怎么解决？

是不是没有EXPRESS TOOLS     CAD更改或卸载程序——添加或删除功能，把快速工具选中，更新。试试看。
回复 支持 反对

使用道具 举报

hiviki
发表于 2020-2-23 10:42:10 | 显示全部楼层
感谢楼主分享，支持一下！
回复 支持 反对

使用道具 举报

Sonnenblumen
发表于 2020-3-5 09:21:31 | 显示全部楼层
感谢感谢，支持一下
回复 支持 反对

使用道具 举报

myairen
发表于 2020-3-16 19:08:58 | 显示全部楼层
非常感谢楼主的大力
回复 支持 反对

使用道具 举报

Q晋胡
发表于 2020-4-20 10:00:11 | 显示全部楼层
收藏了，感谢分享
回复 支持 反对

使用道具 举报

work0808
发表于 2020-4-28 04:00:13 | 显示全部楼层
牛，谢谢楼主了。。。。。。。。。。。。。。。。。。
回复 支持 反对

使用道具 举报

LIULISHENG
发表于 2020-5-12 17:16:20 | 显示全部楼层

收藏了，感谢分享
回复 支持 反对

使用道具 举报

2032099763
发表于 2020-5-14 07:45:35 | 显示全部楼层
能不能搞个拉伸动态
回复 支持 反对

使用道具 举报

开心68602
发表于 2020-5-24 23:06:23 | 显示全部楼层
老师：加载插件后提示：未加载快速工具-换档选项不可用
怎么解决？
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-11-22 21:17 , Processed in 0.242570 second(s), 30 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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