更改插入点

nmulder · 发表于 2022-7-5 18:53:04

大家好。我正在用一个相当简单的lisp例程寻找一些帮助/建议。正如主题所说，我希望用户能够：
1.选择外部参照
2.选择第二个外部参照
3.更改第二个外部参照（插入点）的数字“10”dxf代码，以匹配第一个外部参照

我已经做了很多例行程序，但我想完善它，以防止用户拾取非外部参照实体或什么都没有。我已经玩了一些“while”和“if”语句，但我还没有掌握它们。

下面是我的代码和我的一些尝试，所以它还不是很好和整洁。该例程将在我们的办公室中使用，因此layerstate命令用于解决公司标准层的使用和问题。

谢谢你的帮助！

copy


(defun C:xer  (/ 1ent 1elist 1inspnt 2ent 2elist temp)
 (acet-error-init
(list (list "cmdecho" 0
            "osmode" (getvar "osmode")
     "clayer" (getvar "clayer")
     "attdia" (getvar "attdia")
         );list
      T
);list
 );acet-error-init
 
 (layerstate-save "temp" 239 nil)
 
  
 (setq 1ent (entsel "\nSelect the source XREF with the desired insertion point:  "))
     (setq 1elist(entget (car 1ent)))
     (setq 1inspnt (cdr (assoc 10 1elist)))
 
 (setq 1nestent (nentselp (cadr 1ent)))
 (setq 1nestlist (entget (car 1nestent)))
 (setq 1nentlay (cdr (assoc 8 1nestlist)))
 (if (vl-string-search "|" 1nentlay)
   (alert "yeah!")    (alert "Object selected is not an xref. Please try again."))
   (setq 2ent (entsel "\nSelect the destination XREF to be moved:  "))
     (setq 2elist (entget 2ent))
   
     
     
     (command ".layer" "unlock" "*" "")
         
 (setq 2elist (subst (cons 10 1inspnt)(assoc 10 2elist) 2elist))
 (entmod 2elist)
 (entupd 2ent)
 (layerstate-restore "temp")
 
 (layerstate-delete "temp")
 (command ".regenall")
 (setvar "CLAYER" CLay)
 (setvar "OSMODE" OMode)
 (setvar "CMDECHO" CEcho)
 (setvar "ATTDIA" ATTDIAmode)
 (acet-error-restore)
 (princ)
)

iconeo · 发表于 2022-7-5 19:09:09

试试这个。不是我的代码。

copy

(defun c:Mxr ( / elst matrix target)
(if
(and
(setq elst (nentselp "\nSelect Source Xref. "))
(setq matrix (caddr elst))
(setq target (car (entsel "\nSelect Target Xref. ")))
(setq target (vlax-ename->vla-object target))
)
(progn
(vlax-put target 'InsertionPoint '(0.0 0.0 0.0))
(vlax-put target 'XScaleFactor 1.0)
(vlax-put target 'YScaleFactor 1.0)
(vlax-put target 'ZScaleFactor 1.0)
(vlax-put target 'Rotation 0.0)
(vla-TransformBy target (vlax-tmatrix matrix))
)
)
(princ)
)
(c:mxr)

Commandobill · 发表于 2022-7-5 19:22:40

更简单一点：

copy

(defun c:xer ( / source matrix target)
(if
(and
(setq source (car (entsel "\nSelect Source Xref. ")))
(setq source (vlax-ename->vla-object source))
(setq target (car (entsel "\nSelect Target Xref. ")))
(setq target (vlax-ename->vla-object target))
)
(vla-put-insertionpoint target (vla-get-insertionpoint source))
)
(princ)
)

iconeo · 发表于 2022-7-5 19:32:58

这不包括比例和旋转，但正确吗？

Commandobill · 发表于 2022-7-5 19:39:11

如果要检查某个对象是否为外部参照，可以在其中进行另一个检查，如下所示：

copy

(vlax-property-available-p source 'path)

Commandobill · 发表于 2022-7-5 19:45:21

没有，但OP没有要求旋转或缩放，只要求插入点。

iconeo · 发表于 2022-7-5 19:54:36

没错，这部作品是从2011年开始的。。。死者在我们中间行走。

[编程交流] 更改插入点

发表回复

精选推荐