[求助]求助有关实体操作的函数？？

runkeji

关于实体的判断与检测。  例如 ，面域与直线的区别。怎样通过表达式的判断区别开来呀

王咣生

实体类型区别:
    面域 REGION    (= (cdr (assoc 0 (entget (car (entsel))))) "REGION")  返回t
    直线  LINE       (= (cdr (assoc 0 (entget (car (entsel))))) "LINE")  返回t

runkeji

你好：
    程序是这样的。
    (defun c:ju( / )
   (setq sd nil);;首先进行初始化
  (setq sm nil)
  (setq ew nil
        en nil
        )
  (setq sc nil)
  (prompt "\n 选择多义线或者要转化为多义线的图元")
  (setq sd (ssget w));;创建进行多义线转化的选择集
  (prompt "\n选择创建面域的对象")
  (setq sm (ssget w));;;选择创建面域的对象
  ;(prompt "\n选择面域的外腔")
  ;(setq ew(car(entsel "\n点选面域的外腔")))
  ;(prompt "\n 选择面域的内腔")
  ;(setq en (car(entsel "\n点选面域的内腔")))
  ;(prompt "\n选择查询的对象")
         ;(setq sc( ssget w))
        (if(= (cdr(assoc 0 (entget(car(entsel) ))))"region")
          ;(progn
            ;(command "pedit" sd "j" " ")
            ;(command "region" sd)
            ;(if(apply (eq'( (type ew) (type  en)  "ename" (type ew))))
            (progn
              (prompt "\n选择面域的外腔")
              (setq ew (ssget))
              (prompt "\n 选择面域的内腔")
              (setq en (ssget))
              (prompt "\n选择查询的对象")
              (setq sc( ssget w))
              (command "subtract" ew " " en " ")
              (command "massprop" sc)
              )
          )
          (if(=(cdr(assoc 0(entget(car(entsel))))) "pline")
            (progn
              (command "region" sm " ")
              )
            (progn
              (command "pedit" sd "j" " ")
              )
              ;(setq ew (car (entsel "\n点选面域的外腔")))
              ;(setq en (car (entsel "\n点选面域的内腔")))
              ;(command "subtract" ew " "  en " ")
              ;(command "massprop" sc)
            )
  )


主要想完成的功能：   1、如果图形未转化为多义线，先转化为多义线。“PEDIT”
                              2、如果图形已转化为多义线， 那么根据闭合的区域创建面域。
                                   ‘REGION“
                              3、对实体进行编辑，计算实体的差集。”SUBTRACT“
                                  （COMMAND ”SUBTRACT“ S1  ” “ S2） 为什么在计算实体差集
                                    时，选择的实体只有”从中减去的实体“即S1，而实体2 ，S2 选择
                                  无效呢。
                              4、怎样才能让程序一气呵成。一个命令执行结束呢。
                                   现在程序执行了”PEDIT“命令后，就会跳出。必须再执 行
                                   命令JU时，程序才会执行 ”REGION“ 命令。每  
                                   个都这样。

meflying

2.    (progn
   
3.        (prompt "\n选择面域的外腔")
   
4.        (setq ew (ssget))
   
5.        (prompt "\n 选择面域的内腔")
   
6.        (setq en (ssget))
   
7.        (prompt "\n选择查询的对象")
   
8.        (setq sc( ssget w))
   
9.        (command "subtract" ew " " en " ")
   
10.        (command "massprop" sc)
    
11.        )

   (progn<br />        (prompt "\n选择面域的外腔")<br />        (setq ew (ssget))<br />        (prompt "\n 选择面域的内腔")<br />        (setq en (ssget))<br />        (prompt "\n选择查询的对象")<br />        (setq sc( ssget w))<br />        (command "subtract" ew " " en " ")<br />        (command "massprop" sc)<br />        )

你的程序这里是不可行的，
你选择了内外腔后，还未进行SUBSTRACT，因此需要查询的对象还未生成，你边要求选择查询的对象，怎么选择呢？

runkeji

你好：

   我想得到这样的结果：

          惯性矩：      X    某个值
                            Y    某个值


应该怎么做呢？