文章
评论
关注
粉丝
私信列表所有往来私信
我的设置编辑个人资料
我的订单查看我的订单
进入后台管理
15篇
90篇
13篇
54篇
43篇
12篇
23篇
1篇
18篇
40篇
6篇
这个人很懒，什么都没有留下！
hql@zwcad.com 我这里重新发一个 测试图纸 里面包括两个图 一个可以获取 一个获取不到，还有测试程序
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 我这里重新发一个 测试图纸 里面包括两个图 一个可以获取 一个获取不到，还有测试程序
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") ) )
已发送