[公告]：XDRX_API Build 20828 版本发布...

XDSoft

1. 
   
2. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="650" id="AutoNumber1" height="498">
   
3.   <tr>
   
4.     <td width="100%" height="489">
   
5.       <iframe name="I1" width="100%" height="100%" src="http://www.xdcad.net/down/show.php?id=237">
   
6. 浏览器不支持嵌入式框架或配置为不显示嵌入式框架
   
7.       </iframe>
   
8.     </td>
   
9.   </tr>
   
10. </table>
    

复制代码

增加了“组、SPLINE、MLINE对象的所有ARX方法、超级拖动等近80个函数。使用“晓东工具箱”的朋友请下载才能保证这几天要给大家写的几个程序正确使用

374. xdrx_container_push

375. xdrx_container_pop

376. xdrx_container_iter

377. xdrx_container_Depth

378. xdrx_container_PopAll

379. xdrx_objectstack_depth

380. xdrx_objectstack_popall

381. xdrx_object_iscontainer

382. xdrx_sysvar_push

383. xdrx_sysvar_pop

384. xdrx_ucs_set

385. xdrx_ucs_setname

386. xdrx_mline_IsClosed

387. xdrx_mline_NumVerts

388. xdrx_mline_Scale

389. xdrx_mline_VertexAt

390. xdrx_mline_Style

391. xdrx_mline_Normal

392. xdrx_mline_GetClosestPoint

393. xdrx_mline_getPlane

394. xdrx_mline_Element

395. xdrx_mline_justification

396. xdrx_mline_AppendSeg

397. xdrx_mline_MoveVertex

398. xdrx_mline_RemoveLastSeg

399. xdrx_mline_SetClosed

400. xdrx_mline_SetNormal

401. xdrx_mline_SetScale

402. xdrx_mline_SetStyle

403. xdrx_mline_SetSupressStartCaps

404. xdrx_spline_degree

405. xdrx_spline_HasFitData

406. xdrx_spline_isnull

407. xdrx_spline_fitTolerance

408. xdrx_spline_GetFitPointAt

409. xdrx_spline_GetFitPointAt

410. xdrx_spline_NumFitPoints

411. xdrx_spline_GetFitTangents

412. xdrx_spline_GetFitData

413. xdrx_spline_GetControlPointAt

414. xdrx_spline_IsRational

415. xdrx_spline_NumControlPoints

416. xdrx_spline_WeightAt

417. xdrx_spline_GetNurbsData

418. xdrx_spline_ElevateDegree

419. xdrx_spline_ReverseCurve

420. xdrx_spline_InsertFitPointAt

421. xdrx_spline_PurgeFitData

422. xdrx_spline_RemoveFitPointAt

423. xdrx_spline_SetFitPointAt

424. xdrx_spline_SetFitTol

425. xdrx_spline_UpdateFitData

426. xdrx_spline_InsertKnot

427. xdrx_spline_SetControlPointAt

428. xdrx_spline_SetWeightAt


#if (ADS>14)
429. xdrx_PickSet_dragGen

430. xdrx_drag_setmatrix

431. xdrx_drag_initget

432. xdrx_drag_getlastMatrix

433. xdrx_group_setanoymous

434. xdrx_group_IsAnoymous

435. xdrx_group_isNotAccessible

436. xdrx_group_appendEntity

#endif

437. xdrx_group_removeEntity

438. xdrx_group_replaceEntity

439. xdrx_group_setcolor

440. xdrx_group_sethighlight

441. xdrx_group_SetLineType

442. xdrx_group_SetLineScale

443. xdrx_group_SetSelectAble

444. xdrx_group_SetVisiblity

445. xdrx_group_SetLayer

446. xdrx_group_SetDescription

447. xdrx_group_NumEntities

448. xdrx_group_getDescription

449. xdrx_group_IsSelectable

450. xdrx_group_HasEntity

451. xdrx_vector_rotateTo

452. xdrx_blkdef_addAttribDef

YueFeng

早点提供新的CHM格式帮助文件，或是将新增加的函数做出个用法来

漏网の鱼

天呀，450＋＋个，是AutoLisp的多少倍呀，有谁能记得过来这么多？

e2002

函数说明还是老的哦，急盼尽早得到最新最全的说明文档.

另外: xDragCopy(Move)  不滤过ss中的在LockedLayer上的objects,似乎是个bug吧?

XDSoft

最初由 e2002 发布
[B]函数说明还是老的哦，急盼尽早得到最新最全的说明文档.

另外: xDragCopy(Move)  不滤过ss中的在LockedLayer上的objects,似乎是个bug吧? [/B]

