获取对象层名，并写文本

panliang9 · 发表于 2018-7-6 12:00:16

大家好，下面是我找到的一个选中对象获取层名的lisp，但它的层名是显示在命令行中，现在想改成获取的层名放在剪贴板里，或者在图里写文本，大家谁能帮我改改，先谢谢了！！！

(defun c:dxf (/ ent)
  (and (setq ent (car (nentsel "\nSelect Entity: ")))
   (princ (strcat "\nLayer is: "
                  (cdr (assoc 8 (entget ent))))))
  (princ))

下面是这个需要的例图：

panliang9 · 发表于 2018-7-6 12:47:36

本帖最后由 panliang9 于 2018-7-6 13:53 编辑

pzweng帮我弄好了，现在把他帮我弄的贴上来，供有需要用朋友用。
谢谢 "pzweng"

(DEFUN C:TEST (/ ENT STR HTML RESULT)
  (AND (SETQ ENT (CAR (NENTSEL "\nSelect Entity: "))
         STR (CDR (ASSOC 8 (ENTGET ENT)))
   )
   (SETQ HTML (VLAX-CREATE-OBJECT "htmlfile"))
   (SETQ RESULT (VLAX-INVOKE (VLAX-GET (VLAX-GET HTML 'PARENTWINDOW) 'CLIPBOARDDATA) 'SETDATA "Text" STR))
   (VLAX-RELEASE-OBJECT HTML)
  (PRINC "\n已写入剪贴板中!!!")
  )
  (PRINC)
)

Andyhon · 发表于 2018-7-6 13:56:07

(setq ent (car (nentsel "\nSelect Entity: ")))
(Vlax-Invoke
  (Vlax-Get-Property (Vlax-Get (vlax-create-object "htmlfile") 'ParentWindow) 'ClipboardData)
  'SetData "text"
  (cdr (assoc 8 (entget ent)))
)

panliang9 · 发表于 2018-7-6 14:03:42

谢谢长老！

oistre · 发表于 2018-8-30 18:48:22

谢谢大神，牛牛牛牛！！！

yangchao2005090 · 发表于 2020-5-26 22:24:52

panliang9 发表于 2018-7-6 12:47
pzweng帮我弄好了，现在把他帮我弄的贴上来，供有需要用朋友用。
谢谢 "pzweng"

请问这个怎么使用啊？就是怎么可以看到剪切板上的图层名

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

[讨论] 获取对象层名，并写文本

本帖子中包含更多资源

本帖被以下淘专辑推荐: