[LISP程序]：多功能列表集成小程序---可列出图层名，块名，文字/标注样式名

lsjjm

多功能列表集成小程序
可列出图层名，块名，文字/标注样式名。。。共12个功能集一起的小程序：
[php]
(defun c:test ( / lst)
  (initget " B D DM G L LO LT P V VP R T")
  (setq k (getkword "\nEnter an Option[Block/Dictionary/DiMstyle/Group/Layer/LayOut
                    /LineType/Plotconfig/Regapp/View/ViewPort/Textstyle]:"))
  (setq doc (vla-get-activedocument (vlax-get-Acad-Object)))
  (vlax-for item
    (cond
      ((= k "B")(vla-get-Blocks doc))
      ((= k "D")(vla-get-Dictionaries doc))
      ((= k "DM")(vla-get-Dimstyles doc))
      ((= k "G")(vla-get-Groups doc))
      ((= k "L")(vla-get-Layers doc))
      ((= k "LO")(vla-get-Layouts doc))
      ((= k "LT")(vla-get-Linetypes doc))
      ((= k "P")(vla-get-PlotConfigurations doc))
      ((= k "R")(vla-get-RegisteredApplications doc))
      ((= k "V")(vla-get-Views doc))
      ((= k "VP")(vla-get-viewports doc))
      ((= k "T")(vla-get-Textstyles doc))
    )
    (if (= k "D")
      (setq lst (cons (vla-get-objectName item) lst))
      (setq lst (cons (vla-get-Name item) lst))
    )
  )
  (reverse lst)
)
[/php]

sunnyboyqd

老兄，多发点上来

aeo

最初由 lsjjm 发布
[B]多功能列表集成小程序
[/B]

Dictionary,返回没什么用了

搞了很久，最后加只能容错了:)
[php]
(defun c:test( / doc ini item name return sel)
(setq doc (vla-get-activedocument (vlax-get-Acad-Object))
       ini"Blocks Dictionaries DIMstyles Groups Layers layOuts lineTYpes plotConfigurations RegisteredApplications Views viewPorts Textstyles"
)
(initget ini)
(if(setq sel(getkword (strcat"\n选择[ "ini"]:")))
   (vlax-for item (vlax-get doc sel)
    (if(not(vl-catch-all-error-p (setq name(vl-catch-all-apply 'vlax-get(list item 'name)))))
        (setq return(cons name return))
   )))
  (reverse return)
)[/php]

陌生人

搞了很久，最后加只能容错了:)什么意思

aeo

Dictionaries有的有名称，有的没有。
我只能不管3721,vl-catch-all-apply 了:)

chstart

呵呵，菜鸟再麻烦各位：
vlisp 里，怎样通过选择图块返回 块名 啊？
我想使用 (entget (car(entsel)))
但不知道该怎样获得块名称，请求帮助

(defun c:sk (/ blk_na ss)
        ;此处通过选择图块返回 块名 blk_na
        (setq ss (ssget  (list (cons 2 blk_na)(0 . "insert"))))
    (prompt (strcat "当前选择TownHouse的数量是 " (itoa (sslength ss))))
  (princ "   栋。")
  (princ)
)

XDSoft

最初由 chstart 发布
[B]呵呵，菜鸟再麻烦各位：
vlisp 里，怎样通过选择图块返回 块名 啊？
我想使用 (entget (car(entsel)))
但不知道该怎样获得块名称，请求帮助

(defun c:sk (/ blk_na ss)
        ;此处通过选择图块返回 块名 ... [/B]

不知道你要表达什么，你又问了问题，又给了答案，你在“设问”吗？

chstart

呵，找到了，刚刚翻了函数说明，

(assoc '2 (entget (car (entsel)) )

太不努力了。谢谢斑竹提醒。我把自己的程序写完。

[php]
(defun c:bbb (/ blk_na ss)
        (setq blk_na (cdr(assoc '2 (entget (car (entsel))))))
        (setq ss (ssget  (list (cons 2 blk_na) '(0 . "insert"))))
    (prompt (strcat "当前选择块" blk_na "的数量是  " (itoa (sslength ss))))
  (princ )
)
[/php]

陌生人

最初由 aeo 发布
[B]Dictionaries有的有名称，有的没有。
我只能不管3721,vl-catch-all-apply 了:) [/B]

(vlax-property-available-p vlaobj property)
你用了么？