嗨，多里安！(defun c:test ()(setq ChosenBlockEntsel (entsel "pick a block"));get the block(setq ChosenBlockEname (car ChosenBlockEntsel));retrieve its <ename>(setq ChosenBlockEList (entget ChosenBlockEname));retrieve the entity's list(setq BInsertPointAssocList (assoc 10 ChosenBlockEList)); get the assoc of the OCS coordinate(setq BInsertPointCoordOCS (cdr BInsertPointAssocList));retrieve the OCS coordinate(setq BInsertPointCoordWCS (trans BInsertPointCoordOCS ChosenBlockEname 0));trans that coord to WCS(setq NewBInsertPointCoordWCS (mapcar '+ '(1 1 1) BInsertPointCoordWCS));apply the wcs move vector(setq NewBInsertPointCoordOCS (trans NewBInsertPointCoordWCS 0 ChosenBlockEname));trans that new coordinate in the block OCS(setq NewBInsertPointAssocList (cons 10 NewBInsertPointCoordOCS));Rebuild the assoc 10 list with the new coordinate(setq NewEListToEntmod (subst NewBInsertPointAssocList BInsertPointAssocList ChosenBlockEList));Rebuild the new block insert entity list(entmod NewEListToEntmod); entmod it(vl-cmdf "_.AttSync" "Select" ChosenBlockEname "Yes");needed if your block possess attributes.)
那是老派风格！好的，下面是另一种更简单的移动积木的方法。简单得多（但仍然不是我需要使用的那个）。Vlax-3d-point和vla move不需要使用trans，因为它们使用的坐标始终相对于WCS。如果您询问用户的一些输入，如getpoint，请务必小心，因为getpoint的值与活动UCS有关，并且需要使用trans。注意，对于下面的示例，我没有询问任何用户输入，只在WCS的x轴上将块移动了2个单位（增量点2点1）。唯一需要的是将块ename传输到VL对象，我们可以开始了。
(defun c:test2() (setq acadObj (vlax-get-acad-object)) (setq doc (vla-get-ActiveDocument acadObj)) (setq ChosenBlockEntsel (entsel "pick a block")) (setq ChosenBlockEname (car ChosenBlockEntsel)) (setq ChosenBlockVLObject (vlax-ename->vla-object ChosenBlockEname)) ;; Define the points that make up the move vector (setq point1 (vlax-3d-point 0 0 0) point2 (vlax-3d-point 2 0 0)) (vla-Move ChosenBlockVLObject point1 point2))
好了，既然我们玩得很开心，也知道事情是如何运作的，让我们更认真、更高效。不要在坐标0,0处插入块，而是尝试ssget the block just inserted（and only the block just inserted），然后将其从插入点移动到用户选择的新坐标。。。。我们可以直接将其插入所需的坐标，与当前UCS对齐，merci bonsoir风格！FTOW！
(defun c:InsTag ( / acadObj doc insertionPnt modelSpace rotationangle blockRefObj) ;Jef! 2016-03-01 ;Nota: the block "W2B_3D_ELEMENT_TAG" need to exist in the drawing (vl-load-com) (setq acadObj (vlax-get-acad-object)) (setq doc (vla-get-ActiveDocument acadObj)) (setq insertionPnt (vlax-3d-point (trans (getpoint "pick the coordinate for the insert point") 1 0))) (setq modelSpace (vla-get-ModelSpace doc)) (setq rotationangle (angle '(0.0 0.0) (trans (getvar 'ucsxdir) 0 (trans '(0.0 0.0 1.0) 1 0 t) t))) (setq blockRefObj (vla-InsertBlock modelSpace insertionPnt "W2B_3D_ELEMENT_TAG" 1 1 1 rotationangle)))
在启动之前，只需确保“W2B\u 3D\u ELEMENT\u TAG”块定义在图形中。。正如active-X Ref指南所说：尝试使用未初始化的名称参数调用InsertBlock方法会导致意外行为。“。一定要做一切你不需要打破你的cad。
希望有帮助
干杯
杰夫！
置顶卡
