恳请高手编一LSP程序

龙龙仔

jaminth发表于2006-12-28 13:41:00运行时提示错误: no function definition: VLA-GET-SUMMARYINFO麻烦龙龙仔调试一下!

(vl-load-com);要加這句

(vla-put-hyperlinkbase
  (vla-get-summaryinfo
    (vla-get-activedocument (vlax-get-acad-object))
  )
  (strcat (getvar "DWGPREFIX") " " (getvar "DWGNAME"))
)

;;for R2004以下
(defun C:PUTPROPS (/ XLIST)
  (setq TITLE     (strcat (getvar "DWGPREFIX") (getvar "DWGNAME"))
 SUBJECT     ""
 AUTHOR     ""
 COMMENTS    ""
 KEYWORDS    ""
 LASTSAVEDBY ""
 REVISIONNO  ""
 CUST0     ""
 CUST1     ""
 CUST2     ""
 CUST3     ""
 CUST4     ""
 CUST5     ""
 CUST6     ""
 CUST7     ""
 CUST8     ""
 CUST9     ""
  )
  ;; remove any existing Properties
  (dictremove (namedobjdict) "DWGPROPS")
  ;; make data list
  (setq XLIST
  (list
    '(0 . "XRECORD")
    '(100 . "AcDbXrecord")
    '(1 . "DWGPROPS COOKIE")
    (cons 2 TITLE)
    (cons 3 SUBJECT)
    (cons 4 AUTHOR)
    (cons 6 COMMENTS)
    (cons 7 KEYWORDS)
    (cons 8 LASTSAVEDBY)
    (cons 9 REVISIONNO)
    (cons 300 CUST0)
    (cons 301 CUST1)
    (cons 302 CUST2)
    (cons 303 CUST3)
    (cons 304 CUST4)
    (cons 305 CUST5)
    (cons 306 CUST6)
    (cons 307 CUST7)
    (cons 308 CUST8)
    (cons 309 CUST9)
    (cons 40 (getvar "TDINDWG"))
    (cons 41 (getvar "TDCREATE"))
    (cons 42 (getvar "TDUPDATE"))
  )
  )
  ;; make Xrecord and add to NOD
  (dictadd (namedobjdict) "DWGPROPS" (entmakex XLIST))
  (princ)
)

jaminth

谢谢,可还是提示同样的错误;忘了告诉你了,我用的CAD2002版本!

还有一个问题,怎么调入这个程序?

我用时是通过AP命令加载的!运行这个LSP文件,要不要输入什么命令?

jaminth

哪位大侠帮忙一下,行吗?

zhuxuhong

在AUTOCAD2002中可能无法实现的，以前我用VBA试过的。SUMMARYINFO是在CAD2002以后的版本才开始支持的。

killer9806

谢龙老大的指点，可以搞定图形特征的设值