本帖最后由 277283904 于 2025-12-6 11:55 编辑

如图：就是一次性从蓝色线向外偏移到绿色线，又可以一次性向内从蓝色线偏移到红色线，并且可以指偏移距离？

网友答: 这个超简单的；我要是写出来收费；肯定会被骂的；不收费我没动力。
给你半成品 拿去改把
  2. ;;; 偏移命令 OF - 支持选中线条偏移，可设置偏移距离
  3. ;;; 支持直线(Line)、多段线(Pline)等多种线型

  5. (defun c:of (/ offset-dist entity ent-type offset-side)
  6.   (setq old-cmdecho (getvar "CMDECHO"))
  7.   (setvar "CMDECHO" 0)
  8.   
  9.   ;; 初始化偏移距离
  10.   (if (not *of-offset-distance*)
  11.     (setq *of-offset-distance* 10.0)
  12.   )
  13.   
  14.   ;; 主循环
  15.   (while T
  16.     ;; 使用带关键字的提示
  17.     (initget "设置距离 S 退出 Exit")
  18.     (setq entity
  19.       (entsel
  20.         (strcat
  21.           "\n选择要偏移的对象或 [设置距离(S)/退出(E)] <当前距离: "
  22.           (rtos *of-offset-distance* 2 2)
  23.           ">: "
  24.         )
  25.       )
  26.     )
  27.    
  28.     ;; 处理用户选择
  29.     (cond
  30.       ;; 用户选择设置距离
  31.       ((or (= entity "设置距离") (= entity "S"))
  32.        (progn
  33.          (initget 6)
  34.          (setq new-dist
  35.            (getdist
  36.              (strcat
  37.                "\n指定偏移距离 <"
  38.                (rtos *of-offset-distance* 2 2)
  39.                ">: "
  40.              )
  41.            )
  42.          )
  43.          (if new-dist
  44.            (setq *of-offset-distance* new-dist)
  45.            (princ "\n保持当前距离")
  46.          )
  47.        )
  48.       )
  49.       
  50.       ;; 用户选择退出
  51.       ((or (= entity "退出") (= entity "Exit"))
  52.        (progn
  53.          (princ "\n退出偏移命令")
  54.          (exit)
  55.        )
  56.       )
  57.       
  58.       ;; 用户选择了对象
  59.       ((= (type entity) 'LIST)
  60.        (progn
  61.          (setq ent-name (car entity))
  62.          (setq ent-data (entget ent-name))
  63.          (setq ent-type (cdr (assoc 0 ent-data)))
  64.          
  65.          ;; 检查是否为支持的线型
  66.          (if (or (= ent-type "LINE")
  67.                  (= ent-type "LWPOLYLINE")
  68.                  (= ent-type "POLYLINE")
  69.                  (= ent-type "ARC")
  70.                  (= ent-type "CIRCLE")
  71.              )
  72.            (progn
  73.              ;; 获取偏移方向
  74.              (initget "左侧 Left 右侧 Right")
  75.              (setq offset-side
  76.                (getkword
  77.                  "\n指定偏移侧 [左侧(L)/右侧(R)] <右侧>: "
  78.                )
  79.              )
  80.             
  81.              ;; 默认右侧偏移
  82.              (if (null offset-side)
  83.                (setq offset-side "右侧")
  84.              )
  85.             
  86.              ;; 执行偏移命令
  87.              (command "_.OFFSET" *of-offset-distance* ent-name "" "")
  88.             
  89.              ;; 如果选择了左侧偏移，需要镜像
  90.              (if (or (= offset-side "左侧") (= offset-side "Left"))
  91.                (progn
  92.                  (princ "\n左侧偏移，正在调整方向...")
  93.                  ;; 这里可以根据需要添加额外的逻辑
  94.                  ;; 暂时使用标准偏移，方向由AutoCAD自动处理
  95.                )
  96.              )
  97.             
  98.              (princ (strcat "\n成功偏移 " ent-type " 对象"))
  99.            )
  100.            (princ "\n不支持的对象类型！请选择直线、多段线、圆弧或圆。")
  101.          )
  102.        )
  103.       )
  104.       
  105.       ;; 用户取消或回车
  106.       ((null entity)
  107.        (progn
  108.          (princ "\n退出偏移命令")
  109.          (exit)
  110.        )
  111.       )
  112.     )
  113.   )
  114.   
  115.   ;; 恢复系统变量
  116.   (setvar "CMDECHO" old-cmdecho)
  117.   (princ)
  118. )

  120. ;;; 简化版本的偏移命令 - 直接偏移选中对象
  121. (defun c:of-quick (/ entity offset-dist)
  122.   (setq old-cmdecho (getvar "CMDECHO"))
  123.   (setvar "CMDECHO" 0)
  124.   
  125.   ;; 使用上次距离或默认值
  126.   (if (not *of-offset-distance*)
  127.     (setq *of-offset-distance* 10.0)
  128.   )
  129.   
  130.   ;; 选择对象
  131.   (setq entity (entsel "\n选择要偏移的对象: "))
  132.   
  133.   (if entity
  134.     (progn
  135.       ;; 检查对象类型
  136.       (setq ent-data (entget (car entity)))
  137.       (setq ent-type (cdr (assoc 0 ent-data)))
  138.       
  139.       (if (or (= ent-type "LINE")
  140.               (= ent-type "LWPOLYLINE")
  141.               (= ent-type "POLYLINE")
  142.               (= ent-type "ARC")
  143.               (= ent-type "CIRCLE")
  144.           )
  145.         (progn
  146.           ;; 获取偏移距离
  147.           (initget 6)
  148.           (setq offset-dist
  149.             (getdist
  150.               (strcat
  151.                 "\n指定偏移距离 <"
  152.                 (rtos *of-offset-distance* 2 2)
  153.                 ">: "
  154.               )
  155.             )
  156.           )
  157.          
  158.           (if (null offset-dist)
  159.             (setq offset-dist *of-offset-distance*)
  160.             (setq *of-offset-distance* offset-dist)
  161.           )
  162.          
  163.           ;; 执行偏移
  164.           (command "_.OFFSET" offset-dist (car entity) "" "")
  165.           (princ (strcat "\n成功偏移 " ent-type " 对象"))
  166.         )
  167.         (princ "\n不支持的对象类型！")
  168.       )
  169.     )
  170.     (princ "\n未选择对象")
  171.   )
  172.   
  173.   (setvar "CMDECHO" old-cmdecho)
  174.   (princ)
  175. )

  177. ;;; 加载提示
  178. (princ "\n偏移命令已加载：")
  179. (princ "\n  OF  - 完整版偏移命令（支持设置距离）")
  180. (princ "\n  OF-QUICK - 快速偏移命令")
  181. (princ "\n使用 S 选项可以设置偏移距离")
  182. (princ)


网友答:
  1. (defun c:tt ()
  2.   (setq o1 '(10 20 30 40);外偏移数据
  3.         o2 '(40 30 20 10);内偏移数据
  4.   )
  5.   (if (setq s1 (car (entsel "\n选择偏移线<退出>: ")))
  6.     (progn
  7.       (setq s2 s1)
  8.       (setvar 'cecolor "3")
  9.       (foreach a o1
  10.         (vla-OFFSET (vlax-ename->vla-object s1) a)
  11.         (setq s1 (entlast))
  12.       )
  13.       (setvar 'cecolor "1")
  14.       (foreach a o2
  15.         (vla-OFFSET (vlax-ename->vla-object s2) (- a))
  16.         (setq s2 (entlast))
  17.       )
  18.     )
  19.   )
  20.   (princ)
  21. )
  • 上一篇：小菜的选择易 用AI修复下，应该是1.2版本
  • 下一篇：没有了
    CAD技术交流中心 | 建筑CAD | 给排水CAD | 暖通CAD | 电气CAD | 电力CAD | 机械CAD | CAD母线槽 | CAD看图
    Copyright © 2019 - 2025