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

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

本帖最后由作者于 2008-7-14 10:49:19 编辑

功能：动态查询信息
文件：info.lsp
命令：info或'info透明调用
使用：鼠标移动查询信息，鼠标左键编辑，鼠标右键退出

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

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

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

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

ljwsyzf · 发表于 2018-1-24 00:22

好贴，真是高手之作

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

;;下列程序与这程序类似!
;;转贴自从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

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

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

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

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

查询的信息看不清

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

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

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

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

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

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

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

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

此言差矣

账号		自动登录	找回密码
密码			注册

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

本帖子中包含更多资源

评分

本帖子中包含更多资源

本帖子中包含更多资源

浏览过的版块