智能显示

守仁格竹GM · 发表于 2013-6-27 09:03:19

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

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

×

各位高手，请问如图所示，
比如下图是个块，编号输入后，图形位置自动显示图来，编号对应的是一系列块名，请问有可能实现吗？

st788796 · 发表于 2013-6-27 09:26:23

下面输入块名（编号），上方插入图块，是这样吗？

守仁格竹GM · 发表于 2013-6-27 09:31:24

st788796 发表于 2013-6-27 09:26
下面输入块名（编号），上方插入图块，是这样吗？

是这样的，我现在有个思路就是，得到编号参数，然后计算出对应坐标点插入图块，
不知道还有没有更好的输入参数自动生成图，非动态块。

st788796 · 发表于 2013-6-27 09:35:43

传个 DWG 样图上来

守仁格竹GM · 发表于 2013-6-27 09:48:00

st788796 发表于 2013-6-27 09:35
传个 DWG 样图上来

已上传请查看

newer · 发表于 2013-6-27 10:12:46

是手工操作吗？这个带编号的块图形已经在图上了，然后你选择编号，然后输入，然后上面就插入图形了？

守仁格竹GM · 发表于 2013-6-27 10:16:48

newer 发表于 2013-6-27 10:12
是手工操作吗？这个带编号的块图形已经在图上了，然后你选择编号，然后输入，然后上面就插入图形了？

对都在同一图内，里面随便建几个块试试就行。假如我输入编号，然后上面就插入图形

Free-Lancer · 发表于 2013-6-27 12:31:50

输入编号麻烦吧，这能记住那麽多名字，用插入图块选择，自动在下方生成名字不可以？来自: Android客户端

GTJ116600 · 发表于 2013-6-27 12:49:06

本帖最后由 GTJ116600 于 2013-6-27 12:50 编辑

最简单的方法是框选,点选，自动插入图块

在设计中俗称“调图程序"

newer · 发表于 2013-6-27 13:13:16

守仁格竹GM 发表于 2013-6-27 10:16
对都在同一图内，里面随便建几个块试试就行。假如我输入编号，然后上面就插入图形

那你这个编号和你的图要有个对应关系吧？

守仁格竹GM · 发表于 2013-6-27 13:29:48

编号就是图块的块名，我先试试用统计快哪个方法放到里面

牢固 · 发表于 2013-6-27 16:12:34

守仁格竹GM 发表于 2013-6-27 13:29
编号就是图块的块名，我先试试用统计快哪个方法放到里面

试试这个

;----------------------=={ Edit Box }==----------------------;;;;
;;;; Displays a DCL Edit Box to obtain a string from the user
;;;;------------------------------------------------------------
;;;; Author: Lee Mac, Copyright ? 2011 - <a href=\"http://www.lee-mac.com\" target=\"_blank\">www.lee-mac.com</a>
;;;;------------------------------------------------------------
;;;; Arguments:
;;;; string - initial value to display ("" for none)
;;;;------------------------------------------------------------
;;;; Returns: Edit box contents if user pressed OK, else nil
;;;;------------------------------------------------------------;;
(defun LM:EditBox (string / id)
(and (< 0 (setq id (load_dialog "ACAD")))
(new_dialog "acad_txtedit" id)
(set_tile "text_edit" string)
(action_tile "text_edit" "(setq string $value)")
(if (zerop (start_dialog))
(setq string nil)
)
)
(if (< 0 id)
(unload_dialog id)
)
string
)
(DEFUN C:TT ()
(IF (AND
(SETQ E (CAR (ENTSEL "\n选择图块:")))
(= "INSERT" (CDR (ASSOC 0 (SETQ EL (ENTGET E)))))
(= 1 (CDR (ASSOC 66 EL)))
(SETQ NAME (LM:EditBox ""))
(/= NAME "")
)
(PROGN
(vla-GetBoundingBox (SETQ OBJ (vlax-ename->vla-object E)) 'LL 'UR)
(MAPCAR 'SET '(LL UR) (MAPCAR 'vlax-safearray->list (LIST LL UR)))
(SETQ CP (LIST (* 0.5 (+ (CAR LL) (CAR UR))) (* 0.5 (+ (CADR LL) (CADR UR)))))
(COMMAND "INSERT" NAME "NON" (TRANS CP 0 1) 1 1 0)
)
)
(PRINC)
)

;----------------------=={ Edit Box }==----------------------;;;; 
;;;;  Displays a DCL Edit Box to obtain a string from the user 
;;;;------------------------------------------------------------ 
;;;;  Author: Lee Mac, Copyright ? 2011 - <a href=\"http://www.lee-mac.com\" target=\"_blank\">www.lee-mac.com</a> 
;;;;------------------------------------------------------------ 
;;;;  Arguments: 
;;;;  string - initial value to display ("" for none) 
;;;;------------------------------------------------------------ 
;;;;  Returns: Edit box contents if user pressed OK, else nil 
;;;;------------------------------------------------------------;; 
(defun LM:EditBox (string / id) 
  (and (< 0 (setq id (load_dialog "ACAD"))) 
       (new_dialog "acad_txtedit" id) 
       (set_tile "text_edit" string) 
       (action_tile "text_edit" "(setq string $value)") 
       (if (zerop (start_dialog)) 
         (setq string nil) 
         ) 
       ) 
  (if (< 0 id) 
    (unload_dialog id) 
    ) 
  string 
  ) 
(DEFUN C:TT () 
  (IF (AND 
        (SETQ E (CAR (ENTSEL "\n选择图块:"))) 
        (= "INSERT" (CDR (ASSOC 0 (SETQ EL (ENTGET E))))) 
        (= 1 (CDR (ASSOC 66 EL))) 
        (SETQ NAME (LM:EditBox "")) 
        (/= NAME "") 
        ) 
    (PROGN 
      (vla-GetBoundingBox (SETQ OBJ (vlax-ename->vla-object E)) 'LL 'UR) 
      (MAPCAR 'SET '(LL UR) (MAPCAR 'vlax-safearray->list (LIST LL UR))) 
      (SETQ CP (LIST (* 0.5 (+ (CAR LL) (CAR UR))) (* 0.5 (+ (CADR LL) (CADR UR))))) 
      (COMMAND "INSERT" NAME "NON" (TRANS CP 0 1) 1 1 0) 
      ) 
    ) 
  (PRINC) 
  )

守仁格竹GM · 发表于 2013-6-27 16:34:28

牢固发表于 2013-6-27 16:12
试试这个

很好用多谢多谢，只是里面的66 没有这个参数，这个伴随属性是做什么用的呢

牢固 · 发表于 2013-6-27 16:37:37

守仁格竹GM 发表于 2013-6-27 16:34
很好用多谢多谢，只是里面的66 没有这个参数，这个伴随属性是做什么用的呢

66是跟随标志，判断块是否有属性

守仁格竹GM · 发表于 2013-6-27 16:44:39

牢固发表于 2013-6-27 16:37
66是跟随标志，判断块是否有属性

有属性文字的块，不算有属性吗，我试了一下动态块和带属性文字的块都没有66这个参数呢。

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

[求助] 智能显示

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

相关帖子

点评

点评

点评

点评

点评

点评

点评