lyy 发表于 2003-8-7 12:37:00

★★★★★【YAD信息查询程序源码】★★★★★

本帖最后由 作者 于 2008-7-14 10:49:19 编辑 <br /><br /> <p>功能：动态查询信息<br/>文件：info.lsp<br/>命令：info或'info透明调用<br/>使用：鼠标移动查询信息，鼠标左键编辑，鼠标右键退出&nbsp;</p><p></p>

伪书虫86 发表于 2022-10-15 00:01:40

好东西，弥补了快捷特性无法显示面积的缺陷

土土木木人 发表于 2018-1-24 08:18:56

程序是好程序，不容争论，只是我认为实用性......

lxl304712346 发表于 2024-7-28 17:20:18

很好。请问哪个文件是最终的版本？

龙龙仔 发表于 2003-8-7 13:57:00

;;下列程序与这程序类似!
;;转贴自从XDCAD,作者忘了!是你嗎?
;;当鼠标移动到满足过滤条件的像素上时，像素会闪动
;;USAGE:(CS_EntSel "\n请选Polyline物件: " '((0 . "*Polyline")))
(defun CS_ENTSEL (STR FILTER / PT SS_NAME SS)
(if (/= (type STR) 'STR)
    (progn
      (princ "\n变量类型不对，STR应为字符串。\n")
      (eval NIL)
    )
    (progn
      (if (/= (type FILTER) 'list)
        (progn
          (princ "\n变量类型不对，FILTER应为表。\n")
          (eval NIL)
        )
        (progn
          (princ STR)
          (setq PT (grread t 4 2))
          (while (/= 3 (car PT))
          (if        (= 5 (car PT))
              (progn
                (setq PT (cadr PT))
                (setq SS (ssget PT FILTER))
                (if SS_NAME
                  (redraw SS_NAME 4)
                )
                (setq SS_NAME NIL)
                (if SS
                  (progn
                  (setq SS_NAME (ssname SS 0))
                  (redraw SS_NAME 3)
                  )
                )
              )
              (setq PT (grread t 4 2))
          )
          )
          (setq PT (cadr PT))
          (setq SS (ssget PT FILTER))
          (if SS_NAME
          (redraw SS_NAME 4)
          )
          (setq SS_NAME NIL)
          (if SS
          (progn
              (setq SS_NAME (ssname SS 0))
              (list SS_NAME PT)
          )
          (eval CS_NAME)
          )
        )
      )
    )
)
)

BDYCAD 发表于 2003-9-11 10:11:00

太棒了.我要介紹給朋友.

xazhji 发表于 2003-9-11 10:58:00

很好！要是能把这个变成透明命令（中间能执行别的命令或执行别的命令时可执行它），那该多好呀！

runkeji 发表于 2003-9-11 11:17:00

查询的信息看不清

meflying 发表于 2003-9-11 12:18:00

看不清？天晓得，不是你的显示器不好，就是眼神不好了

hoprich123 发表于 2003-9-12 12:33:00

lyy 发表于 2003-9-12 12:50:00

你的window系统没有宋体字，把程序的相关代码改改吧！

xazhji 发表于 2003-9-12 13:00:00

程序是好程序，不容争论，只是我认为实用性......

meflying 发表于 2003-9-12 14:04:00

此言差矣
页: [1] 2 3 4 5 6 7 8 9 10
查看完整版本: ★★★★★【YAD信息查询程序源码】★★★★★