向北对齐

MOHAN · 发表于 2022-7-28 09:57:35

帮助修复这条路!

(defun c:autorotatenorth (/ ss ent1 tw new rt temp blo ent2 elist)
(foreach tab (layoutlist)
(setvar 'ctab tab)
      (setq ss (ssget "_x" '((0 . "VIEWPORT") (100 . "AcDbViewport") (8 . "-TEXT"))))
      (setq ent1 (ssname ss 0))
      (setq tw (entget ent1))
      (setq new (cdr (assoc 0 tw )))
(cond ((= new "VIEWPORT") (setq rt (cdr (assoc 51 tw))))
      ((= new "LWPOLYLINE") (setq temp (entget (cdr (assoc 330 tw)))) (setq rt (cdr (assoc 51 temp)))))
      (setq blo (ssget "_x" '((2 . "NORTH") (8 . "Symbol"))))
      (setq ent2 (ssname blo 0))
      (setq elist (entget ent2))
      (setq elist (subst (cons 50 rt) (assoc 50 elist) elist))
  (entmod elist)) (princ))

t将工作

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

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

ronjonp · 发表于 2022-7-28 17:19:44

这是我大约15年前写的
http://www . the swamp . org/index . PHP？topic = 19285 . msg 234463 # msg 234463

BIGAL · 发表于 2022-7-28 18:04:30

时光飞逝

tombu · 发表于 2022-7-28 23:44:49

没有那么长，我的尝试只有2岁。只需旋转任何对象，因此无需块名称。

copy

; Rotate a block in pspace to match world in model
; By Alan H Aug 2020
(defun c:roblklay ( / obj1 obj rot ent)
(command "._PSPACE")
(setvar 'nomutt 1)
(princ "\nSelect a viewport")
(setq sss (ssget "_+.:E:S" (list (cons 0 "Viewport"))))
(setq obj1 (vlax-ename->vla-object (ssname sss 0)))
(setq ang (vlax-get obj1 'TwistAngle))
(while (setq ent (entsel "Pick block Enter to exit"))
(setq obj (vlax-ename->vla-object (car ent)))
(vla-put-rotation obj ang)
)
(princ)
)
(c:roblklay)

ronjonp · 发表于 2022-7-29 09:19:09

对于使用AutoCAD Map 3D和垂直线的用户，只有未记录的“-MAPINSERTPLE”命令将通过选择视口边界在图纸空间中添加与模型空间旋转相匹配的指北针。如果之后扭曲视口，则指北针会自动旋转以进行匹配。
此处描述：https://forums.autodesk.com/t5/civil-3d-customization/civil-3d-2015-mapinsertple-command/m-p/9970125#M19256
和此处：http://www.theswamp.org/index.php?topic=48049.0;all
对于记录，以下是 3 种“类型”：
2 = 指北针
3 = 比例尺
4 = 图例
（“为
：”命令提示符根据您使用的数字而变化。
“地图 - 指北针.dwg”的“符号”文件夹可以使用宏打开：

copy

^C^C^P(progn(startapp "explorer" (strcat "/n,/e," (vl-string-subst (strcat "Map" (chr 92) "Sample" (chr 92) "Symbols") "express" (vl-filename-directory (findfile "acetauto.lsp")))))(princ));

我修改了所有这些文件夹，以使用带有引用TrueType字体的标准文本样式的屏蔽Mtext，因此它们不需要添加其他文本样式，并且可以更好地显示在附加的“块.dwg”中的图像上。添加了一个带有我使用过的指北针宏的下拉列表，如下所示：
命令名称：Aerial N↑
Macro：^C^C（命令“-MAPINSERTPLE”“G://ENGDESGN//BeaufordT//Blocks//Blocks.dwg,Aerial,2”）
注意宏包括带有路径的绘图名称，块名称，类型= 2。

[编程交流] 向北对齐

发表回复

精选推荐