[LISP]求救 谢谢呵呵！

呆呆

飞哥我想的情况和您的有点小小的差别  我以为就想CAD系统命令那样 只要输入一次偏移距离后就可以 连续选择要偏移的对象目标  
而您改的是 偏移一个目标后还要询问输入偏移距离 按下一个空格或者ENTER才能偏移下一个

呆呆

飞哥 您看我改的对否 我自己仔细的看了一下 吸取了您的教训 做了以下改动：
(defun c:op (/ oce ofe ode e1 dist)
  (setq ode (getvar "osmode"))
  (setq oce (getvar "cmdecho"))
  (setq ofe (getvar "clayer"))
  (setvar "osmode" 0)
  (initget "q")
  (setq dist (getreal (strcat "输入偏移距离[(Q)退出]<"
         (rtos (getvar "offsetdist"))
         ">:"
        )
      )
  )
  (if (not dist)
    (setq dist (getvar "offsetdist"))
  )

  (while  
      (setvar "cmdecho" 1)
      (command "offset" dist pause pause "")
      (setq e1 (entlast))
      (setvar "cmdecho" 0)
      (command "change" e1 "" "p" "la" ofe "")
  )
   (setvar "osmode" ode)
   (setvar "cmdecho" oce)
   (princ)
  )

呆呆

不好意思 刚才那个没有看到Q 现在我把Q去掉了 飞哥您看对吗？
(defun c:op (/ oce ofe ode e1 dist)
  (setq ode (getvar "osmode"))
  (setq oce (getvar "cmdecho"))
  (setq ofe (getvar "clayer"))
  (setvar "osmode" 0)
  (setq dist (getreal (strcat "输入偏移距离<"
         (rtos (getvar "offsetdist"))
         ">:"
        )
      )
  )
  (if (not dist)
    (setq dist (getvar "offsetdist"))
  )

  (while  
      (setvar "cmdecho" 1)
      (command "offset" dist pause pause "")
      (setq e1 (entlast))
      (setvar "cmdecho" 0)
      (command "change" e1 "" "p" "la" ofe "")
  )
   (setvar "osmode" ode)
   (setvar "cmdecho" oce)
   (princ)
  )

meflying

你的程序是无法正确退出的，这在我回答你的时候已经说过这个问题了。。。
你看看这个。。。右键退出。。。

2. 
   
3. 
   
4. (defun Sel (_types msg / gr ent m ty)
   
5.   (defun com(ty tylst / i rVal)
   
6.     (setq i 0)
   
7.     (while (< i (length tylst))
   
8.       (if (= ty (nth i tylst))
   
9.         (progn (setq rVal t) (setq i (length tylst)))
   
10.       )
    
11.       (setq i (1+ i))
    
12.     )
    
13.     rVal
    
14.   )
    
15.   (prompt msg)
    
16.   (setq m nil)
    
17.   (while (not m)
    
18.     (setq gr (grread 2 4 2))
    
19.     (cond
    
20.       ((= (car gr) 3)
    
21.        (setq ent (ssget (cadr gr)))
    
22.        (if (not (and ent (com (cdr (assoc 0 (entget (setq ent (ssname  ent 0))))) _types)))
    
23.          
    
24.          (setq ent nil)
    
25.        )
    
26.        (setq m t)
    
27.       )
    
28.       ((= (car gr) 25) (setq m t))
    
29.     )
    
30.   )
    
31.   (princ "\n")
    
32.   (if ent (list ent (cadr gr))
    
33.     (if (= 25 (car gr)) 0 1))
    
34. )
    
35. 
    
36. (defun o_set ()  
    
37.   (setq enta (sel '("LINE" "LWPOLYLINE" "POLYLINE" "SPLINE") "\n选择偏移对象..."))
    
38.   (cond
    
39.     ((= (type enta) 'LIST)
    
40.      (setvar "cmdecho" 1)
    
41.       (command "offset" dist enta pause "")
    
42.       (setq e1 (entlast))
    
43.       (setvar "cmdecho" 0)
    
44.       (command "change" e1 "" "p" "la" ofe "")
    
45.     )
    
46.     ((= enta 0) (setq m nil))
    
47.   )
    
48. )
    
49. (defun c:op (/ oce ofe ode e1)
    
50.   (setq ode (getvar "osmode"))
    
51.   (setq oce (getvar "cmdecho"))
    
52.   (setq ofe (getvar "clayer"))
    
53.   (setvar "osmode" 0)
    
54.   (setq m t)
    
55.   (setq        dist (getreal (strcat "输入偏移距离<"
    
56.                               (rtos (getvar "offsetdist"))
    
57.                               ">:"
    
58.                       )
    
59.              )
    
60.   )
    
61.   (if (not dist)
    
62.     (setq dist (getvar "offsetdist"))
    
63.   )
    
64.   (while m
    
65.     (o_set)
    
66.   )
    
67.   (setvar "cmdecho" oce)
    
68.   (setvar "osmode" ode)
    
69.   (prin1)
    
70. )
    
71. 
    

<br /> <br /> (defun Sel (_types msg / gr ent m ty)<br />   (defun com(ty tylst / i rVal)<br />     (setq i 0)<br />     (while (< i (length tylst))<br />       (if (= ty (nth i tylst))<br />         (progn (setq rVal t) (setq i (length tylst)))<br />       )<br />       (setq i (1+ i))<br />     )<br />     rVal<br />   )<br />   (prompt msg)<br />   (setq m nil)<br />   (while (not m)<br />     (setq gr (grread 2 4 2))<br />     (cond<br />       ((= (car gr) 3)<br />        (setq ent (ssget (cadr gr)))<br />        (if (not (and ent (com (cdr (assoc 0 (entget (setq ent (ssname  ent 0))))) _types)))<br />          <br />          (setq ent nil)<br />        )<br />        (setq m t)<br />       )<br />       ((= (car gr) 25) (setq m t))<br />     )<br />   )<br />   (princ "\n")<br />   (if ent (list ent (cadr gr))<br />     (if (= 25 (car gr)) 0 1))<br /> )<br /> <br /> (defun o_set ()  <br />   (setq enta (sel '("LINE" "LWPOLYLINE" "POLYLINE" "SPLINE") "\n选择偏移对象..."))<br />   (cond<br />     ((= (type enta) 'LIST)<br />      (setvar "cmdecho" 1)<br />       (command "offset" dist enta pause "")<br />       (setq e1 (entlast))<br />       (setvar "cmdecho" 0)<br />       (command "change" e1 "" "p" "la" ofe "")<br />     )<br />     ((= enta 0) (setq m nil))<br />   )<br /> )<br /> (defun c:op (/ oce ofe ode e1)<br />   (setq ode (getvar "osmode"))<br />   (setq oce (getvar "cmdecho"))<br />   (setq ofe (getvar "clayer"))<br />   (setvar "osmode" 0)<br />   (setq m t)<br />   (setq        dist (getreal (strcat "输入偏移距离<"<br />                               (rtos (getvar "offsetdist"))<br />                               ">:"<br />                       )<br />              )<br />   )<br />   (if (not dist)<br />     (setq dist (getvar "offsetdist"))<br />   )<br />   (while m<br />     (o_set)<br />   )<br />   (setvar "cmdecho" oce)<br />   (setvar "osmode" ode)<br />   (prin1)<br /> )<br /> <br />

呆呆

飞哥 不过也是不容易退出 只有按下ESC 才行

meflying

难道你没看见我写在程序前面的提示？？？？？？？？？？？
右键（鼠标右键，这个总应该能够明白吧）退出。。。。。。。。。。。

呆呆

对不起飞哥 我当时发的时候没有看见你的程序  

请问飞哥 幻灯片.sld文件是怎么编译的

呆呆

还有飞哥您的程序还是不能正确的退出  而且您的程序不能选择偏移圆或者圆弧

meflying

这个函数你应该能明白，在SEL函数的类型列表中加入圆或圆弧就可以选择圆或圆弧了。。。

在提示选择对象的时候如果点击鼠标的右键就退出程序了，非要我说的这么明白？
如果你是这样做的，说说点击后发生什么事

龙龙仔

;;前几天LYY网友不是有提供方法了吗?
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=13440

;;BY 龙龙仔(LUCAS)
;;我只加了你要的转换图层(假设有HIDDEN图层)
(defun C:POFFSET (/ HOLDECHO ENT)
  (command "_.offset"
           (progn
             (initget 7)
             (getdist "\n指定偏移距离: ")
           )
           (entsel "\n选取要偏移的对象: ")
  )
  (setq HOLDECHO (getvar "CMDECHO"))
  (setvar "cmdecho" 1)
  (while (/= 0 (getvar "cmdactive"))
    (command PAUSE)
    (setq ENT (entget (entlast)))
    (setq ENT (subst (cons 8 "hidden") (assoc 8 ENT) ENT))
    (entmod ENT)
  )
  (setvar "cmdecho" HOLDECHO)
  (princ)
)