[编程申请]：增强的OFFSET

fundoll · 发表于 2003-12-6 10:06:05

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

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

×

增强的OFFSET
此命令用左键选物时，没选中要退出，有哪位高手可以改成没选中不退出！

; FS.LSP
; 增强的OFFSET
(defun repcmd()
(while (= obj "Options")
(if (not first) (command))
(setq cval (getvar "offsetdist"))
(if (minusp cval) (setq def "Through")(setq def (rtos cval)))
(initget "Through")
(setq opt (getdist (strcat "\nOffset distance or Through<" def ">: ")))
(cond ((not opt) (setq opt def))
((numberp opt) (setq opt (rtos opt)))
)
(if (= opt "Through")
(setvar "offsetdist" -1)
(setvar "offsetdist" (read opt))
)
(command ".offset" "")
(initget "Undo Options")
(setq obj (entsel "\n《Select object to offset》/Undo/Options: "))
)
(setq first nil)
)
; MAIN FUNCTION
(defun C:FS(/ cval def opt obj en tpt side count first)
(setvar "cmdecho" 0)(setvar "blipmode" 0)
(setq obj "Options" count 0 first T)
(repcmd)
(while (/= obj nil)
(command (cadr obj))
(cond
((= opt "Through")
(initget 1)(setq tpt (getpoint "\nThrough point: "))(command tpt))
(T (initget 1)(setq side (getpoint "\nSide to offset? "))(command side)
)
)
(setq count (1+ count))
(initget "Undo Options")
(setq obj (entsel "\n《Select object to offset》/Undo/Options: "))
(if (= obj "Options") (repcmd))
(while (= obj "Undo")
(if (> count 0) (progn (entdel(entlast)) (setq count (1- count))))
(initget "Undo Options")
(setq obj (entsel "\n《Select object to offset》/Undo/Options: "))
) ; while close
(if (= obj "Options")(repcmd))
) ; while close
(command)(prin1)
;(prompt "Type FS to run")
)

; FS.LSP       
; 增强的OFFSET        
 
(defun repcmd() 
 (while (= obj "Options") 
  (if (not first) (command)) 
  (setq cval (getvar "offsetdist")) 
  (if (minusp cval) (setq def "Through")(setq def (rtos cval))) 
  (initget "Through") 
  (setq opt (getdist (strcat "\nOffset distance or Through<" def ">: "))) 
  (cond ((not opt) (setq opt def)) 
        ((numberp opt) (setq opt (rtos opt))) 
  ) 
  (if (= opt "Through") 
   (setvar "offsetdist" -1) 
   (setvar "offsetdist" (read opt)) 
  ) 
  (command ".offset" "") 
  (initget "Undo Options") 
  (setq obj (entsel "\n《Select object to offset》/Undo/Options: ")) 
 ) 
 (setq first nil) 
) 
 
; MAIN FUNCTION 
 
(defun C:FS(/ cval def opt obj en tpt side count first) 
 (setvar "cmdecho" 0)(setvar "blipmode" 0) 
 (setq obj "Options" count 0 first T) 
 (repcmd) 
 (while (/= obj nil) 
  (command (cadr obj)) 
  (cond 
   ((= opt "Through") 
    (initget 1)(setq tpt (getpoint "\nThrough point: "))(command tpt)) 
   (T (initget 1)(setq side (getpoint "\nSide to offset? "))(command side) 
   ) 
  ) 
  (setq count (1+ count)) 
  (initget "Undo Options") 
  (setq obj (entsel "\n《Select object to offset》/Undo/Options: ")) 
  (if (= obj "Options") (repcmd)) 
  (while (= obj "Undo") 
   (if (> count 0) (progn (entdel(entlast)) (setq count (1- count)))) 
   (initget "Undo Options") 
   (setq obj (entsel "\n《Select object to offset》/Undo/Options: ")) 
  ) ; while close 
  (if (= obj "Options")(repcmd)) 
 ) ; while close 
 (command)(prin1) 
 ;(prompt "Type FS to run") 
)

