从嵌套匹配属性项. .它是可能的

danglar · 发表于 2017-3-2 07:55:39

大家好
在某些情况下，我们需要将选定对象的属性更改为嵌套对象的属性
例如，要将所选线条的线型和颜色更改为与外部参照中的线条相同。
在这种情况下，我按照以下方式执行：
1.将外部参照的线条复制到当前图形
2.将“ncopied”线条匹配到线条，我需要更改
3.删除“nCopiled”线条
是否可以通过lisp“自动化”此过程
我做了一些“肮脏”的方法，但都不管用
有人能帮我解决这个问题吗
任何帮助都将非常感谢

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

T.Willey · 发表于 2017-3-2 09:08:27

我假设您必须确保要复制的嵌套属性对于非嵌套实体有效。在您的示例中，需要将线型重命名为当前图形中的线型
目前windows计算机上没有，因此该示例可能不完全正确
嵌套线型：
|
因此，将“|”符号后面的项目（不包括）作为新属性使用。

danglar · 发表于 2017-3-2 09:13:17

．．这并不像它看起来那么简单T.Willey
y

T.Willey · 发表于 2017-3-2 09:18:05

类型没有任何测试(和我很久

ronjonp · 发表于 2017-3-2 09:21:18

可能是这样:

copy

(defun c:mpn (/ e p s p p2)
  (if (and (setq e (car (nentsel "\nPick an item to match property: "))) (setq s (ssget ":L")))
    (progn (foreach prop '(6 62)
             (if (or (setq p (assoc prop (entget e)))
                     (setq p (assoc prop (entget (tblobjname "layer" (cdr (assoc 8 (entget e)))))))
                 )
               (setq p2 (cons p p2))
             )
           )
           (foreach item (vl-remove-if 'listp (mapcar 'cadr (ssnamex s)))
             (foreach prop p2 (entmod (append (entget item) (list prop))))
           )
    )
  )
  (princ)
)

danglar · 发表于 2017-3-2 09:29:27

…非常有趣的解决方案ronjonp，谢谢，但不幸的是，该功能尚未完成。
根据嵌套项的颜色仅更改线条的颜色，但线型、图层名称和其他属性尚未更改

ronjonp · 发表于 2017-3-2 09:39:37

它应该像你要求的那样做线型和颜色。如果你不按对象做属性，你要做的就是把新的项目放在同一个层上。

danglar · 发表于 2017-3-2 09:50:19

它应该做的,但不幸的是不
我checke

danglar · 发表于 2017-3-2 09:59:52

完美的解决方案来自这里：
https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/match-properties-from-nested-item-is-it-possible/td-p/6915286
谢谢
比基茨大师。

ahsattarian · 发表于 2022-7-26 11:05:03

试试这个:

copy

(defun c:a ()
  (setq es (entsel "\n Select Object inside Block : "))
  (setq s (car es))
  (setq po (cadr es))
  (setq en (entget s))
  (setq typ (strcase (cdr (assoc 0 en)) t))
  (cond
    ((= typ "insert")
     (command "ncopy" po "" "none" '(0 0 0) "none" '(0 0 0))
     (setq s1 (entlast))
     (defun *error* (msg) (entdel s1) (princ))
     ;;(command "matchprop" (nentselp po))
     (command "matchprop" s1)
     (while (> (getvar 'cmdactive) 0) (command "box" pause pause))
     (entdel s)
    )
  )
  (princ)
)

[编程交流] 从嵌套匹配属性项. .它是可能的

发表回复

精选推荐