查询动态块所有参数

eachy · 发表于 2013-9-24 11:08:02

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun IsDYNblock (blkref)
(and
(= (vla-get-objectname blkref) "AcDbBlockReference")
(= (vl-catch-all-apply
'vlax-get-property
(list blkref 'isdynamicblock)
)
:vlax-true
)
)
)
;;以后写 Setpropertyvalue
(defun GetallDynBlockProperties
(obj / lisp-value dynproperties Allproperties)
(defun lisp-value (v)
(cond
((= (type v) 'variant)
(lisp-value (variant-value v))
)
((= (type v) 'safearray)
(list (mapcar 'lisp-value (safearray-value v))) ;_Modify by eachy
)
(t v)
)
)
(defun Allproperties (lst)
(mapcar
'(lambda (x)
(list (cons "AllowedValues"
(lisp-value (vla-get-allowedvalues x))
)
(cons "Description" (vla-get-description x))
(cons "PropertyName" (vla-get-propertyname x))
(cons "ReadOnly" (vla-get-readonly x))
(cons "Show" (vla-get-show x))
(cons "UnitsType" (lisp-value (vla-get-unitstype x)))
(cons "Value" (lisp-value (vla-get-value x)))
)
)
lst
)
)
(if (= (type obj) 'VLA-OBJECT)
(progn
(setq dynproperties
(safearray-value
(variant-value
(vla-getdynamicblockproperties obj)
)
)
)
(list
dynproperties
(Allproperties dynproperties)
)
)
(Allproperties obj)
)
)
(defun c:Getdynallproperties (/ e blkref)
(if
(and (setq e (car (entsel "\nPick Insert: ")))
(setq blkref (vlax-ename->vla-object e))
(isdynblock blkref)
)
(foreach x (cadr (GetallDynBlockProperties blkref))
(princ "\n(")
(foreach y x
(princ "\n\t ")
(princ y)
)
(princ "\n)")
)
(princ "\nNot DynBlock!")
)
(princ)
)

(defun IsDYNblock (blkref) 
  (and 
    (= (vla-get-objectname blkref) "AcDbBlockReference") 
    (= (vl-catch-all-apply 
     'vlax-get-property 
     (list blkref 'isdynamicblock) 
       ) 
       :vlax-true 
    ) 
  ) 
) 
;;以后写 Setpropertyvalue 
(defun GetallDynBlockProperties 
       (obj / lisp-value dynproperties Allproperties) 
  (defun lisp-value (v) 
    (cond 
      ((= (type v) 'variant) 
       (lisp-value (variant-value v)) 
      ) 
      ((= (type v) 'safearray) 
       (list (mapcar 'lisp-value (safearray-value v))) ;_Modify by eachy 
      ) 
      (t v) 
    ) 
  ) 
  (defun Allproperties (lst) 
    (mapcar 
      '(lambda (x) 
     (list (cons "AllowedValues" 
             (lisp-value (vla-get-allowedvalues x)) 
           ) 
           (cons "Description" (vla-get-description x)) 
           (cons "PropertyName" (vla-get-propertyname x)) 
           (cons "ReadOnly" (vla-get-readonly x)) 
           (cons "Show" (vla-get-show x)) 
           (cons "UnitsType" (lisp-value (vla-get-unitstype x))) 
           (cons "Value" (lisp-value (vla-get-value x))) 
     ) 
       ) 
      lst 
    ) 
  ) 
  (if (= (type obj) 'VLA-OBJECT) 
    (progn 
      (setq dynproperties 
         (safearray-value 
           (variant-value 
         (vla-getdynamicblockproperties obj) 
           ) 
         ) 
      ) 
      (list 
    dynproperties 
    (Allproperties dynproperties) 
      ) 
    ) 
    (Allproperties obj) 
  ) 
) 
(defun c:Getdynallproperties (/ e blkref) 
  (if 
    (and (setq e (car (entsel "\nPick Insert: "))) 
     (setq blkref (vlax-ename->vla-object e)) 
     (isdynblock blkref) 
    ) 
     (foreach x    (cadr (GetallDynBlockProperties blkref)) 
       (princ "\n(") 
       (foreach    y x 
     (princ "\n\t  ") 
     (princ y) 
       ) 
       (princ "\n)") 
     ) 
     (princ "\nNot DynBlock!") 
  ) 
  (princ) 
)

sachindkini · 发表于 2013-9-24 17:13:22

Dear Sir, Nice Lisp thx for sharing

Program Description

This program enables a user to quickly obtain important information about any object upon moving the cursor over that object.

There are two modes of use:

Standard Mode (DInfo)
Layer Isolation Mode (LayIso)

The mode in which the program is running can be determined by the icon next to cursor, when the cursor is in empty space. This mode can be changed by pressing the Tab key whilst running the program.

Furthermore, the size of the program cursor can be altered by either pressing "+" or "-" whilst running the program.

When the cursor is moved over an object in the drawing, the cursor will recognise the object and turn red. Relevant information about the object will be displayed next to the cursor.

Examples of Usage

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:DInfoV1-5.lsp
下载次数:37 文件大小:22.72 KB
下载权限: 不限以上 [免费赚D豆]

Layer Isolation Mode

Upon pressing Tab the user can switch to Layer Isolation Mode, in which LayIso will be displayed next to the cursor.

In this mode, the user has the ability to isolate the layer of the object upon clicking on the object.

All the layers can be turned back on by Shift-Clicking anywhere in the drawing.

sachindkini · 发表于 2013-9-24 17:25:23

本帖最后由 sachindkini 于 2013-9-24 17:27 编辑

dear sir, nice lisp
my personal suggention use Information about an object is displayed upon the user moving the cursor over the object

HLCAD · 发表于 2013-9-24 20:16:08

感谢eachy大侠！支持eachy大侠！因我未安装API（以后也不准备安装），看到原汁原味的LSP就是亲切！

eachy · 发表于 2013-9-24 20:31:50

HLCAD 发表于 2013-9-24 20:16
感谢eachy大侠！支持eachy大侠！因我未安装API（以后也不准备安装），看到原汁原味的LSP就是亲切！

加载api不等于用来写程序，还可以用来分析数据，或者开阔思路

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

[原创] 查询动态块所有参数

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

相关帖子

点评