关于xdata ssget对象过滤包括-3的问题

名片

坑你

lv0

需求:

BUG:

已完成:

进行中:

BUG 热度

  • 需求ID:暂无
  • 需求状态: 进行中 已完成
  (setq text_list (list ‘(0 . “*TEXT”)
                        ‘(-4 . “<and”)
                        ‘(-4 . “<,<,*”) (cons 10 ptt2)
                        ‘(-4 . “>,>,*”) (cons 10 ptt1)
                        ‘(-4 . “and>”)                        
                         (list -3 (list “*” (cons 1000 xtext)))
                  )
  )
  ;
  (setq sstext (ssget “x” text_list))
 
在扩展应用只有一个的时候没有问题能获取到对象,当有多个应用对象的时候获取不到对象
下面是两个扩展应用获取不到在autocad中没有问题
(-3
      (
        “ACAD”
        (1000 . “MTEXTBEGIN”)
        (1070 . 73)
        (1070 . 1)
        (1070 . 44)
        (1040 . 1.0)
        (1070 . 74)
        (1070 . 0)
        (1000 . “MTEXTEND”)
      )
      (
        “klisp”
        (1000 . “wjy”)
        (1040 . 0.0)
        (1070 . 0)
      )
    )
下面是一个扩展应用能获取到
(-3 
      (
        “klisp”
        (1000 . “wjy”)
        (1040 . 0.0)
        (1070 . 0)
      )
    )
5 条评论 A文章作者 M管理员
  1. 中望小管家

    请问这个有没测试图纸啊?可以发给我们看看,邮箱:hql@zwcad.com

    • 中望小管家

      你这个问题无法复现欸,请问用的是哪个版本的中望cad?这是测试的程序:

      (defun c:foo()
      (setq xtext “wjy”)
      (setq ptt1 (getpoint “左下角点: “))
      (setq ptt2 (getcorner ptt1 “右下角点: “))
      (setq text_list (list ‘(0 . “*TEXT”)
      ‘(-4 . “,>,*”) (cons 10 ptt1)
      ‘(-4 . “and>”)
      (list -3 (list “*” (cons 1000 xtext)))
      )
      )

      (setq sstext (ssget “x” text_list))
      )

    • 坑你

      zwcad 2026 1.1版本 图纸已经发给你了, (defun c:foo() (setq xtext “wjy”) (setq ptt1 (getpoint “图框左下角点: “)) (setq ptt2 (getcorner ptt1 “图框右上角点: “)) (setq text_list (list ‘(0 . “*TEXT”) ‘(-4 . “<and”) ‘(-4 . “<,,>,*”) (cons 10 ptt1) ‘(-4 . “and>”) (list -3 (list “*” (cons 1000 xtext))) ) ) ; (setq sstext (ssget “x” text_list)) (if sstext (princ “获取到对象n”) (princ “未获取到对象n”) ) )

    • 坑你

      hql@zwcad.com 我这里重新发一个 测试图纸 里面包括两个图 一个可以获取 一个获取不到,还有测试程序

购物车
优惠劵
今日签到
有新私信 私信列表
搜索
复制链接
微信扫码
已复制到剪贴板