找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 3853|回复: 5

[他山之石] ACET函数说明

[复制链接]

已领礼包: 51个

财富等级: 招财进宝

发表于 2013-5-24 15:26:01 | 显示全部楼层 |阅读模式

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

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

×


网上收集的acet的函数用法,虽然有CHM格式的介绍,但绝对这样更直观些。看了所有发帖分类,是不是他山之石就是原来的分享,就选这个主题分类了。

[pcode=lisp,true]
(defun acet-error-init ( errlist /                    ;;Error Init for ET
(defun acet-error-restore ( /                         ;;Error Restore for ET
(defun acet-sysvar-set ( varlist /                    ;;Save Sysvar List
(defun acet-sysvar-restore ( /                        ;;Restore Sysvar List
(defun acet-spinner ( /                               ;;Show Spinner Sign
(defun acet-table-name-list ( tblORlist /             ;;Get Table Entries
(defun acet-table-purge ( table entry flag /          ;;Purge table entry
(defun acet::store2reg ( varname varval /             ;;Store custom data 2 Registry
(defun acet::loadreg ( varname /                      ;;Load custom from Registry
(defun acet::store2dict ( varname varval /            ;;Store custom data 2 Dict
(defun acet::loaddict ( varname /                     ;;Load custom from Dict
(defun acet-set-CmdEcho ( val                         ;;Setvar CmdEcho
(defun acet-setvar ( varlist /                        ;;Setvar Custom Var
(defun acet-group-make-anon ( enamelist desc /        ;;Create Anonymous Group
(defun acet-ucs-to-object ( ent /                     ;;Setvar UCS to Ent
(defun acet-ucs-set-z ( zvec /                        ;;Setvar UCS to Ent
(defun acet-ucs-get ( from /                          ;;get current/entity ucs
(defun acet-ucs-set ( ucs /
(defun acet-ucs-cmd ( cmdlist /                       ;;execute ucs command
(defun acet-xdata-set ( xkeylist /                    ;;Set XData Values for keys
(defun acet-xdata-get ( xkeylist /                    ;;Get XData Value for key
(defun bns_ss_mod ( ss flag pr /                      ;;Get XData Value for key
(defun acet-layer-locked ( layer /                    ;;Check Layer Locked ?
(defun acet-layer-unlock-all ( /                      ;;Unlock all layers
(defun acet-plines-rebuild ( plist /                  ;;rebuild polylines
(defun acet-pline-segment-list-apply ( na lst /       ;;re-apply pline segment width
(defun acet::apply_width_bulge ( na swlst ewlst blglst /
(defun acet-plines-explode ( ss /                     ;;explode polylines
(defun acet-pline-segment-list ( elist /              ;get pline segment data
(defun acet::plines-get-widthlist ( ename etype elist /
(defun acet::pline-explode ( ename /
(defun acet-ss-ssget-filter ( ss flt /                ;;filter selection set
(defun acet-ss-new ( ename /                          ;;Create new SelectionSet with Ent
(defun acet-ss-clear-prev ( /                         ;;Clear previous SelectionSet
(defun acet-ss-visible ( entset flag /                ;;Make Entities Visible(0)-Invisible(1)
(defun acet-ss-intersection ( ss ssmaster /           ;;SelectionSet Intersection
(defun acet-ss-filter ( filterdata /                  ;;Filter Selection Set
(defun acet-ss-flt-cspace ( /                         ;;Build filter part for current space
(defun acet-ss-remove ( ss ssmaster /                 ;;Remove Ents from SelectionSet
(defun acet-ss-union ( sslist /                       ;;Combine SelectionSets together
(defun acet-ss-redraw ( ss mode /                     ;;Redraw SelectionSet with Mode
(defun acet-list-m-assoc ( key datalist /             ;;Redraw SelectionSet with Mode
(defun acet-ss-entdel ( ss /                          ;;Entdel ss entities
(defun acet-ss-filter-current-ucs ( ss printit /      ;;filter entities on current ucs
(defun acet-ss-annotation-filter ( ss /
(defun bns_annotation_ss ( ss /                       ;;Get Attributes into ss, remove inserts
(defun acet-ss-to-list ( ss /                         ;;Convert selection-set to entities list
(defun acet-list-to-ss ( lst /                        ;;Convert entities list to selection-set
(defun acet-ss-zoom-extents ( ss /                    ;####### Punkte p1/p2 von entry ohne Z-Wert !!!
(defun acet-ss-remove-dups ( ss fuz ignore /          ;;Remove duplicate entities
(defun acet::check-identic-points ( plist1 plist2 fuz /
(defun acet-tjust-keyword ( elist /                   ;;get text justification
(defun acet-tjust ( ss tjust /                        ;;(acet-tjust (ssadd na (ssadd)) "Start") ;; then set it to start
(defun acet-insert-attrib-set ( na attlst flag /  
(defun acet-currentviewport-ename ( /                 ;get current vport entity
(defun acet-viewport-lock-set ( vpename setlocked /   ;set vport locked/unlocked
(defun acet-alert ( msg /
(defun acet-fscreen-toggle ( /
(defun acet-init-fas-lib ( flag1 flag2 /
(defun acet-block-make-anon ( ss blkname /            ;;Create anonymous block from ss
(defun acet-block-purge ( bna /                       ;;Purge Block with given name
(defun getgeomextents ( en /
(defun acet-geom-z-axis ( /
(defun acet-point-flat ( pt from to /                 ;;flat point
(defun acet-geom-midpoint ( p1 p2 /                   ;;Calculate Midpoint for P1,P2
(defun acet-geom-m-trans ( pntlst from to /           ;;Transform Pointlist
(defun acet-geom-list-extents ( pntlst /              ;;Transform Pointlist
(defun acet-geom-zoom-for-select ( pntlist /          ;;Get Zoom Points to Include Points
(defun acet-geom-view-points ( /                      ;;Get Viewport Corner Points
(defun acet-geom-pixel-unit ( /
(defun acet-geom-textbox ( txtdata offset /           ;;Get Textbox for any Text
(defun acet-geom-rect-points ( pa pb /                ;;Get 5 Rectangle Points
(defun acet-geom-self-intersect ( pointlist flag /    ;;Point Check Self-Intersection
(defun acet-geom-object-end-points ( ename /          ;;get object end points
(defun acet-geom-object-point-list ( na alt /         ;;Get Object Points Rasterized    ;; altitude may be NIL !
(defun acet::pl-point-list ( na alt /                 ;;Get Polyline/LwPolyline Points
(defun acet::arc-point-list ( p1 p2 p3 ang alt /      ;;Get Arcus Points
(defun acet::delta-ang ( r a /                        ;;Get Arcus Infos  ;returns the delta angle of an arc with the specified altitude and radius
(defun acet-geom-image-bounds ( na /                  ;;Get Image Bounds
(defun acet-geom-point-rotate ( pnt p1 ang /          ;;Rotate Point ;Rotate 'pnt' from a base point of 'p1' and through an angle of 'ang' (in radians)
(defun acet-geom-vertex-list ( na /                   ;;Get (LW)Polyline Vertexes
(defun acet-geom-delta-vector ( p1 p2 /               ;;Get Difference Vector
(defun acet-geom-vector-scale ( vec scale /           ;;Get Difference Vector
(defun acet-geom-vector-add ( vec add /               ;;Add 2 Vectors
(defun acet-geom-cross-product ( v1 v2 /              ;;Get Vector Cross Product (Normal Vector)
(defun acet-geom-unit-vector ( p1 p2 /                ;;Get Vector Normalized
(defun acet-geom-angle-trans ( ang from to /          ;;Transform Angle between Coordsys
(defun acet-geom-pline-arc-info ( p1 p2 bulge /       ;;Get Arcus Infos
(defun acet-geom-point-inside ( pt ptlist dist /      ;;Check Point inside Band along Ptlist
(defun acet-geom-vector-side ( pt pa pb /             ;;Get Side of Point rel. to Vector
(defun acet-geom-intersectwith ( ent1 ent2 flag /     ;;Get Intersection Points
(defun acet::measure-points ( object dist /           ;;Get Object points by Measure
(defun acet-geom-object-normal-vector ( ename /       ;;Get Entity's Z normal vector
(defun acet-geom-point-scale ( targetpnt frompnt scale /
(defun acet-geom-vector-parallel ( v1 v2 /            ;;Check for parallel vectors
(defun acet-geom-arc-center ( pa pb pc /              ;;Get Arc center from 3 points
(defun acet-geom-object-z-axis ( ename /              ;;Get Entity Z-Axis
(defun acet-geom-vector-d-angle ( v1 v2 /             ;;Get angle between 2 vectors
(defun acet::acos ( inval /
(defun acet-geom-object-fuz ( na /                    ;;Get object fuzz
(defun acet-ui-entsel ( sellst /                      ;;Entity Selection
(defun acet-ui-single-select ( filter flag /          ;;Single Entity Select
(defun acet-ui-fence-select ( /                       ;;Fence Selectino points
(defun acet-ui-polygon-select ( mode /                ;;Window/Crossing Polygon
(defun bns_truncate_2_view ( a b x y x2 y2 /          ;;Truncate point list
(defun bns_groups_unsel ( /                           ;;Set All Groups to Unselect
(defun bns_groups_sel ( grpenames /                   ;;Set Groups back to Select
(defun acet-blink-and-show-object ( lst /             ;;Draw a temporary polyline & let it blink
(defun bns_blink_and_show_object ( na color /         ;;Draw a temporary polyline & let it blink
(defun bns_blktbl_match ( flt /                       ;;Search all entities inside block table
(defun bns_blk_match ( blkname flt lst flag /         ;;Search all entities inside specified blocks
(defun bns_tbl_match ( tblname flt /                  ;;Search all entities inside specified blocks
(defun bns_filter_match ( e1 flt /
(defun bns_-4_match ( a e1 flt /
(defun bns_or_match ( e1 flt /
(defun bns_and_match ( e1 flt /
(defun bns_not_match ( e1 flt / lst a flag )
(defun bns_gc_match ( e1 dp opr / dp2 a b c d flag )
(defun acet-dcl-list-make ( dcltile vallist /         ;;Display List Values
(defun acet-list-put-nth ( newval datalist atidx /
(defun acet-list-remove-nth ( atidx datalist /        ;;Remove Entry at Index
(defun acet-list-assoc-remove ( key datalist /        ;;Remove all Entries by Key
(defun acet-list-remove-adjacent-dups ( datalist /    ;;Remove Duplicates from List
(defun acet-list-remove-duplicate-points ( lst fuz /  ;;Remove duplicate points from List
(defun acet-list-group-by-assoc ( lst /               ;; group data by assoc key
(defun acet-elist-add-defaults ( elist /              ;;add defaults to elist
(defun acet-str-lr-trim ( s str /                     ;;Trim Left / Right Characters
(defun acet-str-space-trim ( str /                    ;;Trim Left / Right Spaces
(defun acet-str-esc-wildcards ( str /                 ;;place escape for wildcard strings
(defun acet-str-to-list ( deli line /                 ;;Split String into List
(defun acet-str-m-find ( find str /                   ;;Find multiple Substrings
(defun acet-str-equal ( str1 str2 /                   ;;Compare Strings Insensitive
(defun acet-bs-strip ( str /                          ;;Remove backslash controls
(defun acet-filename-ext-remove ( file /              ;;Remove Extension from File
(defun acet-filename-path-remove ( file /             ;;Get Filename Without Path
(defun acet-filename-extension ( file /               ;;Get Extension from Filename
(defun acet-filename-directory ( file /               ;;Get Directory from Filename
(defun acet-filename-valid ( file /                   ;;Check for Proper Filename
(defun acet-filename-supportpath-remove ( file /      ;;Remove Path, if file is inside Supportpathes
(defun acet-file-find ( file /                        ;;Extended FindFile
(defun acet-file-find-font ( fontfile /               ;;Extended FindFile (Fonts)
(defun acet-file-find-image ( imgfile /               ;;Extended FindFile (Fonts)
(defun acet-file-backup ( file /                      ;;Create Backup file
(defun acet-file-backup-delete ( /                    ;;Delete All Backup files
(defun acet-filename-associated-app ( filename /      ;;Get Application for file
(defun get-defparts ( cmd / cmdname cmdpar idx slen )
(defun acet-arxload-or-bust ( filename /
(defun acet-autoload ( loadlist /                     ;;Test & Load function & file
(defun acet-autoload2 ( loadlist /
(defun acet-autoloadarx ( loadlist /
(defun acet-viewport-next-pickable ( /                ;;Get Next Pickable VP
(defun acet-viewport-frozen-layer-list ( ename /      ;;Get Next Pickable VP
(defun acet-calc-bitlist ( n /                        ;;Calculate Bit Values
(defun acet-calc-round ( rval rround /                ;;Round Value
(defun acet-calc-tan ( a /                            ;; Calculate Tangens
(defun acet-lwpline-make ( lst /                      ;;Create LW Polyline
(defun acet-temp-segment ( p1 p2 p3 mode /            ;;Draw tempory Segment
(defun acet-wmfin ( wmffile /                         ;;WMF IN
(defun acet-dxf ( key keylist /                       ;;Get dxf value from assoc list
(defun acet-angle-format ( ang /                      ;;format angle 0...2*PI
(defun acet-angle-equal ( a b fuz /                   ;;Compare Angles with Tolerance
(defun acet-dtor ( a /                                ;;Compare Degree <> Radians
(defun acet-rtod ( a /                                
(defun acet-dict-ename ( dictname dictentry /         ;;Get Dictionary entry
(defun acet-dict-name-list ( dictname /               ;;Get Dictionary entries
(defun acet-explode ( na /                            ;;Explode SS and return exploded entities
(defun acet-list-assoc-put ( new lst /                ;;Add / Update entry to list
(defun acet-list-assoc-append ( new lst /             ;;Append entry to list
(defun acet-pline-is-2d ( elist /                     ;;Check (LW)Polyline for 2D
(defun acet-ui-getcorner ( p1 /                       ;;Get other corner with selection rubberband
(defun acet-undo-begin ( /                            ;;undo begin
(defun acet-undo-end ( /                              ;;undo end
(defun acet-cmd-exit ( /                              ;;undo command exit
(defun acet-safe-command ( bStart bAutoEnd cmdList /  ;;execute commands in safe mode
(defun acet-pref-supportpath-list ( /                 ;;Get Support Pathes as list
(defun acet-list-isort ( plst index /                 ;;Indexed Sort
(defun acet-acad-refresh ( /
(defun acet-geom-ss-extents ( ss shrink /             ;;Get extents of selection set
(defun acet-file-find-on-path ( fna path /            ;;Find file on OS env "PATH"
(defun acet-list-is-dotted-pair ( a /                 ;;check for dotted pair
(defun acet-file-open ( fna flag /                    ;;file open
(defun acet-list-remove-duplicates ( lst fuz /        ;;remove duplicates from list
(defun acet-list-split ( lst item /                   ;;Split List at entry
(defun acet-appid-delete ( appid /                    ;;Remove APPID
(defun acet-ui-progress-init ( title maxstep /        ;;init progress bar
(defun acet-ui-progress-safe ( pos /                  ;;set progress pos
(defun acet-ui-progress-done ( /                      ;;done progress
(defun acet-ui-get-long-name ( msg /                  ;;get long keyboard input
(defun acet::getltexmsg ( msgkey defmsg /
(defun acet::expandfn ( fname fcheck /                ;;Expand & Find Filename
(defun acet::filetype ( filename /                    ;;Get File Type Only
(defun acet::pos-filetype ( filename /                ;;Get Position of Extension
(defun acet::nameonly ( filename /                    ;;Get File Without Path
(defun acet::pathonly ( filename /                    ;;Get Directory only

[/pcode]

评分

参与人数 1D豆 +5 收起 理由
牢固 + 5 很给力!经验;技术要点;资料分享奖!

查看全部评分

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 51个

财富等级: 招财进宝

 楼主| 发表于 2013-5-24 15:31:22 | 显示全部楼层
函数使用说明CHM文件见下面这个高飞鸟版主的帖子: http://www.xdcad.net/forum/thread-667861-1-1.html
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-5-24 16:55:01 | 显示全部楼层
谢谢分享,:lol
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 685个

财富等级: 财运亨通

发表于 2013-5-25 15:31:40 | 显示全部楼层
高级东东.......留个记号!!!!!!!!!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 3255个

财富等级: 富可敌国

发表于 2013-5-28 15:17:25 | 显示全部楼层
这个函数还是第一次见到,新手路过:lol
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2018-9-2 10:32:26 | 显示全部楼层
正需要这个,看别人怎么写代码
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-3-29 21:23 , Processed in 0.217273 second(s), 42 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表