高亮显示选定内容

Manila Wolf · 发表于 2022-7-6 08:14:08

我有下面的Lisp程序。运行代码时，它首先要求选择维度，然后要求选择属性块以导入维度的值。

我的问题是：-如何修改代码以使选定尺寸高亮显示，如标准AutoCAD选择高亮显示？目前，选定的维度未高亮显示，因此很难知道它是否被选中。我希望这是一个简单的解决方案，有人可以帮助我。

这可能更复杂，但我想知道是否可以修改代码，使其能够将维度文本放置在任何指定的属性标记中。现在，它只将维度文本放置在具有多个标记的属性的第一行。
在这种特殊情况下，代码中指定了标记名“UTUNIT”，但仅当“UTUNIT”位于属性的第一行时才起作用。

copy

(defun C:dimatt (/ dim diminfo dimtext ss ent entinfo)
(setq dim (entsel "\n Select Dimension: "))
(setq diminfo (entget (car dim)))
(if (= (cdr (assoc 1 diminfo)) "")
(setq dimtext (rtos (cdr (assoc 42 diminfo))))
(setq dimtext (cdr (assoc 1 entinfo)))
)
(setq ss (ssget))
(setq ent (entnext (ssname ss 0)))
(setq entinfo (entget ent))
(while
(and ent
(= (cdr (assoc 0 entinfo)) "ATTRIB")
)
(if (= (cdr (assoc 2 entinfo)) (strcase "UTUNIT"))
(progn
(entmod (subst (cons 1 dimtext) (assoc 1 entinfo) entinfo))
(entupd ent)
(setq ent nil)
)
(setq ent (entnext ent))
)
)
(princ)
)

谢谢任何能帮忙的人。

MSasu · 发表于 2022-7-6 08:20:00

解决方案是重画函数：

copy

(redraw ent 3)   ;highlight
...
(redraw ent 4)   ;un-highlight

当做
米尔恰

Manila Wolf · 发表于 2022-7-6 08:22:10

米尔恰，

谢谢你的回复。

请原谅我的无知和lisp知识的缺乏，但这将在代码中插入到哪里？

pBe · 发表于 2022-7-6 08:26:56

我最近刚刚用redraw函数写了一个

样品

MSasu · 发表于 2022-7-6 08:27:54

您可以这样添加：

copy

(defun C:dimatt ( / dim diminfo dimtext ss ent entinfo)
(setq dim (entsel "\n Select Dimension: "))
[color=blue](redraw (car dim) 3)
[/color](setq diminfo (entget (car dim)))
(if (= (cdr (assoc 1 diminfo)) "")
(setq dimtext (rtos (cdr (assoc 42 diminfo))))
(setq dimtext (cdr (assoc 1 entinfo)))
)
[color=blue](prompt "\nSelect block to export value:")
[/color](setq ss (ssget))
(setq ent (entnext (ssname ss 0)))
(setq entinfo (entget ent))
(while
(and ent
(= (cdr (assoc 0 entinfo)) "ATTRIB")
)
(if (= (cdr (assoc 2 entinfo)) (strcase "UTUNIT"))
(progn
(entmod (subst (cons 1 dimtext) (assoc 1 entinfo) entinfo))
(entupd ent)
(setq ent nil)
)
(setq ent (entnext ent))
)
)
[color=blue](redraw (car dim) 4)
[/color](princ)
)

当做
米尔恰

pBe · 发表于 2022-7-6 08:31:32

考虑一下[快速书写]

copy

