多个增强属性ed

kocbek · 发表于 2022-7-5 17:02:08

你好
我是新来的，所以如果我要求一些已经写好的东西，不要生气。

所以，正如标题所说，我需要一个lisp例程来更改块的属性。
具体来说，我需要更改块中多个点的高程。

我在网上找到了一些lisp例程，但并没有达到我的预期。

这是一个最接近我要求的Lisp程序的句子：

copy

(defun pluserr (msg)
(if msg (princ msg))
(command "_.undo" "_end")
(if ps (setvar "pickstyle" ps))
(if olderr (setq *error olderr))
(princ)
)
(defun c:smileytongue:lus (/ ps plusval ent elist numstr num tval plcs elist2)
(setq ps nil plusval nil ent nil elist nil numbstr nil num nil tval nil
plcs nil elis2 nil)
(setq olderr *error* *error* pluserr)
(command "_.undo" "_g")
(setq ps (getvar "pickstyle"))
(setvar "pickstyle" 0)
(setq plusval (getreal "\n Plus value: "))
(setq plcs (getint "\nHow many decimal places? <0>: "))
(if (null plcs) (setq plcs 0))
(setq ent (nentsel))
(while ent
(setq elist (entget (car ent)))
(setq numstr (cdr (assoc 1 elist)))
(setq num (atof numstr))
(setq tval (+ plusval num))
(setq total (rtos tval 2 plcs))
(setq elist2 (subst (cons 1 total) (cons 1 numstr) elist))
(entmod elist2)
(if (= (cdr (assoc 0 elist)) "ATTRIB")(command "regen"))
(setq ent (nentsel))
);end while
(setvar "pickstyle" ps)
(command "_.undo" "_end")
(setq *error olderr)
(princ)
)

好这很好，但它允许选择多个对象或整个块。
它还改变了点的整个高程，但我想将原始高程添加到新高程。举个例子：如果我有一个高程为230,33的点，并想“删除”该高程为0,5。所以一个新的高度是229,83。
因此，如果我为多个点更改此高程，则会将选定点的所有高程减0,5（或我确定的其他值）。

我附上了一张我的点块看起来是什么样子的照片

如果有人能帮助我，我会很高兴。

Tharwat · 发表于 2022-7-5 17:06:49

希望我能让你康复。。。。

copy


(defun c:TesT (/ st ss i n e x)
 (vl-load-com)
 ;; Tharwat 12. Dec. 2011 ;;
 (cond ((not acdoc)
        (setq acdoc (vla-get-ActiveDocument (vlax-get-acad-object)))
       )
 )
 (if (and (setq st (getdist "\n Enter Number to substract :"))
          (setq ss (ssget "_:L" '((0 . "INSERT") (66 . 1))))
     )
   (progn
     (vla-StartUndoMark acdoc)
     (repeat (setq i (sslength ss))
       (setq n (entnext (ssname ss (setq i (1- i)))))
       (while
         (not
           (eq (cdr (assoc 0 (setq e (entget n))))
               "SEQEND"
           )
         )
          (if (and
                (eq (cdr (assoc 0 e)) "ATTRIB")
                (not (eq (atof (cdr (assoc 1 e))) 0.))
              )
            (entmod
              (subst (cons 1 (rtos (- (atof (cdr (assoc 1 e))) st)2 )) (assoc 1 e) e)
            )
          )
          (setq n (entnext n))
       )
     )
     (vla-EndUndoMark acdoc)
   )
   (princ)
 )
 (princ)
)

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

请阅读代码发布指南并编辑您的帖子。

Tharwat · 发表于 2022-7-5 17:12:35

现在很多人都是新手，大多数人不熟悉代码发布，但肯定会按时来

kocbek · 发表于 2022-7-5 17:17:35

谢谢你的快速回复。
我测试了你的例程，它可以工作，但通过更改点高度（高程），它也会更改点编号。
我只想更改一个属性，即点高度（高程）。

还有一个问题，我试图将rtos精度设置为2位小数（rtos x 2 2），但我找不到这个设置数字的位置。我只找到了设置rtos模式的数字。
现在我将点高度精度设置为4位小数。（这对于我需要的东西来说有点太精确了）
请告诉我在哪里可以更改rtos精度？

Tharwat · 发表于 2022-7-5 17:20:01

不客气，科贝克。

更改例程中数字的精度，这与您在示例中所示的相同。

这是你可以改变精度的部分，你增加精度的数字也会增加。

copy


(if (and                 
(eq (cdr (assoc 0 e)) "ATTRIB")                 
(not (eq (atof (cdr (assoc 1 e))) 0.)))        
     (entmod  (subst (cons 1 (rtos (- (atof (cdr (assoc 1 e))) st) 2 [color=blue][b]2[/b][/color])) ;;;<-- Change the Blue colored number to see the changes in precisions.
                     (assoc 1 e) e)))

kocbek · 发表于 2022-7-5 17:23:21

... Do't mean to step your toes there tharwat，i also post the same mod for your code on my post.我不是有意在那里踩你的脚，我也在我的帖子上为你发布了相同的mod代码。

kocbek · 发表于 2022-7-5 17:25:13

完全没有，我的朋友。

我确实希望看到在同一问题上有许多编码方式。

干杯pBe。

BIGAL · 发表于 2022-7-5 17:28:18

非常感谢大家的帮助！
我试图理解这个lisp代码，有人能解释一下这部分代码的含义吗：“（0）”插入“）（66.1））”？

好的，现在出现了一个新问题。在以前的lisp例程中，我想添加或删除点高度（高程），但现在我需要将每个示例中相同点的文本高度从0.350更改为0.500。
有人能帮我做这个吗？

pBe · 发表于 2022-7-5 17:33:48

Kocbek你需要一个不同的程序，基本上是对提供的程序的修改，唯一的区别是额外的一行

输入存在值
输入新值
该行也将更改，它不执行-（entmod（subst（cons 1（rtos）（（atof（cdr（assoc 1 e）））st）2 2））（assoc 1 e）

上面的海报最好能有所改变，以防我搞砸了什么

Ps Tharwat getdist应该是getreal吗

[编程交流] 多个增强属性ed

发表回复

精选推荐