以后成对的 < >,改成中文的《》，就能贴出来了 --by aeo[/COLOR]

陌生人 · 发表于 2003-12-14 06:13:13

以后成对的 < >,改成中文的《》，就能贴出来了 --by aeo
以后<>前后加空格就可以贴出来了:-) 帮你贴一次 --by 陌生人

; FS.LSP
; 增强的OFFSET
(defun repcmd()
(while (= obj "Options")
(if (not first) (command))
(setq cval (getvar "offsetdist"))
(if (minusp cval) (setq def "Through")(setq def (rtos cval)))
(initget "Through")
(setq opt (getdist (strcat "\nOffset distance or Through<" def ">: ")))
(cond ((not opt) (setq opt def))
((numberp opt) (setq opt (rtos opt)))
)
(if (= opt "Through")
(setvar "offsetdist" -1)
(setvar "offsetdist" (read opt))
)
(command ".offset" "")
(initget "Undo Options")
(setq obj (entsel "\n < Select object to offset > /Undo/Options: "))
)
(setq first nil)
)
; MAIN FUNCTION
(defun C:FS(/ cval def opt obj en tpt side count first)
(setvar "cmdecho" 0)(setvar "blipmode" 0)
(setq obj "Options" count 0 first T)
(repcmd)
(while (/= obj nil)
(command (cadr obj))
(cond
((= opt "Through")
(initget 1)(setq tpt (getpoint "\nThrough point: "))(command tpt))
(T (initget 1)(setq side (getpoint "\nSide to offset? "))(command side)
)
)
(setq count (1+ count))
(initget "Undo Options")
(setq obj (entsel "\n < Select object to offset > /Undo/Options: "))
(if (= obj "Options") (repcmd))
(while (= obj "Undo")
(if (> count 0) (progn (entdel(entlast)) (setq count (1- count))))
(initget "Undo Options")
(setq obj (entsel "\n < Select object to offset > /Undo/Options: "))
) ; while close
(if (= obj "Options")(repcmd))
) ; while close
(command)(prin1)
;(prompt "Type FS to run")
)

; FS.LSP       
; 增强的OFFSET        
 
(defun repcmd() 
 (while (= obj "Options") 
  (if (not first) (command)) 
  (setq cval (getvar "offsetdist")) 
  (if (minusp cval) (setq def "Through")(setq def (rtos cval))) 
  (initget "Through") 
  (setq opt (getdist (strcat "\nOffset distance or Through<" def ">: "))) 
  (cond ((not opt) (setq opt def)) 
        ((numberp opt) (setq opt (rtos opt))) 
  ) 
  (if (= opt "Through") 
   (setvar "offsetdist" -1) 
   (setvar "offsetdist" (read opt)) 
  ) 
  (command ".offset" "") 
  (initget "Undo Options") 
  (setq obj (entsel "\n < Select object to offset > /Undo/Options: ")) 
 ) 
 (setq first nil) 
) 
 
; MAIN FUNCTION 
 
(defun C:FS(/ cval def opt obj en tpt side count first) 
 (setvar "cmdecho" 0)(setvar "blipmode" 0) 
 (setq obj "Options" count 0 first T) 
 (repcmd) 
 (while (/= obj nil) 
  (command (cadr obj)) 
  (cond 
   ((= opt "Through") 
    (initget 1)(setq tpt (getpoint "\nThrough point: "))(command tpt)) 
   (T (initget 1)(setq side (getpoint "\nSide to offset? "))(command side) 
   ) 
  ) 
  (setq count (1+ count)) 
  (initget "Undo Options") 
  (setq obj (entsel "\n < Select object to offset > /Undo/Options: ")) 
  (if (= obj "Options") (repcmd)) 
  (while (= obj "Undo") 
   (if (> count 0) (progn (entdel(entlast)) (setq count (1- count)))) 
   (initget "Undo Options") 
   (setq obj (entsel "\n < Select object to offset > /Undo/Options: ")) 
  ) ; while close 
  (if (= obj "Options")(repcmd)) 
 ) ; while close 
 (command)(prin1) 
 ;(prompt "Type FS to run") 
)

