[LISP程序]：请教一个关于加载的问题。。。

userzhluserzhl

请教高手，我设了一个LSP在启动时加载，加入下面的代码，为何不行？
(autoload "acettest.fas")
(arxload "acetutil.arx")
(acet-autoload2        '("acetutil2.fas"        (acet-acadreactor-id-add e1 na2)))
(acet-autoload2        '("acetutil2.fas"        (acet-angle-equal a b fuz)))
(acet-autoload2        '("acetutil2.fas"        (acet-block-purge bna)))
(acet-autoload2        '("acetutil2.fas"        (acet-bs-strip a)))
(acet-autoload2        '("acetutil2.fas"        (acet-calc-tan a)))
(acet-autoload2        '("acetutil2.fas"        (acet-dcl-list-make a lst)))
(acet-autoload2        '("acetutil2.fas"        (acet-dict-name-list dict)))
(acet-autoload2        '("acetutil2.fas"        (acet-dtor a)))
(acet-autoload2        '("acetutil2.fas"        (acet-explode ss)))
(acet-autoload2        '("acetutil2.fas"        (acet-filename-valid fna)))
(acet-autoload2        '("acetutil2.fas"        (acet-full-dwgname)))
(acet-autoload2        '("acetutil2.fas"        (acet-general-props-get-pairs e1)))
(acet-autoload2        '("acetutil2.fas"        (acet-general-props-set-pairs e1 lst)))
(acet-autoload2        '("acetutil2.fas"        (acet-geom-angle-to-ellipseAngle v e1)))
(acet-autoload2        '("acetutil2.fas"        (acet-geom-angle-trans ang frm to)))
(acet-autoload2        '("acetutil2.fas"        (acet-geom-arc-3p-d-angle p1 p2 p3)))
(acet-autoload2        '("acetutil2.fas"        (acet-geom-arc-bulge cent p1 dang)))
(acet-autoload2        '("acetutil2.fas"        (acet-geom-arc-center p1 p2 p3)))
(acet-autoload2        '("acetutil2.fas"        (acet-geom-arc-d-angle cent p1 p2)))
(acet-autoload2        '("acetutil2.fas"        (acet-geom-intersectwith na na2 flag)))
(acet-autoload2        '("acetutil2.fas"        (acet-geom-object-fuz na)))
(acet-autoload2        '("acetutil2.fas"        (acet-geom-object-normal-vector na)))
(acet-autoload2        '("acetutil2.fas"        (acet-geom-self-intersect lst flag2)))
(acet-autoload2        '("acetutil2.fas"        (acet-geom-vertex-list na)))
(acet-autoload2        '("acetutil2.fas"        (acet-geom-zoom-for-select lst)))
(acet-autoload2        '("acetutil2.fas"        (acet-list-assoc-put new lst)))
(acet-autoload2        '("acetutil2.fas"        (acet-list-assoc-remove a e1)))
(acet-autoload2        '("acetutil2.fas"        (acet-list-isort lst ind)))
(acet-autoload2        '("acetutil2.fas"        (acet-list-put-nth a lst n)))
(acet-autoload2        '("acetutil2.fas"        (acet-list-remove-adjacent-dups lst)))
(acet-autoload2        '("acetutil2.fas"        (acet-list-remove-duplicates lst fuz)))
(acet-autoload2        '("acetutil2.fas"        (acet-list-to-ss lst)))
(acet-autoload2        '("acetutil2.fas"        (acet-lwpline-make lst)))
(acet-autoload2        '("acetutil2.fas"        (acet-pline-segment-list e1)))
(acet-autoload2        '("acetutil2.fas"        (acet-pline-segment-list-apply e1 lst)))
(acet-autoload2        '("acetutil2.fas"        (acet-point-flat p1 xv xv2)))
(acet-autoload2        '("acetutil2.fas"        (acet-reg-tree-get keypath key)))
(acet-autoload2        '("acetutil2.fas"        (acet-reg-tree-set keypath lst)))
(acet-autoload2        '("acetutil2.fas"        (acet-rtod a)))
(acet-autoload2        '("acetutil2.fas"        (acet-ss-filter arglst)))
(acet-autoload2        '("acetutil2.fas"        (acet-ss-filter-current-ucs ss printflag)))
(acet-autoload2        '("acetutil2.fas"        (acet-ss-filter-item ss a)))
(acet-autoload2        '("acetutil2.fas"        (acet-ss-filter-validate flt)))
(acet-autoload2        '("acetutil2.fas"        (acet-ss-scale-to-fit-base p1 p2 sf)))
(acet-autoload2        '("acetutil2.fas"        (acet-ss-ssget-filter ss flt)))
(acet-autoload2        '("acetutil2.fas"        (acet-ss-to-list ss)))
(acet-autoload2        '("acetutil2.fas"        (acet-ss-union SSLIST)))
(acet-autoload2        '("acetutil2.fas"        (acet-temp-segment p1 p2 p3 dflag)))
(acet-autoload2        '("acetutil2.fas"        (acet-ucs-capture-viewports)))
(acet-autoload2        '("acetutil2.fas"        (acet-ucs-restore-viewports lst)))
(acet-autoload2        '("acetutil2.fas"        (acet-ucs-set-z z)))
(acet-autoload2        '("acetutil2.fas"        (acet-ucs-to-object na)))
(acet-autoload2        '("acetutil2.fas"        (acet-ui-fence-select)))
(acet-autoload2        '("acetutil2.fas"        (acet-ui-getfile str def ext flag)))
(acet-autoload2        '("acetutil2.fas"        (acet-ui-polygon-select dflag)))
(acet-autoload2        '("acetutil2.fas"        (acet-ui-single-select flt lockOk)))
(acet-autoload2        '("acetutil2.fas"        (acet-viewport-frozen-layer-list na)))
(acet-autoload2        '("acetutil2.fas"        (bns_blink_and_show_object na c)))
(acet-autoload2        '("acetutil2.fas"        (bns_blk_match blkname flt lst flag)))
(acet-autoload2        '("acetutil2.fas"        (bns_tbl_match table filter)))
(acet-autoload2        '("acetutil2.fas"        (bns_tjust ss just)))
(acet-autoload2        '("acetutil2.fas"        (isort lst index)))
(acet-autoload2        '("acetutil3.fas"        (acet-acadreactor-id-remove e1 na2)))
(acet-autoload2        '("acetutil3.fas"        (acet-acadreactor-id-remove-all e1)))
(acet-autoload2        '("acetutil3.fas"        (acet-acadreactor-ids-get e1)))
(acet-autoload2        '("acetutil3.fas"        (acet-acadreactor-id-swap newna oldna reflst)))
(acet-autoload2        '("acetutil3.fas"        (acet-alt-viewport ss na2)))
(acet-autoload2        '("acetutil3.fas"        (acet-block-make-anon ss bna)))
(acet-autoload2        '("acetutil3.fas"        (acet-file-find-font fna)))
(acet-autoload2        '("acetutil3.fas"        (acet-filename-associated-app fna)))
(acet-autoload2        '("acetutil3.fas"        (acet-general-props-get e1)))
(acet-autoload2        '("acetutil3.fas"        (acet-general-props-set ss proplst)))
(acet-autoload2        '("acetutil3.fas"        (acet-geom-ellipseAngle-to-angle v e1)))
(acet-autoload2        '("acetutil3.fas"        (acet-geom-ellipse-arc-list e1)))
(acet-autoload2        '("acetutil3.fas"        (acet-geom-ellipse-point-at-angle ang e1)))
(acet-autoload2        '("acetutil3.fas"        (acet-geom-ellipse-to-pline e1)))
(acet-autoload2        '("acetutil3.fas"        (acet-geom-is-arc p1 p2 p3 p4 fuz)))
(acet-autoload2        '("acetutil3.fas"        (acet-geom-point-inside p1 lst dst)))
(acet-autoload2        '("acetutil3.fas"        (acet-geom-point-scale pnt p1 fact)))
(acet-autoload2        '("acetutil3.fas"        (acet-geom-rect-points a b)))
(acet-autoload2        '("acetutil3.fas"        (acet-geom-vector-parallel v1 v2)))
(acet-autoload2        '("acetutil3.fas"        (acet-group-make-anon LST DESC)))
(acet-autoload2        '("acetutil3.fas"        (acet-hatch-loopedge-make e1 lst)))
(acet-autoload2        '("acetutil3.fas"        (acet-hatch-loop-make e1)))
(acet-autoload2        '("acetutil3.fas"        (acet-hatch-loop-make-data-get e1)))
(acet-autoload2        '("acetutil3.fas"        (acet-list-assoc-append new lst)))
(acet-autoload2        '("acetutil3.fas"        (acet-list-remove-nth a lst)))
(acet-autoload2        '("acetutil3.fas"        (acet-pline-is-2d e1)))
(acet-autoload2        '("acetutil3.fas"        (acet-plines-explode ss)))
(acet-autoload2        '("acetutil3.fas"        (acet-plines-explode-width-data-get e1)))
(acet-autoload2        '("acetutil3.fas"        (acet-plines-rebuild plst)))
(acet-autoload2        '("acetutil3.fas"        (acet-plines-rebuild-apply-widths w1 w2 e1)))
(acet-autoload2        '("acetutil3.fas"        (acet-plines-rebuild-set-elevation ss z)))
(acet-autoload2        '("acetutil3.fas"        (acet-re-make e1)))
(acet-autoload2        '("acetutil3.fas"        (acet-ss-convert-ellipses-to-plines ss)))
(acet-autoload2        '("acetutil3.fas"        (acet-ss-redraw ss flag)))
(acet-autoload2        '("acetutil3.fas"        (acet-ss-scale-to-fit ss p1 p2 border)))
(acet-autoload2        '("acetutil3.fas"        (acet-ss-zoom-extents ss)))
(acet-autoload2        '("acetutil3.fas"        (acet-str-env-expand fna)))
(acet-autoload2        '("acetutil3.fas"        (acet-str-is-printable a)))
(acet-autoload2        '("acetutil3.fas"        (acet-str-list-select lst spec)))
(acet-autoload2        '("acetutil3.fas"        (acet-tjust ss a)))
(acet-autoload2        '("acetutil3.fas"        (acet-tjust-group-codes just)))
(acet-autoload2        '("acetutil3.fas"        (acet-tjust-keyword e1)))
(acet-autoload2        '("acetutil3.fas"        (acet-ui-drag p1 msg fun)))
(acet-autoload2        '("acetutil3.fas"        (acet-ui-entsel alst)))
(acet-autoload2        '("acetutil3.fas"        (acet-ui-getcorner p1)))
(acet-autoload2        '("acetutil3.fas"        (acet-ui-get-long-name msg)))
(acet-autoload2        '("acetutil3.fas"        (acet-ui-m-get-names alst)))
(acet-autoload2        '("acetutil3.fas"        (acet-viewport-lock-set na flag)))
(acet-autoload2        '("acetutil3.fas"        (acet-viewport-next-pickable)))
(acet-autoload2        '("acetutil3.fas"        (bns_blktbl_match flt)))
(acet-autoload2        '("acetutil3.fas"        (bns_ss_mod ss flag pr)))
(acet-autoload2        '("acetutil3.fas"        (bns_vp_on_screen na)))
(acet-autoload2        '("acetutil4.fas"        (acet-acad-refresh)))
(acet-autoload2        '("acetutil4.fas"        (acet-appid-delete spec)))
(acet-autoload2        '("acetutil4.fas"        (acet-blink-and-show-object alst)))
(acet-autoload2        '("acetutil4.fas"        (acet-calc-bitlist NUM)))
(acet-autoload2        '("acetutil4.fas"        (acet-editor-reactor-add rlst)))
(acet-autoload2        '("acetutil4.fas"        (acet-file-backup fna)))
(acet-autoload2        '("acetutil4.fas"        (acet-file-backup-delete)))
(acet-autoload2        '("acetutil4.fas"        (acet-file-backup-restore)))
(acet-autoload2        '("acetutil4.fas"        (acet-file-find fna)))
(acet-autoload2        '("acetutil4.fas"        (acet-file-find-image fna)))
(acet-autoload2        '("acetutil4.fas"        (acet-file-find-on-path fna path)))
(acet-autoload2        '("acetutil4.fas"        (acet-filename-supportpath-remove fna)))
(acet-autoload2        '("acetutil4.fas"        (acet-file-open fna flag)))
(acet-autoload2        '("acetutil4.fas"        (acet-geom-object-end-points e1)))
(acet-autoload2        '("acetutil4.fas"        (acet-geom-object-z-axis e1)))
(acet-autoload2        '("acetutil4.fas"        (acet-geom-trans-ucs-to-image lst e1 code)))
(acet-autoload2        '("acetutil4.fas"        (acet-list-group-by-assoc lst)))
(acet-autoload2        '("acetutil4.fas"        (acet-list-is-dotted-pair a)))
(acet-autoload2        '("acetutil4.fas"        (acet-list-split lst item)))
(acet-autoload2        '("acetutil4.fas"        (acet-path-to-list a)))
(acet-autoload2        '("acetutil4.fas"        (acet-pline-make lst)))
(acet-autoload2        '("acetutil4.fas"        (acet-pref-supportpath-list)))
(acet-autoload2        '("acetutil4.fas"        (acet-r12-dxf-convert ss)))
(acet-autoload2        '("acetutil4.fas"        (acet-reactor-exists rlst)))
(acet-autoload2        '("acetutil4.fas"        (acet-reactor-remove r)))
(acet-autoload2        '("acetutil4.fas"        (acet-ss-annotation-filter ss)))
(acet-autoload2        '("acetutil4.fas"        (acet-ss-intersection SS1 SS2)))
(acet-autoload2        '("acetutil4.fas"        (acet-ss-remove SS1 SS2)))
(acet-autoload2        '("acetutil4.fas"        (acet-ss-remove-dups ss fuz ignore)))
(acet-autoload2        '("acetutil4.fas"        (acet-ss-remove-dups-extents-list ss fuz)))
(acet-autoload2        '("acetutil4.fas"        (acet-ss-remove-dups-generalize-ent na fuz gclst)))
(acet-autoload2        '("acetutil4.fas"        (acet-ss-remove-dups-reverse lst)))
(acet-autoload2        '("acetutil4.fas"        (acet-ss-sort ss func)))
(acet-autoload2        '("acetutil4.fas"        (acet-sys-control-down)))
(acet-autoload2        '("acetutil4.fas"        (acet-sys-lmouse-down)))
(acet-autoload2        '("acetutil4.fas"        (acet-sys-shift-down)))
(acet-autoload2        '("acetutil4.fas"        (acet-ucs-set lst)))
(acet-autoload2        '("acetutil4.fas"        (acet-viewport-frozen-layer-list-set na laylst)))
(acet-autoload2        '("acetutil4.fas"        (acet-viewport-vpfreeze ss laylst)))
(acet-autoload2        '("acetutil4.fas"        (acet-wmfin FIL)))
(acet-autoload2        '("acetutil4.fas"        (acet-xdata-get LST)))
(acet-autoload2        '("acetutil4.fas"        (acet-xdata-set LST)))
(acet-autoload2        '("acetutil4.fas"        (acet-xref-cproject-path proj)))
(acet-autoload2        '("acetutil4.fas"        (bns_annotation_ss ss)))
(acet-autoload2        '("acetutil4.fas"        (bns_groups_sel lst)))
(acet-autoload2        '("acetutil4.fas"        (bns_groups_unsel)))
(acet-autoload2        '("acetutil4.fas"        (bns_truncate_2_view a b x y x2 y2)))
(acet-autoload2        '("acetutil4.fas"        (acet-insert-attrib-set na lst bquiet)))
(acet-autoload2        '("acetutil4.fas"        (acet-insert-attrib-get lst)))
(acet-autoload2        '("acetutil4.fas"        (bns_mod_att na lst)))
(acet-autoload2        '("acetutil4.fas"        (bns_get_att lst)))
(acet-autoload2        '("acetutil4.fas"        (acet-insert-attrib-mod na lst bquiet)))
(acet-autoload2        '("acetutil.arx"        (ACET-ERROR-INIT)))
(acet-autoload2        '("FLATTENSUP.LSP"        (acet-flatn ss hide)))

qjcpj

autoload函数默认支持lsp，如果要其它文件类型，必须改写autoload函数，在其中添加对诸如*.fas,*.vlx,*.arx类型支持。

eachy

参考这个

http://p4.xdcad.net/forum/showthread.php?s=&threadid=452596

userzhluserzhl

谁有这个函数：
acet-autoload2