需要帮助仅选择证书

AutosoFreely · 发表于 2022-7-5 17:00:53

我猜不出来。下面创建的lisp可以很好地选择所有已识别的多DText属性块，从而全局更改其宽度因子。

然而，我需要它做的是只选择超过11.30mm的块，并将其更改为可以输入但有人可以输入的因子。

 (defun
  C:IDEC-FERRULE_SHORT (/ CE CN DT EN NA NE NH NS NT NW OLDERR OP SL SN SS)
 (setq
   OLDERR *ERROR*
   *ERROR* ERR
   CE (getvar "CMDECHO")
   SS (ssget '((0 . "INSERT")))
   CN 0
 ) ;_ end of setq
 ;;setq
    (setq NW (getreal "\nNew Text Width for Attribute: "))
    (if SS
      (repeat (setq SL (sslength SS))
        (setq
          SN (ssname SS CN)
          NE (entnext SN)
        ) ;_ end of setq
        ;;setq
        (while (and
                 NE
                 (/= (setq EN (cdr (assoc 0 (setq DT (entget NE)))))
                     "SEQEND"
                 ) ;_ end of /=
               ) ;_ end of and
          (if (= EN "ATTRIB")
            (progn
              (setq DT (subst (cons 41 NW) (assoc 41 DT) DT))
              (entmod DT)
              (entupd SN)
            ) ;_ end of progn
            ;;progn
          ) ;_ end of if
          ;;if
          (setq NE (entnext NE))
        ) ;_ end of while
        ;;while
        (setq CN (1+ CN))
        (repeat 25 (princ "\010"))
        (princ (strcat "Total " (itoa CN) " done of " (itoa SL)))
      ) ;_ end of repeat
      ;;repeat
      (princ "\nNo input")
    ) ;_ end of if
    ;;if
   )
   ;;W
 ) ;_ end of cond
 ;;cond
 (setvar "CMDECHO" CE)
 (setq *ERROR* OLDERR)
 (princ)
)

希望有人能帮我解决这个问题，因为我没有线索。

SLW210 · 发表于 2022-7-5 17:11:34

请阅读代码发布指南，并编辑代码以包含在代码标签中。[NOPARSE]

copy

Your Code Here[/NOPARSE]

=

copy

Your Code Here

请在适当的论坛上发布您的问题，我将您的帖子转移到AutoLISP、Visual LISP和DCL论坛。

Roy_043 · 发表于 2022-7-5 17:20:45

我对“多DText属性块”有点困惑。你是说多行属性吗？

Grrr · 发表于 2022-7-5 17:29:22

也许吧：

copy