LUCAS · 发表于 2003-12-16 12:46:47

;; FFS.LSP
;; 增强的OFFSET
;; BY LUCAS(龙龙仔)
;;1.改成没选中不退出！
;;2.并能连续UNDO
(defun REPCMD ()
(while (= OBJ "Options")
(if (not FIRST)
(command)
)
(setq CVAL (getvar "offsetdist"))
(if (minusp CVAL)
(setq DEF "Through")
(setq DEF (rtos CVAL))
)
(initget "Through")
(setq
OPT (getdist (strcat "\nOffset distance or Through<" DEF ">: "))
)
(cond ((not OPT) (setq OPT DEF))
((numberp OPT) (setq OPT (rtos OPT)))
)
(if (= OPT "Through")
(setvar "offsetdist" -1)
(setvar "offsetdist" (read OPT))
)
(command ".offset" "")
(DO_IT)
)
(setq FIRST NIL)
)
(defun DO_IT ()
(initget "Undo Options eXit")
(setq
OBJ (entsel "\n < Select object to offset >/Undo/Options<eXit>: "
)
)
(if (= OBJ "Options")
(REPCMD)
)
(while (= OBJ "Undo")
(if (> COUNT 0)
(progn (command)
(command "_.ERASE" (entlast) "")
(command "_.OFFSET" "")
(setq COUNT (1- COUNT))
)
(princ "\n 没有可Undo的了!")
)
(initget "Undo Options eXit")
(setq
OBJ (entsel "\n < Select object to offset >/Undo/Options<eXit>: "
)
)
)
(if (= OBJ "Options")
(REPCMD)
)
)
;; MAIN FUNCTION
(defun C:FFS (/ CVAL DEF OPT OBJ EN TPT SIDE COUNT FIRST)
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
(setq OBJ "Options"
COUNT 0
FIRST t
)
(REPCMD)
(while (/= OBJ "eXit")
(cond
((= OPT "Through")
(initget 1)
(setq TPT (getpoint "\nThrough point: "))
(command TPT)
)
((/= OBJ NIL)
(command (cadr OBJ))
(initget 1)
(setq SIDE (getpoint "\nSide to offset? "))
(command SIDE)
(setq COUNT (1+ COUNT))
)
)
(DO_IT)
)
(command)
(princ)
)
(princ)
(prompt "Type FFS to run")

;; FFS.LSP 
;; 增强的OFFSET        
;; BY LUCAS(龙龙仔) 
;;1.改成没选中不退出！ 
;;2.并能连续UNDO 
(defun REPCMD () 
  (while (= OBJ "Options") 
    (if        (not FIRST) 
      (command) 
    ) 
    (setq CVAL (getvar "offsetdist")) 
    (if        (minusp CVAL) 
      (setq DEF "Through") 
      (setq DEF (rtos CVAL)) 
    ) 
    (initget "Through") 
    (setq 
      OPT (getdist (strcat "\nOffset distance or Through<" DEF ">: ")) 
    ) 
    (cond ((not OPT) (setq OPT DEF)) 
          ((numberp OPT) (setq OPT (rtos OPT))) 
    ) 
    (if        (= OPT "Through") 
      (setvar "offsetdist" -1) 
      (setvar "offsetdist" (read OPT)) 
    ) 
    (command ".offset" "") 
    (DO_IT) 
  ) 
  (setq FIRST NIL) 
) 
 
(defun DO_IT () 
  (initget "Undo Options eXit") 
  (setq 
    OBJ        (entsel        "\n < Select object to offset >/Undo/Options<eXit>: " 
        ) 
  ) 
  (if (= OBJ "Options") 
    (REPCMD) 
  ) 
  (while (= OBJ "Undo") 
    (if        (> COUNT 0) 
      (progn (command) 
             (command "_.ERASE" (entlast) "") 
             (command "_.OFFSET" "") 
             (setq COUNT (1- COUNT)) 
      ) 
      (princ "\n 没有可Undo的了!") 
    ) 
    (initget "Undo Options eXit") 
    (setq 
      OBJ (entsel "\n < Select object to offset >/Undo/Options<eXit>: " 
          ) 
    ) 
  ) 
  (if (= OBJ "Options") 
    (REPCMD) 
  ) 
) 
 
