[求助]：关于AUTOLisp的对象获取。请各位帮忙

enteryzw

关于AUTOLisp的对象获取。请教

我想通过编程直接获取图层中的对象。

用下面的子程序可以吗？

(setq ss (ssget "X" (list (cons 8 "wuti"))))
(setq en (ssname ss 0))
(setq ss1 (ssget "X" (list (cons 8 "zhou"))))
(setq en1 (ssname ss1 0))

其中wuti 和 zhou 是图层的名字，各个图层中都只有一个对象。
所以后面的索引值，我用了“0”，
wuti 中是转动体
zhou 中是转动轴
然后跟上一句
(setq ang 45)
(command "rotate3d" en "" "o" en1 ang)
但运行起来却提示en1找到了，en2未找到，需要手动拾取对象。ang也要手动输入。这是怎么回事呢？
请高手帮忙，谢谢了。

xyp1964

en1 改为(list en1(list 0 0 0)) ：
[php]
(defun c:test ()
  (setq        ss  (ssget "X" (list (cons 8 "wuti")))
        en  (ssname ss 0)
        ss1 (ssget "X" (list (cons 8 "zhou")))
        en1 (ssname ss1 0)
        ang 45
  )
  (command "rotate3d" en "" "o" (list en1(list 0 0 0)) ang)
  (princ)
)
[/php]

enteryzw

谢谢先。(list en1(list 0 0 0))中的0 0 0是它上面的某一点是吧，呵呵。
请问如果en1是运动变化的，我们如何获得它上面的某一点呢。谢谢版主，帮帮忙吧

xyp1964

都用 (list en1(list 0 0 0)) 估计没有问题，机器总没有人聪明！

enteryzw

呵呵，谢谢您的帮忙，我还想问一个问题。
有三个转动体和三根轴，
当第一个转动体绕第一根轴转动时，第二、三个转动体和第二、三根轴跟着一起转动。
当第二个转动体绕第二根轴转动时，第三个转动体和第三根轴也跟着转动。
第三个转动体绕第三根轴转动。
我让第一个转动体转-135~45度时，第二、三个转动体可以按照所要求的角度转动，可是一旦超出这个范围，第二、三个转动体就会向相反的方向转动，这是为什么？是因为第二、三根轴位置变了的
缘故吗？
谢谢，麻烦您了。

xyp1964

怎么像绕口令！还是发个图吧。

enteryzw

好的，附件中是图。绿色是转动体1，深蓝色时转动2，浅蓝色是转动3，3根红色的线对应3根轴。

lyczg8310

都具体点撒  不是很明白

enteryzw

好的，不好意思，没讲清楚，以上上楼的图来说，是这样的：

我们令绿色，深蓝色，浅蓝色的三个物体分别设为
zhuzhou1,shoubi2,shoubi3,他们分别在三个不同的图层。
还有三根红色的轴，分别为cen1,cen2,cen3。
我们假设
一：zhuzhou1,shoubi2,shoubi3,cen2,cen3绕cen1转动,角度为ang1;
二：shoubi2,shoubi3,cen3绕cen2转动,角度为ang2;
三：shoubi3绕cen3转动，角度为ang3.

如果我们设ang1为-135~45度时，无论ang2，ang3设为多少，
二和三都能正常转动。
但是当ang1超出这个范围时，虽然ang2，ang3设定好了，
但是二和三不能正常转动，
实际转动角度假设为ang2a，ang3a，恰巧满足
ang2a = -ang2，ang3a = -ang3，这是怎么回事？
有什么解决方法吗？谢谢各位了。