[分享]：新写一个工具，“索引图名”...

XDSoft · 发表于 2002-9-18 03:53:02

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

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

×

[FONT=courier new]
;|
命令：XDTB_SymbolIndex
功能：索引图名
|;
(defun c:XDTB_SymbolIndex (/ na e ss)
(if (not $XDTB_SYMBOL_INDEX_NA)
(setq $XDTB_SYMBOL_INDEX_NA "-")
)
(if (/= "" (setq na (getstring (strcat "\n请输入被索引的图名<"
$XDTB_SYMBOL_INDEX_NA ">:"
)
)
)
)
(setq $XDTB_SYMBOL_INDEX_NA na)
)
(if (not $XDTB_SYMBOL_INDEX_NO)
(setq $XDTB_SYMBOL_INDEX_NO "1")
)
(if (/= "" (setq na (getstring (strcat "\n请输入索引编号<"
$XDTB_SYMBOL_INDEX_NO ">:"
)
)
)
)
(setq $XDTB_SYMBOL_INDEX_NO na)
)
(xdrx_SysVar_Push "orthomode" "osmode" "CURSORSIZE")
(xdrx_begin "公共文字")
(setvar "osmode" 0)
(setvar "orthomode" 0)
(setvar "fillmode" 1)
(setvar "CURSORSIZE" 5)
(if (= "-" $XDTB_SYMBOL_INDEX_NA)
(progn
(command ".insert" (strcat _XDTPath "LIB/_INDEX1.DWG") '(0 0 0) 1400
"" 0.0 $XDTB_SYMBOL_INDEX_NO
)
)
(progn
(command ".insert" (strcat _XDTPath "LIB/_INDEX2.DWG") '(0 0 0) 1400
"" 0.0 $XDTB_SYMBOL_INDEX_NO (strcase $XDTB_SYMBOL_INDEX_NA)
)
)
)
(setq ss (ssadd))
(ssadd (setq e (entlast))
ss
)
(xdrx_entity_setvisible e)
(if _isV14
(progn
(if (setq pt (xdrx_dragssmove "\n插入点<退出>" ss '(0 0 0)))
(progn
(command "._move" ss "" '(0 0 0) pt)
(xdrx_entity_setvisible e t)
)
(entdel e)
)
)
(progn
(xdrx_drag_initget 1)
(xdrx_drag_setmode "MOVE")
(if (setq mMat (xdrx_PickSet_DragGen "\n插入点<退出>" ss '(0 0 0) 0
nil
)
)
(progn
(xdrx_entity_transForm e mMat)
(xdrx_entity_setvisible e t)
)
(entdel e)
)
)
)
(xdrx_end)
(xdrx_SysVar_Pop)
(princ)
)[/FONT]

[FONT=courier new] 
;| 
  命令：XDTB_SymbolIndex 
  功能：索引图名 
|; 
(defun c:XDTB_SymbolIndex (/ na e ss) 
  (if (not $XDTB_SYMBOL_INDEX_NA) 
    (setq $XDTB_SYMBOL_INDEX_NA "-") 
  ) 
  (if (/= "" (setq na (getstring (strcat "\n请输入被索引的图名<" 
                                         $XDTB_SYMBOL_INDEX_NA ">:" 
                                 ) 
                      ) 
             ) 
      ) 
    (setq $XDTB_SYMBOL_INDEX_NA na) 
  ) 
  (if (not $XDTB_SYMBOL_INDEX_NO) 
    (setq $XDTB_SYMBOL_INDEX_NO "1") 
  ) 
  (if (/= "" (setq na (getstring (strcat "\n请输入索引编号<" 
                                         $XDTB_SYMBOL_INDEX_NO ">:" 
                                 ) 
                      ) 
             ) 
      ) 
    (setq $XDTB_SYMBOL_INDEX_NO na) 
  ) 
  (xdrx_SysVar_Push "orthomode" "osmode" "CURSORSIZE") 
  (xdrx_begin "公共文字") 
  (setvar "osmode" 0) 
  (setvar "orthomode" 0) 
  (setvar "fillmode" 1) 
  (setvar "CURSORSIZE" 5) 
  (if (= "-" $XDTB_SYMBOL_INDEX_NA) 
    (progn 
      (command ".insert" (strcat _XDTPath "LIB/_INDEX1.DWG") '(0 0 0) 1400 
               "" 0.0 $XDTB_SYMBOL_INDEX_NO 
      ) 
    ) 
    (progn 
      (command ".insert" (strcat _XDTPath "LIB/_INDEX2.DWG") '(0 0 0) 1400 
               "" 0.0 $XDTB_SYMBOL_INDEX_NO (strcase $XDTB_SYMBOL_INDEX_NA) 
      ) 
    ) 
  ) 
  (setq ss (ssadd)) 
  (ssadd (setq e (entlast)) 
         ss 
  ) 
  (xdrx_entity_setvisible e) 
  (if  _isV14 
    (progn 
      (if (setq pt (xdrx_dragssmove "\n插入点<退出>" ss '(0 0 0))) 
        (progn 
          (command "._move" ss "" '(0 0 0) pt) 
          (xdrx_entity_setvisible e t) 
        ) 
                     (entdel e) 
      ) 
    ) 
    (progn 
      (xdrx_drag_initget 1) 
      (xdrx_drag_setmode "MOVE") 
      (if (setq mMat (xdrx_PickSet_DragGen "\n插入点<退出>" ss '(0 0 0) 0 
                                           nil 
                     ) 
          ) 
        (progn 
          (xdrx_entity_transForm e mMat) 
          (xdrx_entity_setvisible e t) 
        ) 
        (entdel e) 
      ) 
    ) 
  ) 
  (xdrx_end) 
  (xdrx_SysVar_Pop) 
  (princ) 
)[/FONT]

aeo · 发表于 2002-9-19 23:40:46

这我早写了
还是用对话框方便
应该还有给人输入文字说明,一起完成,可能分行的
引出方向不同,文字定位是不同的.
画的线自动水平
引出方式有几种可能的

XDSoft · 发表于 2002-9-19 23:44:33

最初由 aeo 发布
[B]这我早写了
还是用对话框方便
应该还有给人输入文字说明,一起完成,可能分行的
引出方向不同,文字定位是不同的.
画的线自动水平
引出方式有几种可能的 [/B]

这个是“索引图名”，这个时可以拖动的，不是“引出”的那种，能把你曾经写过的，贴到论坛和大家共享吗？

无痕 · 发表于 2002-9-20 00:03:16

嗯，对对，大家交流交流

aeo · 发表于 2002-9-24 20:27:17

你的也就用了xdrx_dragssmove 而已,用处不大呀
不过要问一下你,为什么你的xdrx_dragssmove ,最后还会留下一根线,
是从起点到最后的选取点,我要多用一下redraw,开始我还以为是画错了.
R14下.

XDSoft · 发表于 2002-9-24 22:11:18

最初由 aeo 发布
[B]你的也就用了xdrx_dragssmove 而已,用处不大呀
不过要问一下你,为什么你的xdrx_dragssmove ,最后还会留下一根线,
是从起点到最后的选取点,我要多用一下redraw,开始我还以为是画错了.
R14下. [/B]

dragMove已经不用了，在2002下用全新的拖动xdrx_Pickset_dragGen取代，这个函数能写出什么东西，去2002下，试试“自由拷贝、自由移动、自由粘贴、自由缩放”就会体会到。

让用户拖动，是更人性化的一个体现，现在这个程序仅仅是初稿，还要考虑自动递增详图名等等，让一个图中的详图不会重名。

能写程序其实很简单，我不会为我能写点东西就觉得自己了不起。因为这样我知道会妨碍我进取，大家喜欢用我的东西，是我最大的满足。

flowerson · 发表于 2004-4-27 19:25:58

2005 里我试了会死机！

gyc2001 · 发表于 2006-1-20 20:00:30

2006里出错

zzsong · 发表于 2006-1-22 17:33:37

好东西，虽然看不明白。
能够作到象2005、2006图纸集那样当图纸编号改变后自动变更索引与详图号吗？
早想有这样一个东西了，如果是这样的东西的话，那真是太好了。
期待！

cccy68 · 发表于 2006-1-24 15:01:38

06里试试看吧，鼓励一下

zzsong · 发表于 2006-1-27 10:13:03

老老贴了，不知XD老大程序改的如何？出来说句话嘛。

账号		自动登录	找回密码
密码			立即注册

[分享]：新写一个工具，“索引图名”...

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

相关帖子