(defun c:test  ( / atsel dim str atb e b)
(vl-load-com)
     (setq atsel (ssadd))
     (if (and
               (setq dim (ssget ":S:E" '((0 . "DIMENSION"))))
               (setq str (rtos (vla-get-measurement
                                     (setq e    (vlax-ename->vla-object
                                                      (ssname dim
                                                              0))))))
               (not (vla-Highlight e :vlax-true))
               )
           (progn
                 (while (setq atb  (nentselp
                                         "\nSelect Attribute value to replace: "))
                       (if (eq (cdr (assoc 0 (entget (setq at   (Car atb))))) "ATTRIB")
                             (progn (ssadd at atsel)(redraw at 3))
                             )
                       )
                 (repeat (Setq i (sslength atsel))
                       (vla-put-textstring
                             (vlax-ename->vla-object
                                   (setq b (ssname atsel
                                                   (setq i    (1- i)))))
                             str)
                       (redraw b 4)
                       )
                 (vla-Highlight e :vlax-false)
                 )
           )(princ)
     )

HTH公司

Manila Wolf · 发表于 2022-7-6 08:35:27

Mircea，非常感谢修改后的代码。我试过了，效果很好。我希望我能抽出时间学习推理。
我感谢你的时间和帮助。

pBe。。。。。。
我能说什么？你的代码远远优于我使用的原始代码。
你已经不是第一次把我要求的一切都给了我了。
衷心感谢。

如果你们在马尼拉，请联系我。啤酒我请客。

MSasu · 发表于 2022-7-6 08:39:18

完全欢迎你！

当做
米尔恰

pBe · 发表于 2022-7-6 08:39:47

真的没什么，我只是做了个普通的

也许有一天我会接受你的提议

Lee Mac · 发表于 2022-7-6 08:45:27

这是我的版本，使用一个字段：

copy


[color=GREEN];; Link Dimension to Attribute  -  Lee Mac[/color]
[color=GREEN];; Prompts for selection of a Dimension and references the Dimension[/color]
[color=GREEN];; value using a Field located in a selected block attribute.[/color]
([color=BLUE]defun[/color] c:Dim2Att ( [color=BLUE]/[/color] *error* ad at el en g1 g2 gr ms ob p1 st )
   
   ([color=BLUE]defun[/color] *error* ( msg )
       ([color=BLUE]if[/color] en ([color=BLUE]redraw[/color] en 4))
       ([color=BLUE]if[/color] ad ([color=BLUE]vla-endundomark[/color] ad))
       ([color=BLUE]if[/color] ([color=BLUE]not[/color] ([color=BLUE]wcmatch[/color] ([color=BLUE]strcase[/color] msg) [color=MAROON]"*BREAK,*CANCEL*,*EXIT*"[/color]))
           ([color=BLUE]princ[/color] ([color=BLUE]strcat[/color] [color=MAROON]"\nError: "[/color] msg))
       )
       ([color=BLUE]redraw[/color]) ([color=BLUE]princ[/color])
   )
   
   ([color=BLUE]while[/color]
       ([color=BLUE]progn[/color] ([color=BLUE]setvar[/color] 'ERRNO 0) ([color=BLUE]setq[/color] en ([color=BLUE]car[/color] ([color=BLUE]entsel[/color] [color=MAROON]"\nSelect Dimension to Link: "[/color])))
           ([color=BLUE]cond[/color]
               (   ([color=BLUE]=[/color] 7 ([color=BLUE]getvar[/color] 'ERRNO))
                   ([color=BLUE]princ[/color] [color=MAROON]"\nMissed, try again."[/color])
               )
               (   ([color=BLUE]eq[/color] 'ENAME ([color=BLUE]type[/color] en))
                   ([color=BLUE]if[/color] ([color=BLUE]not[/color] ([color=BLUE]wcmatch[/color] ([color=BLUE]cdr[/color] ([color=BLUE]assoc[/color] 0 ([color=BLUE]entget[/color] en))) [color=MAROON]"*DIMENSION"[/color]))
                       ([color=BLUE]princ[/color] [color=MAROON]"\nObject is not a Dimension."[/color])
                   )
               )
           )
       )
   )
   ([color=BLUE]if[/color] en
       ([color=BLUE]progn[/color]
           ([color=BLUE]setq[/color] ad ([color=BLUE]vla-get-activedocument[/color] ([color=BLUE]vlax-get-acad-object[/color]))
                 el ([color=BLUE]entget[/color] en)
                 p1 ([color=BLUE]trans[/color] ([color=BLUE]cdr[/color] ([color=BLUE]assoc[/color] 11 el)) en 1)
                 ob ([color=BLUE]vlax-ename->vla-object[/color] en)
                 st ([color=BLUE]strcat[/color]
                        [color=MAROON]"%<\\AcObjProp Object(%<\\_ObjId "[/color]
                        ([color=BLUE]if[/color]
                            ([color=BLUE]and[/color]
                                ([color=BLUE]vl-string-search[/color] [color=MAROON]"64"[/color] ([color=BLUE]getenv[/color] [color=MAROON]"PROCESSOR_ARCHITECTURE"[/color]))
                                ([color=BLUE]vlax-method-applicable-p[/color] ([color=BLUE]vla-get-utility[/color] ad) 'getobjectidstring)
                            )
                            ([color=BLUE]vla-getobjectidstring[/color] ([color=BLUE]vla-get-utility[/color] ad) ob [color=BLUE]:vlax-false[/color])
                            ([color=BLUE]itoa[/color] ([color=BLUE]vla-get-objectid[/color] ob))
                        )
                        ([color=BLUE]if[/color] ([color=BLUE]eq[/color] [color=MAROON]""[/color] ([color=BLUE]cdr[/color] ([color=BLUE]assoc[/color] 1 el)))
                            [color=MAROON]">%).Measurement \\f "%lu6">%"[/color]
                            [color=MAROON]">%).TextOverride>%"[/color]
                        )
                    )
           )
           ([color=BLUE]vla-startundomark[/color] ad)
           ([color=BLUE]redraw[/color] en 3)
           ([color=BLUE]princ[/color] ([color=BLUE]setq[/color] ms [color=MAROON]"\nSelect Attribute to Link to Dimension: "[/color]))
           ([color=BLUE]while[/color]
               ([color=BLUE]progn[/color]
                   ([color=BLUE]setq[/color] gr ([color=BLUE]grread[/color] [color=BLUE]t[/color] 13 2)
                         g1 ([color=BLUE]car[/color]  gr)
                         g2 ([color=BLUE]cadr[/color] gr)
                   )
                   ([color=BLUE]cond[/color]
                       (   ([color=BLUE]=[/color] 5 g1)
                           ([color=BLUE]redraw[/color])
                           ([color=BLUE]grdraw[/color] p1 g2 3 1)
                           [color=BLUE]t[/color]
                       )
                       (   ([color=BLUE]=[/color] 3 g1)
                           ([color=BLUE]redraw[/color])
                           ([color=BLUE]if[/color] ([color=BLUE]setq[/color] at ([color=BLUE]car[/color] ([color=BLUE]nentselp[/color] g2)))
                               ([color=BLUE]if[/color] ([color=BLUE]eq[/color] [color=MAROON]"ATTRIB"[/color] ([color=BLUE]cdr[/color] ([color=BLUE]assoc[/color] 0 ([color=BLUE]entget[/color] at))))
                                   ([color=BLUE]progn[/color]
                                       ([color=BLUE]vla-put-textstring[/color] ([color=BLUE]vlax-ename->vla-object[/color] at) st)
                                       ([color=BLUE]vl-cmdf[/color] [color=MAROON]"_.updatefield"[/color] at [color=MAROON]""[/color])
                                       ([color=BLUE]princ[/color] ms)
                                   )
                                   ([color=BLUE]princ[/color] ([color=BLUE]strcat[/color] [color=MAROON]"\nObject is not an Attribute."[/color] ms))
                               )
                               ([color=BLUE]princ[/color] ([color=BLUE]strcat[/color] [color=MAROON]"\nMissed, try again."[/color] ms))
                           )
                           [color=BLUE]t[/color]
                       )
                   )
               )
           )
           ([color=BLUE]redraw[/color] en 4)
           ([color=BLUE]redraw[/color])
           ([color=BLUE]vla-endundomark[/color] ad)
       )
   )
   ([color=BLUE]princ[/color])
)
([color=BLUE]vl-load-com[/color]) ([color=BLUE]princ[/color])

[编程交流] 高亮显示选定内容

发表回复

精选推荐