wzw_km 发表于 2013-12-13 01:48:55

对齐天正对象命令

本帖最后由 wzw_km 于 2013-12-15 20:38 编辑

(princ "\n天正标高对齐 命令: TT")
(defun c:tt1()      
      (SETQ OS (GETVAR "OSMODE") ss nil)
      (if (setq TargetPt (getpoint "请选择要基准点:")) (setq ss (ssget '((0 . "TCH_ELEVATION")))))
      (setvar "osmode" 0)
      (if ss
          (progn                
                 (initget "H V")
               (if (= (setq x (getkword "是否确定[竖向对齐-默认(V)/水平对齐(H)]： ")) nil)(setq x "V"))
                 (SETQ TargetPtX (car TargetPt) TargetPtY (cadr TargetPt))
                 (repeat (setq n (sslength ss))
                     (setq BasisPt (CDR (assoc '10 (entget (ssname ss (setq n (1- n)))))))
                     (SETQ BasisPtX (car BasisPt) BasisPtY (cadr BasisPt))
                     (if (= x "V") (command "_move" (ssname ss n) "" BasisPt (list TargetPtX BasisPtY 0.0)))
                   (if (= x "H") (command "_move" (ssname ss n) "" BasisPt (list BasisPtX TargetPtY 0.0)))
                 )
          )
        )
      (SETVAR "OSMODE" OS)
)

594826903 发表于 2013-12-14 02:51:09

必须支持一下。

434939575 发表于 2014-2-22 11:23:56

收藏了！支持。

windowns456 发表于 2014-4-26 16:27:28


收藏了！支持。

lidaxiu 发表于 2014-4-26 19:01:52

路过，收藏看看
页: [1]
查看完整版本: 对齐天正对象命令