[原创]：解决方案：在AutoCAD 2002中使Stretch支持先选择后命令

秋枫

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

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

梦断江南

不是很理解什么是"先选择后命令"
如果是说可先选择后调用stretch命令,可是要先输入c:s命令啊!! 这个过程和直接调用stretch有什么不同的地方么?
我还以为是说对选择过的实体都有stretch的作用,但是测试也只是对最后一个选取方式执行stretch.其实既然用ssnamex,这一点是完全可以做到的.也就是et工具里面多次同时拉伸的效果.

试试这个:

oklaishu

我好像不太明白哩

梦断江南

最初由 梦断江南 发布
[B]不是很理解什么是"先选择后命令"
如果是说可先选择后调用stretch命令,可是要先输入c:s命令啊!! 这个过程和直接调用stretch有什么不同的地方么?
我还以为是说对选择过的实体都有stretch的作用,但是测试也只是对最后... [/B]

演示:


[swf w=800 h=600]http://www.xdcad.net/article/upload/file/291_20040925062851_stmd=动态多选区拉伸.swf[/swf]

秋枫

说明一下：

此程序并非增加什么新功能，而是Fix原来AutoCAD2002的一个Bug。

AutoCAD R14, 2004, 2005的Stretch命令都是直接支持先选后命令的。因一同事原来用R14，升成2002后Stretch命令不支持这种方式感到很不习惯，向我询问。我一试果然有这个问题。这个算是修正AutoCAD 2002的这个Bug。

我也习惯先选择后命令，但Stretch例外，所以从来没有注意过这事。

此文件仅仅是修正AutoCAD2002的这个问题。此问题在R14，2004，2005中均不存在。

另问江南一个问题：
ssnamex返回的坐标是DCS还是WCS，DCS与WCS的关系是什么样的，与UCS的关系又是什么样的？

梦断江南

原来如此,我也没注意过这个,呵呵.不过已经不用2002了
ssnamex返回的坐标通常应该是WCS.
另,帮助里面说:

1. 
   
2. 按视区的位置, 一个 point_description 所代表的可能是：一条无尽的
   
3. 线、一条射线或是一条线段。因此, 一个点描述将包含：点描述 ID
   
4. 码、起点以及可有可无的单位向量。格式如下所示:
   
5. 
   
6.     (point_descriptor_id base_point [unit_or_offset_vector])
   
7. 
   
8.     下面就是点描述码的意义列表:
   
9. 
   
10. ID码
    
11. 意    义
    
12. 
    
13. ０
    
14. 无尽的线(即 Xline)
    
15. 
    
16. １
    
17. 射线(即 Ray)
    
18. 
    
19. ２
    
20. 线段
    
21. 
    
22. 
    
23.        当视点有别于 (0, 0, 1) 坐标点时, unit_or_offset_vector将被返
    
24. 回。例如:
    
25. 
    
26.     (1 <Entity name：60000064> (0 (1.0 1.0 0.0) ) )

复制代码

但我对点的id码在什么情况下有什么作用也还不太了解. lucas或哪
位高手给说说吧? :)

Free-Lancer

以前找到的一个资料，哪位翻译下
http://intervision.hjem.wanadoo.dk/ssget1.htm

[iframe h=600]http://intervision.hjem.wanadoo.dk/ssget1.htm[/iframe]

saltxf

找个翻译软件翻译一下就可以了。
我们这里一个叫 aidraft  的高手很厉害的，让她翻译一下好了。

Free-Lancer

最初由 saltxf 发布
[B]找个翻译软件翻译一下就可以了。
我们这里一个叫 aidraft  的高手很厉害的，让她翻译一下好了。 [/B]

她！ ？ 佩服佩服

梦断江南

前面部分和cad的帮助差不多,后面举了几个例子,其中

1. ((1 [picked by point] <Entity name: 1462e50> [the selected entity] 0
   
2. (0 (292.789 243.562 0.0)) [picked point] (1.0 0.0 0.0) (0.0 1.0 0.0)
   
3. (0.0 0.0 1.0) [transformation matrix] (247.729 242.464 0.0)
   
4. <Entity name: 1462e68>) [main entity with insertion point])

复制代码

挺好,便于理解各部分的参数含义

zippo11

非常感谢秋枫兄给大家带了福音，但是我还有一点疑问，不知秋枫
兄能否帮助解决：你的程序对对象进行选择时只支持反向选择，点选对象后再正向或反向选择夹点进行拉伸则都不支持，不知能否解决？？
怎么没有人回复呢？那我就在此班门弄斧一下：我看了一下程序代码，程序在建立选择集的时候只支持第一次的选择对象，对于后面选择的对象不做处理。还有就是r14，2002，2004等中的自身stretch命令支持grip选择来对对象进行拉伸处理，而在秋枫兄的程序中则不支持，我希望大家能共同来完善，共同进步。在此献丑了。