社区 › Auto Lisp › 更改文本的宽度因子

alanjt 发表于 2022-7-6 11:13:34

这里有一个查看实体数据（VLA和DXF）的好方法。。。
 
(defun c:Info (/ opt obj)
;; VLA & DXF Info of selected Primary or Nested object
;; Alan J. Thompson
(initget 0 "Nested Primary")
(setq opt (cond ((getkword "\nSpecify selection mode <Primary>: "))
               ("Primary")
         )
)
(if (setq obj (car ((if (eq opt "Primary")
                     entsel
                     nentsel
                     )
                      (strcat "\nSelect " opt " object for VLA & DXF info: ")
                  )
               )
   )
   (progn
   (textscr)
   (princ "\nVLA Info:\n\n")
   (vlax-dump-object (vlax-ename->vla-object obj) T)
   (princ "\nDXF Info:\n")
   (mapcar 'print (entget obj))
   )
)
(princ)
)

alanjt 发表于 2022-7-6 11:19:02

哦，是的，谢谢你更新的DXF链接，李。

Lee Mac 发表于 2022-7-6 11:21:50

 
别担心，伙计
 
仅供参考，我使用议员的EList。lsp要查看entget数据，我想还有他的信息。lsp-他们都做几乎相同的事情

alanjt 发表于 2022-7-6 11:23:28

是的，有很多，但我想要一个能为主要和嵌套对象提供VLA和DXF的。

Lee Mac 发表于 2022-7-6 11:29:12

 
是的，我想是信息。lsp可以做到这一点——但我使用EList，因为我并不总是想要VLA——但无论如何，自己动手更值得

alanjt 发表于 2022-7-6 11:30:41

不，他的信息是NInfo。我想把所有的东西都包在一起。

Lee Mac 发表于 2022-7-6 11:34:45

 
哦，对了，不错。

alanjt 发表于 2022-7-6 11:39:31

谢谢

查看完整版本: 更改文本的宽度因子