解决在AutoCAD 2002中使用Stretch命令时不支持先选择后命令

秋枫

应一同事要求撰写了这个程序

2. ;; 此程序用于在AutoCAD 2002中使Stretch命令支持先选择后命令
3. ;; AutoCAD 2004, 2005无须这个程序
4. ;; -------------------------------------------------------
5. ;; 程序设计：秋枫，2004年9月21日，在2002下测试通过
6. ;; =======================================================
7. ;; 命令：S (defun c:S (/ ss e pt plist cmdecho)
8.    (setq cmdecho (getvar "cmdecho"))
9.    (setvar "cmdecho" 0)
10.    (vl-catch-all-apply
11.        '(lambda ()
12.              (if (setq ss (ssget "I"))
13.                  (progn
14.                      (setq e (ssnamex ss 0))
15.                      (if (/= (caar e) 3)
16.                          (progn
17.                              (princ
18.                                  "\nSelect objects to stretch by crossing-window or crossing-polygon...\n"
19.                              )
20.                              (command "_.Stretch")
21.                          )
22.                          (progn                                         ;else
23.                              (sssetfirst nil nil)
24.                              (setq plist (cdadr e))
25.                              (setq plist (mapcar 'cadr plist))
26.                              (setq plist (mapcar '(lambda (pt) (trans pt 0 1)) plist))
27.                              (command "_.Stretch" "_CP")
28.                              (foreach pt plist (command pt))
29.                              (command "" "")
30.                          )
31.                      )
32.                  )
33.                  (progn                                                 ;else
34.                      (princ
35.                          "\nSelect objects to stretch by crossing-window or crossing-polygon...\n"
36.                      )
37.                      (command "_.Stretch")
38.                  )
39.              )
40.          )
41.    )
42.    (setvar "cmdecho" cmdecho)
43.    (princ)
44. )(princ)

;; 此程序用于在<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a> 2002中使Stretch命令支持先选择后命令 ;; AutoCAD 2004, 2005无须这个程序 ;; ------------------------------------------------------- ;; 程序设计：秋枫，2004年9月21日，在2002下测试通过 ;; ======================================================= ;; 命令：S (defun c:S (/ ss e pt plist cmdecho)    (setq cmdecho (getvar "cmdecho"))    (setvar "cmdecho" 0)    (vl-catch-all-apply        '(lambda ()              (if (setq ss (ssget "I"))                  (progn                      (setq e (ssnamex ss 0))                      (if (/= (caar e) 3)                          (progn                              (princ                                  "\nSelect objects to stretch by crossing-window or crossing-polygon...\n"                              )                              (command "_.Stretch")                          )                          (progn                                         ;else                              (sssetfirst nil nil)                              (setq plist (cdadr e))                              (setq plist (mapcar 'cadr plist))                              (setq plist (mapcar '(lambda (pt) (trans pt 0 1)) plist))                              (command "_.Stretch" "_CP")                              (foreach pt plist (command pt))                              (command "" "")                          )                      )                  )                  (progn                                                 ;else                      (princ                          "\nSelect objects to stretch by crossing-window or crossing-polygon...\n"                      )                      (command "_.Stretch")                  )              )          )    )    (setvar "cmdecho" cmdecho)    (princ) )(princ)

BDYCAD

我用2004版的CAD. 呵呵. 所没不有这个情况. 我还不知2002有这样的问题呢.


还有一般情况是由系统变量PICKFIRST控制的