《菜鸟提问》 qselect命令是否可以用command命令调用？

HGHG011

《菜鸟提问》 qselect命令是否可以用command命令调用？
如果可以调用那他的参数怎么设置？

我用要快速选择天正的墙体 所以ssget命令貌似不能筛选
例如：我要选择图层wall上的150厚的墙体，命令怎么写
求大虾帮忙啊

zjsru_18_505

参见：http://bbs.mjtd.com/forum.php?mod=viewthread&tid=73386

1. (defun C:TEST ()
   
2.   (setq N 1)                                ;对象类型墙所在位置
   
3.   (setq N1 2)                                ;墙总宽所在位置
   
4.   (setq WI "200")                        ;墙厚
   
5.   (vlax-invoke-method
   
6.     (vlax-get (vlax-get-acad-object) 'ACTIVEDOCUMENT)
   
7.     'SENDCOMMAND
   
8.     (car (list "Qselect "
   
9.                (vlax-invoke-method
   
10.                  (vlax-get-or-create-object "WScript.Shell")
    
11.                  'SENDKEYS
    
12.                  "%b{DOWN 9}%p{DOWN 15}%v200{Enter}"
    
13.                  ;;9是对象类型墙所在位置 15是墙总宽所在位置 200是墙厚，根据需修改
    
14.                )
    
15.          )
    
16.     )
    
17.   )
    
18. )

(defun C:TEST ()<br />   (setq N 1)                                ;对象类型墙所在位置<br />   (setq N1 2)                                ;墙总宽所在位置<br />   (setq WI "200")                        ;墙厚<br />   (vlax-invoke-method<br />     (vlax-get (vlax-get-acad-object) 'ACTIVEDOCUMENT)<br />     'SENDCOMMAND<br />     (car (list "Qselect "<br />                (vlax-invoke-method<br />                  (vlax-get-or-create-object "WScript.Shell")<br />                  'SENDKEYS<br />                  "%b{DOWN 9}%p{DOWN 15}%v200{Enter}"<br />                  ;;9是对象类型墙所在位置 15是墙总宽所在位置 200是墙厚，根据需修改<br />                )<br />          )<br />     )<br />   )<br /> )

HGHG011

没人会吗？还是根被不能用command的命令输入参数？

HGHG011

求大虾帮忙啊

我的我啊

(ssget'((0 . TCH_WALL)(41 . 75.0))))

HGHG011

我的我啊 发表于 2014-8-28 10:41
(ssget'((0 . TCH_WALL)(41 . 75.0))))

（41 . 75.0) 只是选择右宽厚度为75的墙体，而不是总厚为150mm的墙体。不过还是谢谢你的回答，希望可以找出别的办法

HGHG011

zjsru_18_505 发表于 2014-8-28 14:37
参见：http://bbs.mjtd.com/forum.php?mod=viewthread&tid=73386

谢谢 初步了解了一些，不过还需要深入学习，再次感谢

HGHG011

zjsru_18_505 发表于 2014-8-27 10:41
参见：http://bbs.mjtd.com/forum.php?mod=viewthread&tid=73386

大虾 求问 天正命令TPartSaveAs（局部导出）    是不是不通过这种方法设置呢？或者说怎么去实现呢？
谢谢大虾了，

我的我啊

HGHG011 发表于 2014-8-28 11:54
（41 . 75.0) 只是选择右宽厚度为75的墙体，而不是总厚为150mm的墙体。不过还是谢谢你的回答，希望可以找 ...

(command
"pselect"
(SJ:ssget<->list
  (mapcar 'vlax-vla-object->ename
          (vl-remove-if-not
           '(lambda (x) (= (vlax-get x 'TotalWidth) 200))
           (mapcar 'vlax-ename->vla-object
                   (SJ:ssget<->list (ssget '((0 . "TCH_WALL"))))
           )
          )
  )
)
""
)

200为墙厚

wayne_myles

zjsru_18_505 发表于 2014-8-27 10:41
参见：http://bbs.mjtd.com/forum.php?mod=viewthread&tid=73386

真的很好思路，就是按键部分没执行求改进