[b][color=BLACK]([/color][/b]defun C:test [b][color=FUCHSIA]([/color][/b] / *error* oldcmd SS nw limt i e enx next pcnt tcnt [b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]defun *error* [b][color=NAVY]([/color][/b]m[b][color=NAVY])[/color][/b] 
        [b][color=NAVY]([/color][/b]and oldcmd [b][color=MAROON]([/color][/b]setvar 'cmdecho oldcmd[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b] 
        [b][color=NAVY]([/color][/b]if m [b][color=MAROON]([/color][/b]print m[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b] [b][color=NAVY]([/color][/b]princ[b][color=NAVY])[/color][/b]
[b][color=FUCHSIA])[/color][/b][color=#8b4513]; defun *error*[/color]
[b][color=FUCHSIA]([/color][/b]and [b][color=NAVY]([/color][/b]setq oldcmd [b][color=MAROON]([/color][/b]getvar 'cmdecho[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b] [b][color=NAVY]([/color][/b]setvar 'cmdecho 0[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]if 
        [b][color=NAVY]([/color][/b]and
                [b][color=MAROON]([/color][/b]princ [color=#2f4f4f]"\nSelect blocks to change their attrib width: "[/color][b][color=MAROON])[/color][/b]
                [b][color=MAROON]([/color][/b]setq SS [b][color=GREEN]([/color][/b]ssget [color=#2f4f4f]"_:L"[/color] [b][color=BLUE]([/color][/b]list [b][color=RED]([/color][/b]cons 0 [color=#2f4f4f]"INSERT"[/color][b][color=RED])[/color][/b] [b][color=RED]([/color][/b]cons 66 1[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
                [b][color=MAROON]([/color][/b]not [b][color=GREEN]([/color][/b]initget [b][color=BLUE]([/color][/b]+ 2 4[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
                [b][color=MAROON]([/color][/b]or [b][color=GREEN]([/color][/b]setq nw [b][color=BLUE]([/color][/b]getreal [color=#2f4f4f]"\nNew Text Width for Attribute < 1.0 >: "[/color][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]setq nw 1[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
                [b][color=MAROON]([/color][/b]not [b][color=GREEN]([/color][/b]initget [b][color=BLUE]([/color][/b]+ 2 4[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
                [b][color=MAROON]([/color][/b]or [b][color=GREEN]([/color][/b]setq limt [b][color=BLUE]([/color][/b]getreal [color=#2f4f4f]"\nSpecify the upper limit units < 11.30 >:"[/color] [b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]setq limt 11.3[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
        [b][color=NAVY])[/color][/b][color=#8b4513]; and[/color]
        [b][color=NAVY]([/color][/b]progn
                [b][color=MAROON]([/color][/b]repeat [b][color=GREEN]([/color][/b]setq i [b][color=BLUE]([/color][/b]sslength SS[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                        [b][color=GREEN]([/color][/b]setq e [b][color=BLUE]([/color][/b]ssname SS [b][color=RED]([/color][/b]setq i [b][color=PURPLE]([/color][/b]1- i[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                        [b][color=GREEN]([/color][/b]setq enx [b][color=BLUE]([/color][/b]entget e[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                        [b][color=GREEN]([/color][/b]setq next [b][color=BLUE]([/color][/b]entnext e[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                        [b][color=GREEN]([/color][/b]while [b][color=BLUE]([/color][/b]and next [b][color=RED]([/color][/b]/= [b][color=PURPLE]([/color][/b]cdr [b][color=TEAL]([/color][/b]assoc 0 [b][color=OLIVE]([/color][/b]setq nextnx [b][color=GRAY]([/color][/b]entget next[b][color=GRAY])[/color][/b][b][color=OLIVE])[/color][/b][b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b] [color=#2f4f4f]"SEQEND"[/color][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b]
                                [b][color=BLUE]([/color][/b]and 
                                        [b][color=RED]([/color][/b]= [color=#2f4f4f]"ATTRIB"[/color] [b][color=PURPLE]([/color][/b]cdr [b][color=TEAL]([/color][/b]assoc 0 nextnx[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b]
                                        [b][color=RED]([/color][/b]>= [b][color=PURPLE]([/color][/b]cdr [b][color=TEAL]([/color][/b]assoc 41 nextnx[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b] limt[b][color=RED])[/color][/b]
                                        [b][color=RED]([/color][/b]entupd [b][color=PURPLE]([/color][/b]cdr [b][color=TEAL]([/color][/b]assoc -1 [b][color=OLIVE]([/color][/b]entmod [b][color=GRAY]([/color][/b]subst [b][color=AQUA]([/color][/b]cons 41 nw[b][color=AQUA])[/color][/b] [b][color=AQUA]([/color][/b]assoc 41 nextnx[b][color=AQUA])[/color][/b] nextnx[b][color=GRAY])[/color][/b][b][color=OLIVE])[/color][/b][b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b]
                                        [b][color=RED]([/color][/b]or [b][color=PURPLE]([/color][/b]and pcnt [b][color=TEAL]([/color][/b]setq pcnt [b][color=OLIVE]([/color][/b]1+ pcnt[b][color=OLIVE])[/color][/b][b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b] [b][color=PURPLE]([/color][/b]setq pcnt 0[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b]
                                [b][color=BLUE])[/color][/b][color=#8b4513]; and[/color]
                                [b][color=BLUE]([/color][/b]setq next [b][color=RED]([/color][/b]entnext next[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b]
                                [b][color=BLUE]([/color][/b]or [b][color=RED]([/color][/b]and tcnt [b][color=PURPLE]([/color][/b]setq tcnt [b][color=TEAL]([/color][/b]1+ tcnt[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b]setq tcnt 0[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b]
                        [b][color=GREEN])[/color][/b][color=#8b4513]; while[/color]
                [b][color=MAROON])[/color][/b][color=#8b4513]; repeat[/color]
                [b][color=MAROON]([/color][/b]princ [b][color=GREEN]([/color][/b]strcat [color=#2f4f4f]"\nModified "[/color] [b][color=BLUE]([/color][/b]if pcnt [b][color=RED]([/color][/b]itoa pcnt[b][color=RED])[/color][/b] [color=#2f4f4f]"0"[/color][b][color=BLUE])[/color][/b] [color=#2f4f4f]" attributes of "[/color] [b][color=BLUE]([/color][/b]itoa tcnt[b][color=BLUE])[/color][/b] [color=#2f4f4f]" total, inside of "[/color] [b][color=BLUE]([/color][/b]itoa [b][color=RED]([/color][/b]1+ i[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b] [color=#2f4f4f]" blocks."[/color][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
        [b][color=NAVY])[/color][/b][color=#8b4513]; progn        [/color]
        [b][color=NAVY]([/color][/b]cond
                [b][color=MAROON]([/color][/b][b][color=GREEN]([/color][/b]not SS[b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]princ [color=#2f4f4f]"\nNothing selected."[/color][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
                [b][color=MAROON]([/color][/b][b][color=GREEN]([/color][/b]not nw[b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]princ [color=#2f4f4f]"\nAttribute width not specified."[/color][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
                [b][color=MAROON]([/color][/b][b][color=GREEN]([/color][/b]not limt[b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]princ [color=#2f4f4f]"\nUpper limit not specified."[/color][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
        [b][color=NAVY])[/color][/b][color=#8b4513]; cond[/color]
[b][color=FUCHSIA])[/color][/b][color=#8b4513]; if[/color]
[b][color=FUCHSIA]([/color][/b]and oldcmd [b][color=NAVY]([/color][/b]setvar 'cmdecho oldcmd[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]princ[b][color=FUCHSIA])[/color][/b]
[b][color=BLACK])[/color][/b][color=#8b4513]; defun        [/color]

AutosoFreely · 发表于 2022-7-5 17:36:40

@Roy_043使用的块是带有可视性的单线动态块。

我知道，如果我用多行文字创建宽度，那么减少宽度会更容易，但这样一来，输入的方便性也会被消除。块内的文本宽度为标准0.8，最好减少到0.65，但仅限于超出框限制的属性。

@Grrr似乎什么也没做。

附件。dwg文件显示了我们使用的一些块以及我希望发生的事情。

我试图整合另一个lisp的一部分（用于不同的原因），以识别图形中的某些块。

但遗憾的是，这并不奏效：

copy

  (Defun c:IDEC-FERRULE ( / ss i e v f)
      (if (setq ss (ssget "_X" '((0 . "INSERT")(66 . 1)
     (2 . "TAG_TOP-LEFT,TAG_DOWN-RIGHT,TAG_BOT_FUSE,TAG_TOP_FUSE,TAG_BOTSIDE_FUSE,TAG_TOPSIDE_FUSE `*U*"))))
 (repeat (setq i (sslength ss))
   (setq e (vlax-ename->vla-object (ssname ss (setq i (1- i)))))
  (if (and
   (member (strcase (vla-get-EffectiveName e)) '("TAG_TOP-LEFT" "TAG_DOWN-RIGHT" "TAG_BOT_FUSE" "TAG_TOP_FUSE" "TAG_BOTSIDE_FUSE" "TAG_TOPSIDE_FUSE"))
   (vlax-write-enabled-p e)
         )
   (progn
       (setq v (mapcar '(lambda (x)
      (if  (eq (vla-get-textstring x) "") 0 1))
         (vlax-invoke e 'Getattributes)))
      
      (cond
       ( (Setq f (cadr 
          (assoc v  '(((1 0 0)  "Off"  )
            ((1 1 0)  "DEST_1_ONLY" )
        ((1 1 1)  "DEST_2_ON" ))))
     ;;   Other Visibility States and conditions   ;:
            )
       (vla-put-value (vl-some '(lambda (z)(if (vla-get-propertyname z) "Visibility1") z)
               (vlax-invoke e 'GetDynamicBlockProperties))
       f      )
             )
      
       ( (equal v '(0 0 0)) (vla-delete e)   )
      
     ;(    or Other condtions here    );
     ;(    or Other condtions here    );
      )
     )
   )
   )
 )
  (princ)
 )