整理来自acadx的VLISP程序库

王咣生

vlex-function.
其中debug nil的函数没有调试成功.其它的函数如果有什么问题,我们可以讨论.

加载后,运行(vlex-help)查看所有函数.


问题:
;;;**************************************************************************************;;;
;;; MODULE:    vlex-ActivePlotConfig ()                                                               ;;;
;;; Purpose:   Returns object to active plot configuration                                  ;;;
;;; Debug:     nil                                                                         ;;;
;;;**************************************************************************************;;;

(defun vlex-PlotConfigs ( / pc out)
  (vlax-for each (vlax-get-property (vlex-ActiveDocument) 'PlotConfigurations)
    (if (vlax-property-available-p each 'GetPlotDeviceNames)
      (setq out (cons (vlax-get-property each 'GetPlotDeviceNames) out))
    )
    (setq itemname (vlex-Name each)
          out (cons itemname out)
    )
  )
  out
)
这个函数有问题,如何获得所有的'GetPlotDeviceNames列表?

f4800

学习学习学习一下！

waterchen

好東西啊，正是我想的，學習中

wu6768209

加载后，怎么不能运行啊！老是说未知命令

yanghc

下载来学习学习

kkk3kkk

看不出来

lqss

看不见！

894560869

E文差，所以又不知道什么用途，要是有中文注解有多好啊

 

chwind

看不懂

578749467

谢谢楼主分享

hhh454

下载下来看看，先感谢楼主分享