尽快出来，

对锁定层，是LISP构造选择集里面，下版代码加入过滤。

LK,你去看看 xdlsp.lsp 这个通用LISP函数库里面的 $Xdlsp_Dragm 这个函数，通用DRAG都做里面了，你在程序需要DRAG的时候，就加入 ($Xdlsp_Dragm ss nil nil)就可以了，你试试。

XDSoft

最初由 漏网の鱼 发布
[B]天呀，450＋＋个，是AutoLisp的多少倍呀，有谁能记得过来这么多？ [/B]

严格按照ARX的对象类库组织，好记忆的，没个类下面都有编辑、查询的函数。多用就好了，这些不可能都会用到，用到查手册就可以了，比如写SPLINE方面的，去查手册的SPLINE方面的列出，需要什么就用什么。

其实我平时，也就常用那么几个，但写出来的LISP程序已经很快、很强了。

多用是记住他们的最好途径。

e2002

恭喜xd的超级大drag新鲜出炉....8-)
为此特发布一个使用了一些drag函数的文字小东东(测试版本,正在改进中),希望对大家有用...

2. 
   
3. ;; Copy and edit TEXT object.
   
4. ;; LK , CADWAY  1999.05.25
   
5. 
   
6. ;; fixed object snap and variables list   2000.07.28
   
7. 
   
8. ;; fixed UCS , "lock layer" bug      2001.12.14
   
9. 
   
10. ;; changed for undo , add "Base point" option       2002.01.30
    
11. 
    
12. ;; changed for Xdapi drag , add "Follow" option      2002.08.30
    
13. 
    
14. (defun C:lk-text:CopyEditXdapi ( /
    
15.                            lk-text:CopyEdit:err
    
16.                            lk-text:CopyEdit:pro
    
17. 
    
18.                            bLoop oldvar1 oldvar2 esl en et
    
19.                           )
    
20. 
    
21.   (defun lk-text:CopyEdit:err (sErrMsg)
    
22.     (if (/= sErrMsg "Function cancelled")
    
23.         (princ (strcat "\nerror : " sErrMsg))
    
24.     )
    
25.     (setvar "CMDECHO" oldvar1)
    
26.     (setvar "OSMODE" oldvar2)
    
27.     (setq *error* olderr)
    
28.     (princ)
    
29.   ); end defun lk-text:CopyEdit:err
    
30.       
    
31.   (defun lk-text:CopyEdit:pro (en / oldvar2 bpt  bLoop bFollow sFollow ss sMsg pt bpt-in)
    
32.     (setq oldvar2 (getvar "OSMODE")
    
33.           bpt (trans (cdr (assoc 10 (entget en))) en 1)
    
34.           bLoop T
    
35.           bFollow nil
    
36.     )
    
37.     (while bLoop
    
38.       (if bFollow
    
39.         (setq sFollow "not " en (entlast))
    
40.           (setq sFollow "")
    
41.       )
    
42.       (setq ss (ssadd)
    
43.             ss (ssadd en)
    
44.             sMsg (strcat "\nSpecify the new text position point [Base point/" sFollow "Follow]: "))
    
45.       (xdrx_drag_initget 1 "Base Follow")
    
46.       (setq pt (xdrx_dragssmove sMsg ss bpt) )
    
47.       (cond
    
48.         ( (null pt) (setq bLoop nil) )
    
49.         ( (= pt "Base")
    
50.           (redraw en 3)
    
51.           (if (setq bpt-in (getpoint "\nBase point :"))
    
52.             (setq bpt bpt-in)
    
53.           )
    
54.           (redraw en 4)
    
55.         )
    
56.         ( (= pt "Follow")
    
57.           (setq bFollow (not bFollow))
    
58.         )
    
59.         ( pt
    
60.           (setvar "OSMODE" 0)
    
61.           (vl-cmdf "_.copy" en "" bpt pt)
    
62.           (vl-cmdf "_.ddedit" (entlast) "")
    
63.           (setvar "OSMODE" oldvar2)
    
64.           (if bFollow (setq bpt pt))
    
65.         )
    
66.       );end cond
    
67.     );end while
    
68.   )                                        ;end defun lk-text:CopyEdit:pro
    
69. 
    
70.   ;; main
    
71.   (setq olderr *error*
    
72.         *error* lk-text:CopyEdit:err
    
73.         oldvar1 (getvar "CMDECHO")
    
74.         oldvar2 (getvar "OSMODE")
    
75.   )
    
76.   (setvar "CMDECHO" 0)
    
77.   (command "_.undo" "_be")
    
78.   (while (setq esl (entsel "\nSelect a TEXT object :"))
    
79.     (setq en (car esl)
    
80.           et (cdr (assoc 0 (entget en)))
    
81.     )
    
82.     (if        (and (= et "TEXT")
    
83.              ;(not (lkax:Layer:ObjectLayerIsLock en))
    
84.         )
    
85.       (lk-text:CopyEdit:pro en)
    
86.     )
    
87.   )
    
88.   (command "_undo" "_e")
    
89.   (setvar "CMDECHO" oldvar1)
    
90.   (setvar "OSMODE" oldvar2)
    
91.   (setq *error* olderr)
    
92.   (princ)
    
93. );end defun C:lk-text:CopyEditXdapi
    

