edm520 发表于 2019-11-25 10:28:40

求大神在这基础上加个批量


(DEFUN C:OC() (vl-cmdf "_.undo" "_group")
               (mapcar 'princ (list "Current offset dist= " (getvar "OFFSETDIST")" "))
               (setq di (getstring "\输入偏移距离:"))
               (setq o (ssget))
               (setq po (getpoint "\nSide to offset"))
               (setq LAY (getvar "CLAYER"))
               (if (/= di nil)
               (COMMAND "OFFSET" di o po "")
               (COMMAND "CHPROP" "L" "" "LA" lay "LT" "bylayer" "C" "bylayer" ""))
               (if (= di nil)
               (COMMAND "OFFSET" "" o po "")
               (COMMAND "CHPROP" "L" "" "LA" lay "LT" "bylayer" "C" "bylayer" ""))
               (vl-cmdf "_.undo" "_end")(princ))


sharetow 发表于 2019-12-18 14:31:50

(DEFUN C:OC()
(vl-cmdf "_.undo" "_group")
(mapcar 'princ (list "Current offset dist= " (getvar "OFFSETDIST")" "))
(setq di (getstring "\输入偏移距离:"))
(setq o (ssget) i 0)
(repeat (sslength o)
    (setq po (getpoint "\nSide to offset"))
    (setq LAY (getvar "CLAYER"))
    (if (/= di nil)
      (COMMAND "OFFSET" di (ssname O i) po "")
      (COMMAND "CHPROP" "L" "" "LA" lay "LT" "bylayer" "C" "bylayer" "")
    )
    (if (= di nil)
      (COMMAND "OFFSET" "" (ssname O i) po "")
      (COMMAND "CHPROP" "L" "" "LA" lay "LT" "bylayer" "C" "bylayer" "")
    )
    (setq i (1+ i))
)
(vl-cmdf "_.undo" "_end")
(princ)

)

start4444 发表于 2019-11-25 12:44:50

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=178835&highlight=%C5%FA%C1%BF%C6%AB%D2%C6
论坛那么多批量偏移还问啥啊

edm520 发表于 2019-11-26 14:27:00

论坛的偏移都有BUG:L
页: [1]
查看完整版本: 求大神在这基础上加个批量