芝麻开门 发表于 2004-9-3 09:16:00

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

若能，如何访问？

citykunan 发表于 2004-9-3 09:20:00

dxf码


(entget (car (entsel)))

芝麻开门 发表于 2004-9-3 15:19:00

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

hoprich123 发表于 2004-9-3 20:18:00

dos_library可以完成.

芝麻开门 发表于 2004-9-6 10:11:00

请问楼上,dos_library怎么用?

hoprich123 发表于 2004-11-2 17:07:00

本站有，查找一下。

本站有，查找一下。

z16 发表于 2013-1-17 21:20:01

(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))

)
页: [1]
查看完整版本: 请问lisp能否访问图形特性里面的值?