请问lisp能否访问图形特性里面的值?

芝麻开门

若能，如何访问？

citykunan

dxf码


(entget (car (entsel)))

芝麻开门

可能我没有说清楚，我的意思是说访问“文件”-〉“图形特性”里面的东西，如“标题”、“主题”等，还有“自定义”的项。

hoprich123

dos_library可以完成.

芝麻开门

请问楼上,dos_library怎么用?

hoprich123

本站有，查找一下。

z16

(defun C:addprops1 (/ App Doc DwgProps lanme dname pname)
   (setq        App         (vlax-Get-Acad-Object)
        Doc         (vla-Get-ActiveDocument App)
        DwgProps (vla-Get-SummaryInfo Doc)
   )

   (setq Num (vla-NumCustomInfo DwgProps))

   (setq lname (getvar "loginname"))
   (IF (= lname "andrew")
     (setq lname "AM")
   )
   (setq dname (vl-filename-base (getvar "dwgname")))
   (setq        pname (vl-Filename-Base
                (vl-Filename-Directory (getvar "Dwgprefix"))
              )
   )
   (vla-put-author dwgprops lname)
   (if (vl-catch-all-apply
        'vla-removecustombykey
        (list dwgprops "")
       )
                                        ;(vla-addcustominfo dwgprops "" "84")
     (progn
       (vl-catch-all-apply
        'vla-removecustombykey
        (list dwgprops "Job No.")
       )
       (vla-addcustominfo dwgprops "Job No." "123")
     )
   )
   (if (vl-catch-all-apply
        'vla-removecustombykey
        (list dwgprops "Job No.")
       )
     (vla-addcustominfo dwgprops "Job No." "123")
     (progn
       (vl-catch-all-apply
        'vla-removecustombykey
        (list dwgprops "Job No.")
       )
       (vla-addcustominfo dwgprops "Job No." "123")
     )
   )
   (if (vl-catch-all-apply
        'vla-removecustombykey
        (list dwgprops "DWG Name")
       )
     (vla-addcustominfo dwgprops "DWG Name" "abc")
     (progn
       (vl-catch-all-apply
        'vla-removecustombykey
        (list dwgprops "DWG Name")
       )
       (vla-addcustominfo dwgprops "DWG Name" "abc")
     )
   )
                                        ;(vla-AddCustomInfo DwgProps "Sample3" "Data3")
                                        ;(vla-SetCustomByIndex DwgProps 0 "Sample1" "data1")
                                        ;(vla-SetCustomByIndex DwgProps 1 "Sample2" "data2")
                                        ;(vla-SetCustomByIndex DwgProps 2 "Sample3" "data3")

   (setq xx (vla-GetCustomByIndex DwgProps 1 'id 'value))
                                        ;(vla-GetCustomByIndex DwgProps 1 'cc 'dd)
                                        ;(vla-GetCustomByIndex DwgProps 2 'ee 'ff)

   (vla-put-comments
     dwgprops
     (strcat "New comments1\r\n" "comments2")
   )
                                        ;(vla-put-comments dwgprops "New comments2")
   (vla-put-keywords dwgprops "New keywords")
   (vla-put-subject dwgprops "Subject")
   (vla-put-Title dwgprops "Title")
   (setq bla bb)
   (princ)
)

(defun C:getprops1 ()
   (setq        App         (vlax-Get-Acad-Object)
        Doc         (vla-Get-ActiveDocument App)
        DwgProps (vla-Get-SummaryInfo Doc)
   )
   (princ (vla-get-comments dwgprops))

)