;; MAIN FUNCTION 
(defun C:FFS (/ CVAL DEF OPT OBJ EN TPT SIDE COUNT FIRST) 
  (setvar "cmdecho" 0) 
  (setvar "blipmode" 0) 
  (setq        OBJ   "Options" 
        COUNT 0 
        FIRST t 
  ) 
  (REPCMD) 
  (while (/= OBJ "eXit") 
    (cond 
      ((= OPT "Through") 
       (initget 1) 
       (setq TPT (getpoint "\nThrough point: ")) 
       (command TPT) 
      ) 
      ((/= OBJ NIL) 
       (command (cadr OBJ)) 
       (initget 1) 
       (setq SIDE (getpoint "\nSide to offset? ")) 
       (command SIDE) 
       (setq COUNT (1+ COUNT)) 
      ) 
    ) 
    (DO_IT) 
  ) 
  (command) 
  (princ) 
) 
(princ) 
(prompt "Type FFS to run")

andyhua5240 · 发表于 2003-12-16 16:11:00

各位哥哥姐姐能不能整理一下，做个附件，我等外行不会用，只会下载附件呀！
谢谢！

aeo · 发表于 2003-12-16 20:34:08

龙龙仔你改的不对呀,开始就through

playboy · 发表于 2003-12-16 21:12:06

功能上大体和offset是一样的呀
只是多了可以undo的功能呀

陌生人 · 发表于 2003-12-17 01:33:55

写的太烦琐了.看我来个简洁的

