Bethrine 发表于 2014-8-7 17:40:59

什么？为什么？！规模...又来了！


**** Hidden Message *****

danAllen 发表于 2014-8-7 17:51:20

纵坐标尺寸被复制从而移动了原点？
这里是修复现有纵坐标以具有新源的粗略代码
;;; Reset orgin point of ordinate dimensions
(defun c:DimOrdFix ( / pt1 ed en prefix suffix str)
(setq pt1 (XYZ_getpoint nil "\nEnter New Ordinate Dimension Origin: " (cons 0 0)))
(prompt "\nSselect Ordinate dimensions to change: ")
(setq ss1 (ssget '((0 . "Dimension"))))
(setq ssnum (sslength ss1))
(if (and pt1 ss1)
    (progn
      (setq pt1 (trans pt1 1 0))
      (while (>= (setq ssnum (- ssnum 1)) 0)
          (setq ed (entget (setq en (ssname ss1 ssnum))))
          (if (member "AcDbOrdinateDimension" (massoc 100 ed))
            (progn
            (setq ed (subst (cons 10 pt1) (assoc 10 ed) ed))
            (entmod ed)
            (entupd en)
            ) ;_progn
          ) ;_if
      ) ;_while
    ) ;_progn
    (princ " - command exited!")
) ;_if
)
;;;==========================================================
;;; Get Point with Default - derived Looking Glass Microproducts
;;;==========================================================
(defun XYZ_getpoint (base prmpt default)
   (Setq
      prmpt (Strcat
               prmpt
               (If default
                  (Strcat " ")
                  ""
               )
               ": "
            )
   )
   (Cond
      ((If base
          (GetPoint base prmpt)
          (GetPoint prmpt)
       )
      )
      (default)
   )
)

Bethrine 发表于 2014-8-8 10:11:08

愚蠢的维度！他们就像蹒跚学步的孩子！不会留在我放它们的地方！

Matt__W 发表于 2014-8-8 10:32:45


我发现射钉枪很管用。

Bethrine 发表于 2014-8-8 10:59:09


我发现射钉枪有效。
这有点苛刻，不是吗？？

Hangman 发表于 2014-8-8 11:10:26


我发现射钉枪有效。
这有点苛刻，不是吗？？
不。。。
当它开始变得粗略时，它会再次松动它们。
更不用说他们会对我的显示器做什么。我喜欢我的显示器。AutoCAD足够先进，可以知道通过屏幕的钉子是什么意思？！哇！
页: [1]
查看完整版本: 什么？为什么？！规模...又来了！