<br /> ;; Copy and edit TEXT object.<br /> ;; LK , CADWAY  1999.05.25<br /> <br /> ;; fixed object snap and variables list   2000.07.28<br /> <br /> ;; fixed UCS , "lock layer" bug      2001.12.14<br /> <br /> ;; changed for undo , add "Base point" option       2002.01.30<br /> <br /> ;; changed for Xdapi drag , add "Follow" option      2002.08.30<br /> <br /> (defun C:lk-text:CopyEditXdapi ( /<br />                            lk-text:CopyEdit:err<br />                            lk-text:CopyEdit:pro<br /> <br />                            bLoop oldvar1 oldvar2 esl en et<br />                           )<br /> <br />   (defun lk-text:CopyEdit:err (sErrMsg)<br />     (if (/= sErrMsg "Function cancelled")<br />         (princ (strcat "\nerror : " sErrMsg))<br />     )<br />     (setvar "CMDECHO" oldvar1)<br />     (setvar "OSMODE" oldvar2)<br />     (setq *error* olderr)<br />     (princ)<br />   ); end defun lk-text:CopyEdit:err<br />       <br />   (defun lk-text:CopyEdit:pro (en / oldvar2 bpt  bLoop bFollow sFollow ss sMsg pt bpt-in)<br />     (setq oldvar2 (getvar "OSMODE")<br />           bpt (trans (cdr (assoc 10 (entget en))) en 1)<br />           bLoop T<br />           bFollow nil<br />     )<br />     (while bLoop<br />       (if bFollow<br />         (setq sFollow "not " en (entlast))<br />           (setq sFollow "")<br />       )<br />       (setq ss (ssadd)<br />             ss (ssadd en)<br />             sMsg (strcat "\nSpecify the new text position point [Base point/" sFollow "Follow]: "))<br />       (xdrx_drag_initget 1 "Base Follow")<br />       (setq pt (xdrx_dragssmove sMsg ss bpt) )<br />       (cond<br />         ( (null pt) (setq bLoop nil) )<br />         ( (= pt "Base")<br />           (redraw en 3)<br />           (if (setq bpt-in (getpoint "\nBase point :"))<br />             (setq bpt bpt-in)<br />           )<br />           (redraw en 4)<br />         )<br />         ( (= pt "Follow")<br />           (setq bFollow (not bFollow))<br />         )<br />         ( pt<br />           (setvar "OSMODE" 0)<br />           (vl-cmdf "_.copy" en "" bpt pt)<br />           (vl-cmdf "_.ddedit" (entlast) "")<br />           (setvar "OSMODE" oldvar2)<br />           (if bFollow (setq bpt pt))<br />         )<br />       );end cond<br />     );end while<br />   )                                        ;end defun lk-text:CopyEdit:pro<br /> <br />   ;; main<br />   (setq olderr *error*<br />         *error* lk-text:CopyEdit:err<br />         oldvar1 (getvar "CMDECHO")<br />         oldvar2 (getvar "OSMODE")<br />   )<br />   (setvar "CMDECHO" 0)<br />   (command "_.undo" "_be")<br />   (while (setq esl (entsel "\nSelect a TEXT object :"))<br />     (setq en (car esl)<br />           et (cdr (assoc 0 (entget en)))<br />     )<br />     (if        (and (= et "TEXT")<br />              ;(not (lkax:Layer:ObjectLayerIsLock en))<br />         )<br />       (lk-text:CopyEdit:pro en)<br />     )<br />   )<br />   (command "_undo" "_e")<br />   (setvar "CMDECHO" oldvar1)<br />   (setvar "OSMODE" oldvar2)<br />   (setq *error* olderr)<br />   (princ)<br /> );end defun C:lk-text:CopyEditXdapi<br />

LIJUN4858

我有MAPINFO5.0及解密文件,有要的朋友跟我联系