;| fff.lsp=增强的offset,可中途undo
功能:可以 undo;中途改变偏移距离; (未选中物体不退出)
v1.0
注明: 如要在r14下运行,将 vl-cmdf 改为 command
没有写出错处理,因为只改offsetdist系统变量,这个变量经常根据需要修改,没有保留恢复的必要
|;
;加载息
(princ "\n fff.lsp=增强offset,可中途undo---------------陌生人.2003.12")
;主程序
(defun c:fff ( / roop do)
(princ "\n fff.lsp=增强的offset,可中途undo---------------陌生人.2003.12")
(vl-cmdf ".undo" "be")
(setq roop T)
(while roop
(princ "\n当前偏移距离值:")(princ (getvar "offsetdist"))
(initget " Undo Dist eXit")
(setq do (entsel "\n<选择偏移实体>/Undo/Dist-调整偏移距离/eXit(空格或回车):"))
(cond
((= 'LIST (type do)) (vl-cmdf ".offset" "" do (getpoint (cadr do) "\n点选偏移方向:") "" ));选中实体.
((= "Undo" do) (vl-cmdf ".u"))
((= "Dist" do) (setvar "offsetdist" (getdist "\n输入新的偏移距离:")) )
((or (= "eXit" do)
(and (= nil do)(= (getvar "errno") 52)))
(setq roop nil))
)
);end while
(vl-cmdf ".undo" "e")
(princ)
)

;| fff.lsp=增强的offset,可中途undo 
功能:可以 undo;中途改变 偏移距离; (未选中物体不退出) 
v1.0 
注明: 如要在r14下运行,将 vl-cmdf 改为 command 
      没有写出错处理,因为只改offsetdist系统变量,这个变量经常根据需要修改,没有保留恢复的必要 
|; 
 
;加载息 
(princ "\n fff.lsp=增强offset,可中途undo---------------陌生人.2003.12") 
;主程序 
(defun c:fff ( / roop do) 
  (princ "\n fff.lsp=增强的offset,可中途undo---------------陌生人.2003.12") 
  (vl-cmdf ".undo" "be") 
  (setq roop T) 
  (while roop 
    (princ "\n当前偏移距离值:")(princ (getvar "offsetdist")) 
    (initget " Undo Dist eXit") 
    (setq do (entsel "\n<选择偏移实体>/Undo/Dist-调整偏移距离/eXit(空格或回车):")) 
    (cond 
      ((= 'LIST (type do)) (vl-cmdf ".offset" "" do (getpoint (cadr do) "\n点选偏移方向:") "" ));选中实体. 
      ((= "Undo" do) (vl-cmdf ".u")) 
      ((= "Dist" do)  (setvar "offsetdist" (getdist "\n输入新的偏移距离:")) ) 
      ((or (= "eXit" do) 
           (and (= nil do)(= (getvar "errno") 52))) 
       (setq roop nil)) 
    ) 
  );end while 
  (vl-cmdf ".undo" "e") 
  (princ) 
)

aeo · 发表于 2003-12-17 22:03:57

我找找茬:)
1.没through喽,当然可以负值,但还是加个关键字好.
2.undo 把刚设的距离给还原了.(这是我最不能容忍的，又要设一遍)
3.偏移方向时，右键其实已经出错(不过好像不要紧)
4.应不应该把开头的设offsetdist给去掉?(按个d没我两下space快)

不过还是最成功的一个.

陌生人 · 发表于 2003-12-18 01:41:27

第二点可以考虑再完善下
4.左手键盘,我觉得按d和空格速度差不多,反正我是这样,如果有差别,退出时按x与按空格也扯平了. 不过也可以改,看看大家的意见,觉得哪种方便:)
对于第一点,关键字.我想展开讨论下. 你觉得好在哪里?如果不设置,不好在哪里?

LUCAS · 发表于 2003-12-18 08:05:33

;; 陌生人: 你的"增强的offset"程序没有<通过>功能
;; 变成"减弱的offset"了,当你把"增强命令"
;; 写得像原命令一样时,可能就简洁不起来了
;;--------------------------------------------
;; aeo: 改别人程序总没有重写来得顺
;;--------------------------------------------
;; FFS.LSP
;; 增强的OFFSET
;; BY LUCAS(龙龙仔)
;; 这种仿真命令的加强程序不太喜欢写
;; 为了保持原命令的原貌总是把程序加了一大堆
;; 命令也加强不了多少,只作练习用
(defun C:FFS (/ HOLDOSMODE HOLDCMD DIST LOOP COUNT ENT PNT)
(defun ERR (MSG)
(if HOLDOSMODE
(setvar "osmode" HOLDOSMODE)
)
(if HOLDCMD
(setvar "cmdecho" HOLDCMD)
)
(if OLD_ERROR
(setq *ERROR* OLD_ERROR)
)
(if (car ENT)
(redraw (car ENT) 4)
)
(command "_.undo" "_end")
(princ)
)
(defun DO_IT ()
(if (= (getvar "offsetdist") -1)
(progn
(initget "T ")
(setq
DIST (getdist
(strcat "\n指定偏移距离或 [通过(T)] <通过>: ")
)
)
)
(progn
(initget "T ")
(setq DIST (getdist (strcat "\n指定两边偏移距离 [通过(T)]<"
(rtos (getvar "offsetdist"))
">: "
)
)
)
(if (= DIST NIL)
(setq DIST (getvar "offsetdist"))
)
)
)
(if (or (= "T" DIST) (= DIST NIL))
(setvar "offsetdist" -1)
(setvar "offsetdist" DIST)
)
(setq LOOP t
COUNT 0
)
(while LOOP
(initget "Undo Option ")
(setq ENT (entsel "\n选取要偏移的对象/Undo/Option/<结束>: "))
(cond
((and (= 'list (type ENT)) (= (getvar "offsetdist") -1))
(redraw (car ENT) 3)
(setq PNT (getpoint "\n指定通过点: "))
(if (= PNT NIL)
(progn
(redraw (car ENT) 4)
(setq LOOP NIL)
)
(progn
(setq COUNT (1+ COUNT))
(command "_.offset" "T" ENT PNT "")
)
)
)
((= 'list (type ENT))
(redraw (car ENT) 3)
(setq PNT (getpoint "\n指定要在那一侧偏移复制: "))
(if (= PNT NIL)
(progn
(redraw (car ENT) 4)
(setq LOOP NIL)
)
(progn
(setq COUNT (1+ COUNT))
(command "_.offset" "" ENT PNT "")
)
)
)
((= "Undo" ENT)
(if (> COUNT 0)
(progn (command "_.UNDO" "1")
(setq COUNT (1- COUNT))
)
(princ "\n没有可Undo的了!")
)
)
((= "Option" ENT)
(DO_IT)
)
((and (= NIL ENT) (= (getvar "errno") 52))
(setq LOOP NIL)
)
)
)
)
(setq OLD_ERROR *ERROR*)
(setq *ERROR* ERR)
(setq HOLDOSMODE (getvar "OSMODE"))
(setq HOLDCMD (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(setvar "OSMODE" 0)
(command "_.UNDO" "_GROUP")
(DO_IT)
(command "_.UNDO" "_END")
(setq *ERROR* OLD_ERROR)
(setvar "OSMODE" HOLDOSMODE)
(setvar "CMDECHO" HOLDCMD)
(princ)
)
(princ)
(prompt "\n Type FFS 执行")

;; 陌生人: 你的"增强的offset"程序没有<通过>功能 
;;         变成"减弱的offset"了,当你把"增强命令" 
;;         写得像原命令一样时,可能就简洁不起来了 
;;-------------------------------------------- 
;; aeo: 改别人程序总没有重写来得顺 
;;-------------------------------------------- 
;; FFS.LSP 
;; 增强的OFFSET        
;; BY LUCAS(龙龙仔) 
;; 这种仿真命令的加强程序不太喜欢写 
;; 为了保持原命令的原貌总是把程序加了一大堆 
;; 命令也加强不了多少,只作练习用 
 
(defun C:FFS (/ HOLDOSMODE HOLDCMD DIST LOOP COUNT ENT PNT) 
 
  (defun ERR (MSG) 
    (if        HOLDOSMODE 
      (setvar "osmode" HOLDOSMODE) 
    ) 
    (if        HOLDCMD 
      (setvar "cmdecho" HOLDCMD) 
    ) 
    (if        OLD_ERROR 
      (setq *ERROR* OLD_ERROR) 
    ) 
    (if        (car ENT) 
      (redraw (car ENT) 4) 
    ) 
    (command "_.undo" "_end") 
    (princ) 
  ) 
 
  (defun DO_IT () 
    (if        (= (getvar "offsetdist") -1) 
      (progn 
        (initget "T ") 
        (setq 
          DIST (getdist 
                 (strcat "\n指定偏移距离或 [通过(T)] <通过>: ") 
               ) 
        ) 
      ) 
      (progn 
        (initget "T ") 
        (setq DIST (getdist (strcat "\n指定两边偏移距离 [通过(T)]<" 
                                    (rtos (getvar "offsetdist")) 
                                    ">: " 
                            ) 
                   ) 
        ) 
        (if (= DIST NIL) 
          (setq DIST (getvar "offsetdist")) 
        ) 
      ) 
    ) 
    (if        (or (= "T" DIST) (= DIST NIL)) 
      (setvar "offsetdist" -1) 
      (setvar "offsetdist" DIST) 
    ) 
    (setq LOOP t 
          COUNT        0 
    ) 
    (while LOOP 
      (initget "Undo Option ") 
      (setq ENT (entsel "\n选取要偏移的对象/Undo/Option/<结束>: ")) 
      (cond 
        ((and (= 'list (type ENT)) (= (getvar "offsetdist") -1)) 
         (redraw (car ENT) 3) 
         (setq PNT (getpoint "\n指定通过点: ")) 
         (if (= PNT NIL) 
           (progn 
             (redraw (car ENT) 4) 
             (setq LOOP NIL) 
           ) 
           (progn 
             (setq COUNT (1+ COUNT)) 
             (command "_.offset" "T" ENT PNT "") 
           ) 
         ) 
        ) 
        ((= 'list (type ENT)) 
         (redraw (car ENT) 3) 
         (setq PNT (getpoint "\n指定要在那一侧偏移复制: ")) 
         (if (= PNT NIL) 
           (progn 
             (redraw (car ENT) 4) 
             (setq LOOP NIL) 
           ) 
           (progn 
             (setq COUNT (1+ COUNT)) 
             (command "_.offset" "" ENT PNT "") 
           ) 
         ) 
        ) 
        ((= "Undo" ENT) 
         (if (> COUNT 0) 
           (progn (command "_.UNDO" "1") 
                  (setq COUNT (1- COUNT)) 
           ) 
           (princ "\n没有可Undo的了!") 
         ) 
        ) 
        ((= "Option" ENT) 
         (DO_IT) 
        ) 
        ((and (= NIL ENT) (= (getvar "errno") 52)) 
         (setq LOOP NIL) 
        ) 
      ) 
    ) 
  ) 
 
  (setq OLD_ERROR *ERROR*) 
  (setq *ERROR* ERR) 
  (setq HOLDOSMODE (getvar "OSMODE")) 
  (setq HOLDCMD (getvar "CMDECHO")) 
  (setvar "CMDECHO" 0) 
  (setvar "OSMODE" 0) 
  (command "_.UNDO" "_GROUP") 
  (DO_IT) 
  (command "_.UNDO" "_END") 
  (setq *ERROR* OLD_ERROR) 
  (setvar "OSMODE" HOLDOSMODE) 
  (setvar "CMDECHO" HOLDCMD) 
  (princ) 
) 
(princ) 
(prompt "\n Type FFS 执行")

qiankuncq · 发表于 2003-12-18 08:11:01

具体介绍一下功能，OK?

陌生人 · 发表于 2003-12-18 15:29:44

最初由 LUCAS 发布
[B][code]
;; 陌生人: 你的"增强的offset"程序没有<通过>功能
;; 变成"减弱的offset"了,当你把"增强命令"
;; 写得像原命令一样时,可能就简洁不起来了
;;-----------------------------------------... [/B]

谢谢提出意见
你的程序不错.可惜选 through 选项后又自动恢复,不能一直through下去.要通过option 改变.
我打算修改一下我的程序,加入through选项,并且加个开关

wangxi28 · 发表于 2003-12-18 15:52:21

各位真是LISP高手，能不能帮我写一个类似于晓东工具箱写剪贴板的小程序，主要功能是可以把CAD中的多个数字，或字符贴到excel表中，贴进去的当然不是CAD对象，以便进行下一步计算？

陌生人 · 发表于 2003-12-18 23:55:11

做了个完善点的,测试一下:)

;| fff.lsp=增强的offset,可中途undo--------------.2003.12
功能:可以 undo;中途改变偏移距离; (未选中物体不退出)
v1.0.2001
注明: 如要在r14下运行,将 vl-cmdf 改为 command
没有写出错处理,因为只改offsetdist系统变量,这个变量经常根据需要修改,没有保留恢复要
v1.1.2003.12 加入through的选项功能-可连续保持状态;加入偏移为当
前层选项及不能偏移的判定; 记录上一次的固定偏移距离,undo 也不会取消;加入显示设置状态信息;
后记:为实现多个选项同时工作,对主要执行部分做了较大改动,

复制代码

测试程序为.fas文件.加载后用 fff 执行

选项: Undo/Dist-调整偏移距离并设为固定方式/T-偏移方式开关-(通过or固定)/Clay-偏移到当前层or保持原层开关/eXit(空格或回车)/<选择偏移实体>:

要下快下了,三天后加收爱心币.我准备又可以再赌一场了.呵呵

陌生人 · 发表于 2003-12-19 00:15:07

效果:

账号		自动登录	找回密码
密码			立即注册

[编程申请]：增强的OFFSET

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子