只需反转DXF列表即可执行以下相反的任务：
替换此：
(entmod (append en1 (list (assoc 41 en2) (assoc 42 en2) (assoc 43 en2))))
有了这个：
(entmod (append en2 (list (assoc 41 en1) (assoc 42 en1) (assoc 43 en1))))
在这里，请尝试以下代码：
(defun c:rescaleblkbycorners ( / blk p1 p2 ll ur minpt maxpt )
(vl-load-com)
(prompt "\nSelect block you want to rescale on unlocked layer...")
(setq blk (ssname (ssget "_+.:E:S:L" '((0 . "INSERT"))) 0))
(if blk
(progn
(setq p1 (getpoint "\nPick or specify corner point : "))
(setq p2 (getcorner p1 "\nPick or specify other corner point : "))
(setq ll (list (apply 'min (mapcar 'car (list p1 p2))) (apply 'min (mapcar 'cadr (list p1 p2)))) ur (list (apply 'max (mapcar 'car (list p1 p2))) (apply 'max (mapcar 'cadr (list p1 p2)))))
(entupd (cdr (assoc -1 (entmod (subst (cons 41 1.0) (assoc 41 (entget blk)) (entget blk))))))
(entupd (cdr (assoc -1 (entmod (subst (cons 42 1.0) (assoc 42 (entget blk)) (entget blk))))))
(entupd (cdr (assoc -1 (entmod (subst (cons 43 1.0) (assoc 43 (entget blk)) (entget blk))))))
(vla-getboundingbox (vlax-ename->vla-object blk) 'minpt 'maxpt)
(mapcar 'set '(minpt maxpt) (mapcar 'safearray-value (list minpt maxpt)))
(entupd (cdr (assoc -1 (entmod (subst (cons 41 (/ (- (car ur) (car ll)) (- (car maxpt) (car minpt)))) (assoc 41 (entget blk)) (entget blk))))))
(entupd (cdr (assoc -1 (entmod (subst (cons 42 (/ (- (cadr ur) (cadr ll)) (- (cadr maxpt) (cadr minpt)))) (assoc 42 (entget blk)) (entget blk))))))
(vla-getboundingbox (vlax-ename->vla-object blk) 'minpt 'maxpt)
(mapcar 'set '(minpt maxpt) (mapcar 'safearray-value (list minpt maxpt)))
(vla-move (vlax-ename->vla-object blk) (vlax-3d-point minpt) (vlax-3d-point ll))
)
)
(princ)
)
我想到了这一点，我写的代码，将要求您选择块和2个角点，以符合所需的大小。。。所以实际上你不需要参考块，只需要矩形，甚至什么都不需要，只要试着选取2个点，它就会缩放以匹配那个边界框。。。
您好，M.R。 全部的
非常感谢你的帮助。它现在对我有效。你们和CADTutor是需要帮助时最好的地方。它还没有让我失望！
再次感谢先生们，
大卫 请阅读代码发布指南，并编辑代码以包含在代码标签中。
Your Code Here=
Your Code Here
页:
1
[2]