有请x_s_s_1大师 求帮忙。。。。。谢谢

flytoday

关于柱依照轴线缩放的源码其中一段我想修改下，请大师帮忙谢谢，。，，，，，，，

x_s_s_1大师源码：
http://bbs.mjtd.com/thread-95861-1-1.html



(defun zsf (/ ss_all ss_dot ss_sc ss_pts pt ssets scal x objss )

(setvar "cmdecho" 0)

    (Prompt "\n请选择指定不缩放的轴网线层: ")

    (setq en (assoc 8 (entget (car (entsel)))));;这种直接读到其所选择的图元的图层名,要怎么写啊…..

(princ)

  (prompt "\n请选择需要进行缩放的物体:")   

  (setq ss_all (ssget));选择图层 (setq en (assoc 8 (entget (car (entsel)))))

  (setq ss_dot (ssget "p" '((0 . "*line") (8 . "dote,axis"))));轴网线图层

;;;;请问x_s_s_1大师这个地方的的图层名怎么引用上面已[指定不缩放的轴网线层名]

  (command "._Select" ss_all "remove" ss_dot "")

  (setq ss_sc (ssget "p"))

  (setq ss_pts (lst_ssn ss_dot))

  (setq pt (car(Curveinters (car ss_pts) (cadr ss_pts))))

  (setq ssets (lst_ssn ss_sc))

烦劳大师了谢谢。。。。。

flytoday

大师不给回个…………大师教下啊………普及下知识嘛……………………

x_s_s_1

flytoday 发表于 2012-8-4 11:09
大师不给回个…………大师教下啊………普及下知识嘛……………………

别，搞得我没脸见人了

2. (vl-load-com)
   
3. ;;;lst_ssn函数(lst_ssn ss)
   
4. ;;;ss参数：选折集
   
5. ;;;返回图元名表
   
6. (defun lst_ssn (ss / n lst)
   
7.   (repeat (setq N (sslength ss))
   
8.     (setq LST (cons (ssname SS (setq N (1- N))) LST))
   
9.   ) ;_ 结束repeat
   
10. ) ;_ 结束defun
    
11. ;;;计算曲线交点
    
12. (defun Curveinters (en1 en2 / pl pts)
    
13.   (setq pl  (vlax-invoke (vlax-ename->vla-object en2) 'IntersectWith (vlax-ename->vla-object en1) acExtendNone))
    
14.   (while pl
    
15.     (setq pts (append pts (list (list (car pl) (cadr pl) (caddr pl))))
    
16.    pl (cdr (cdr (cdr pl)))
    
17.    )
    
18.     )
    
19. pts
    
20.   )
    
21. (defun zsf (/ dot_8 ss_all ss_dot ss_sc ss_pts pt ssets scal x objss )
    
22.   (setvar "cmdecho" 0)
    
23.   (setq dot_8(assoc 8 (entget(car(entsel "\n选择轴线层图元：")))))
    
24.   (prompt "\n请选择需要进行缩放的物体:")   
    
25.   (setq ss_all (ssget));此处可根据个人习惯增加图层(ssget  '((8 . "colu,dim,sbar,dote,axis")))
    
26.   (setq ss_dot (ssget "p" (list '(0 . "*line") dot_8)));此处图层根据个人习惯改
    
27.   (command "._Select" ss_all "remove" ss_dot "")
    
28.   (setq ss_sc (ssget "p"))
    
29.   (setq ss_pts (lst_ssn ss_dot))
    
30.   (setq pt (car(Curveinters (car ss_pts) (cadr ss_pts))))
    
31.   (setq ssets (lst_ssn ss_sc))
    
32.   (if (setq scal (getreal "\n比例因子<0.25>:"))
    
33.     t
    
34.     (setq scal 0.25))
    
35.   (foreach x ssets  
    
36.     (setq objss (vlax-ename->vla-object x))  
    
37.     (vla-scaleentity objss (vlax-3D-point pt) scal)
    
38.   )  
    
39. )
    
40. (defun c:scc ()  
    
41.   (zsf)  
    
42.   (princ)  
    
43. )

(vl-load-com)<br /> ;;;lst_ssn函数(lst_ssn ss)<br /> ;;;ss参数：选折集<br /> ;;;返回图元名表<br /> (defun lst_ssn (ss / n lst)<br />   (repeat (setq N (sslength ss))<br />     (setq LST (cons (ssname SS (setq N (1- N))) LST))<br />   ) ;_ 结束repeat<br /> ) ;_ 结束defun<br /> ;;;计算曲线交点<br /> (defun Curveinters (en1 en2 / pl pts)<br />   (setq pl  (vlax-invoke (vlax-ename->vla-object en2) 'IntersectWith (vlax-ename->vla-object en1) acExtendNone))<br />   (while pl<br />     (setq pts (append pts (list (list (car pl) (cadr pl) (caddr pl))))<br />    pl (cdr (cdr (cdr pl)))<br />    )<br />     )<br /> pts<br />   )<br /> (defun zsf (/ dot_8 ss_all ss_dot ss_sc ss_pts pt ssets scal x objss )<br />   (setvar "cmdecho" 0)<br />   (setq dot_8(assoc 8 (entget(car(entsel "\n选择轴线层图元：")))))<br />   (prompt "\n请选择需要进行缩放的物体:")    <br />   (setq ss_all (ssget));此处可根据个人习惯增加图层(ssget  '((8 . "colu,dim,sbar,dote,axis")))<br />   (setq ss_dot (ssget "p" (list '(0 . "*line") dot_8)));此处图层根据个人习惯改<br />   (command "._Select" ss_all "remove" ss_dot "")<br />   (setq ss_sc (ssget "p"))<br />   (setq ss_pts (lst_ssn ss_dot))<br />   (setq pt (car(Curveinters (car ss_pts) (cadr ss_pts))))<br />   (setq ssets (lst_ssn ss_sc))<br />   (if (setq scal (getreal "\n比例因子<0.25>:"))<br />     t<br />     (setq scal 0.25)) <br />   (foreach x ssets  <br />     (setq objss (vlax-ename->vla-object x))  <br />     (vla-scaleentity objss (vlax-3D-point pt) scal) <br />   )  <br /> )<br /> (defun c:scc ()  <br />   (zsf)  <br />   (princ)  <br /> )