请问怎么编程给已画好的图形命名？

jathney

就是编程让用户输入两个半径画好了两个圆，然后我后边要用到这两个圆求交点，怎么指出要用的是这两个圆呢？
顺便问下用(vla-intersectwith VLA对象 VLA对象 延伸模式）能实现我的目标吗~
求指导~
感谢~~


该贴已经同步到 jathney的微博

edata

看你怎么生成这两个圆。如果是command方式，那么用entlast获得最后生成的图元名方式可以获得。转化图元名求交点。
如果是entmakex方式，则直接得到图元名。转化图元名后求交点
如果是addcircle方式，直接得到圆的 VLA对象。可以直接求交点。

jathney

edata 发表于 2014-6-23 21:36
看你怎么生成这两个圆。如果是command方式，那么用entlast获得最后生成的图元名方式可以获得。转化图元名求 ...

请问第三个用addcircle，生成两个vla对象，依然没有名字呀= =、 那在(vla-intersectwith VLA对象 VLA对象 延伸模式）命令里调用的时候咋说是哪两个vla对象呢？

edata

来个实例

1. (defun c:tt(/ ipts lst myspace obj1 obj2)
   
2.   (setq myspace(vla-get-modelspace(vla-get-activedocument (vlax-get-acad-object))));取得模型空间对象,图纸空间是vla-get-paperspace
   
3.   (setq obj1 (vla-addcircle myspace (vlax-3d-point '(0 0 0)) 50);模型空间创建圆
   
4.         obj2 (vla-addcircle myspace (vlax-3d-point '(1 1 0)) 50)
   
5.         )
   
6.   (setq ipts(vla-intersectwith obj1 obj2 0));取得俩物体的交点变体
   
7.   (setq ipts(vlax-safearray->list(vlax-variant-value ipts));将vla交点变体转化成表的形式
   
8.         lst '())
   
9.   (if (>(length ipts) 3);分离多个交点
   
10.     (repeat(/(length ipts)3)
    
11.       (setq lst(cons(list(car ipts)(cadr ipts)(caddr ipts)) lst))
    
12.       (setq ipts(cdddr ipts))
    
13.       )
    
14.     )
    
15.     lst
    
16.   )
    
17. (defun c:tt2(/ en1 en2 ipts lst obj1 obj2)
    
18.   (setq en1(entmakex(list '(0 . "circle")(cons 10 '(0 0 0))(cons 40 50)))
    
19.         en2(entmakex(list '(0 . "circle")(cons 10 '(1 1 0))(cons 40 50)))
    
20.         )
    
21.   (setq obj1(vlax-ename->vla-object en1)
    
22.         obj2(vlax-ename->vla-object en2)
    
23.         )
    
24.   (setq ipts(vla-intersectwith obj1 obj2 0));取得俩物体的交点变体
    
25.   (setq ipts(vlax-safearray->list(vlax-variant-value ipts));将vla交点变体转化成表的形式
    
26.         lst '())
    
27.   (if (>(length ipts) 3);分离多个交点
    
28.     (repeat(/(length ipts)3)
    
29.       (setq lst(cons(list(car ipts)(cadr ipts)(caddr ipts)) lst))
    
30.       (setq ipts(cdddr ipts))
    
31.       )
    
32.     )
    
33.     lst
    
34.   )
    
35. (defun c:tt3(/ en1 en2 ipts lst obj1 obj2)
    
36.   (command "circle" "non" '(0 0 0) "non" "50")
    
37.   (setq en1(entlast))
    
38.   (command "circle" "non" '(1 1 0) "non" "50")
    
39.   (setq en2(entlast))
    
40.   (setq obj1(vlax-ename->vla-object en1)
    
41.         obj2(vlax-ename->vla-object en2)
    
42.         )
    
43.   (setq ipts(vla-intersectwith obj1 obj2 0));取得俩物体的交点变体
    
44.   (setq ipts(vlax-safearray->list(vlax-variant-value ipts));将vla交点变体转化成表的形式
    
45.         lst '())
    
46.   (if (>(length ipts) 3);分离多个交点
    
47.     (repeat(/(length ipts)3)
    
48.       (setq lst(cons(list(car ipts)(cadr ipts)(caddr ipts)) lst))
    
49.       (setq ipts(cdddr ipts))
    
50.       )
    
51.     )
    
52.     lst
    
53.   )
    
54. 
    
55. 
    
56. 
    

(defun c:tt(/ ipts lst myspace obj1 obj2)<br />   (setq myspace(vla-get-modelspace(vla-get-activedocument (vlax-get-acad-object))));取得模型空间对象,图纸空间是vla-get-paperspace<br />   (setq obj1 (vla-addcircle myspace (vlax-3d-point '(0 0 0)) 50);模型空间创建圆<br />         obj2 (vla-addcircle myspace (vlax-3d-point '(1 1 0)) 50)<br />         )<br />   (setq ipts(vla-intersectwith obj1 obj2 0));取得俩物体的交点变体<br />   (setq ipts(vlax-safearray->list(vlax-variant-value ipts));将vla交点变体转化成表的形式<br />         lst '())<br />   (if (>(length ipts) 3);分离多个交点<br />     (repeat(/(length ipts)3)<br />       (setq lst(cons(list(car ipts)(cadr ipts)(caddr ipts)) lst))<br />       (setq ipts(cdddr ipts))<br />       )<br />     )<br />     lst<br />   )<br /> (defun c:tt2(/ en1 en2 ipts lst obj1 obj2)<br />   (setq en1(entmakex(list '(0 . "circle")(cons 10 '(0 0 0))(cons 40 50)))<br />         en2(entmakex(list '(0 . "circle")(cons 10 '(1 1 0))(cons 40 50)))<br />         )<br />   (setq obj1(vlax-ename->vla-object en1)<br />         obj2(vlax-ename->vla-object en2)<br />         )<br />   (setq ipts(vla-intersectwith obj1 obj2 0));取得俩物体的交点变体<br />   (setq ipts(vlax-safearray->list(vlax-variant-value ipts));将vla交点变体转化成表的形式<br />         lst '())<br />   (if (>(length ipts) 3);分离多个交点<br />     (repeat(/(length ipts)3)<br />       (setq lst(cons(list(car ipts)(cadr ipts)(caddr ipts)) lst))<br />       (setq ipts(cdddr ipts))<br />       )<br />     )<br />     lst<br />   )<br /> (defun c:tt3(/ en1 en2 ipts lst obj1 obj2)<br />   (command "circle" "non" '(0 0 0) "non" "50")<br />   (setq en1(entlast))<br />   (command "circle" "non" '(1 1 0) "non" "50")<br />   (setq en2(entlast))<br />   (setq obj1(vlax-ename->vla-object en1)<br />         obj2(vlax-ename->vla-object en2)<br />         )<br />   (setq ipts(vla-intersectwith obj1 obj2 0));取得俩物体的交点变体<br />   (setq ipts(vlax-safearray->list(vlax-variant-value ipts));将vla交点变体转化成表的形式<br />         lst '())<br />   (if (>(length ipts) 3);分离多个交点<br />     (repeat(/(length ipts)3)<br />       (setq lst(cons(list(car ipts)(cadr ipts)(caddr ipts)) lst))<br />       (setq ipts(cdddr ipts))<br />       )<br />     )<br />     lst<br />   )<br /> <br /> <br /> <br />

jathney

edata 发表于 2014-6-23 22:06
来个实例

l了解了~谢谢！

jathney

edata 发表于 2014-6-23 22:06
来个实例

再问一下 程序倒数第二句：(setq ipts(cdddr ipts)) 中的cdddr是什么意思？是保留从第四个元素开始的所有元素到ipts中吗？

ll_j

jathney 发表于 2014-6-25 16:32
再问一下 程序倒数第二句：(setq ipts(cdddr ipts)) 中的cdddr是什么意思？是保留从第四个元素开始的所有 ...

(cdddr x)=(cdr (cdr (cdr x)))，最多只能“简化”四重。

jathney

ll_j 发表于 2014-6-25 16:46
(cdddr x)=(cdr (cdr (cdr x)))，最多只能“简化”四重。

谢谢~~~~~~~~