(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
(
“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)
)
)
(-3
(
“klisp”
(1000 . “wjy”)
(1040 . 0.0)
(1070 . 0)
)
)





















请问这个有没测试图纸啊?可以发给我们看看,邮箱:hql@zwcad.com
已发送
你这个问题无法复现欸,请问用的是哪个版本的中望cad?这是测试的程序:
(defun c:foo(),>,*”) (cons 10 ptt1)
(setq xtext “wjy”)
(setq ptt1 (getpoint “左下角点: “))
(setq ptt2 (getcorner ptt1 “右下角点: “))
(setq text_list (list ‘(0 . “*TEXT”)
‘(-4 . “
‘(-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 我这里重新发一个 测试图纸 里面包括两个图 一个可以获取 一个获取不到,还有测试程序