求 批量从原点缩放图形

君是我的泪

以下是  批量合并的源码，感谢作者，我是为了这个扫描和3d打印的人体出放大的图纸，然后再平面上重建出来，切了一系列的面



(defun c:hb()  ;插图到一起
  (setvar "CMDECHO" 0)
  (setq pf (getfiled "指定原文件路径中的一个图形文件:>" "*" "dwg" 8))
  (setq path (vl-filename-directory pf))
  (setq path (strcat path "\\"))
  (setq aa (vl-directory-files path "*.dwg" 1))
  (setq n (length aa))
  (setq i 0)
  (setq nn 0)
  (setq pp (nth i aa))
  (initget "1 2")  
  (prompt "请输入图幅大小，1为A3，2为A4...\n")
  (setq opt (getkword"\n 1：A3图幅 /2：A4图幅 "))
     (cond
      ((= opt "1") (sub1))
      ((= opt "2") (sub2))
     )
  (prompt "程序执行完毕！！！\n")
  (princ)
)

(defun sub1()
  (prompt "\n")
  (prompt "程序正在按块插入图幅，请等待...\n")
  (while (/= pp nil)
            (setq i (+ i 1))
           (setq pp (strcat path pp))        
            (setq nn (+ nn 1))
                     (cond
                  ((=(rem nn 2)1) (command "insert" pp "@500,297" "1" "1" ""))                ;x,y均为相对坐标；比例1:1，不旋转；除于2余数为1，是第奇数张
                  (t (command "insert" pp "@0,-297" "1" "1" ""))                                ;x,y均为相对坐标        余数不为1，是第偶数张
                  )
          (princ (strcat "第" (itoa nn) "幅" "图号为" pp " \r"))
           (setq pp (nth i aa))   
           (command "zoom" "e" "zoom" "0.8x")
   )
)


(defun sub2()
  (prompt "\n")
  (prompt "程序正在按块插入图幅，请等待...\n")
  (while (/= pp nil)
            (setq i (+ i 1))
           (setq pp (strcat path pp))        
            (setq nn (+ nn 1))
                     (cond
                  ((=(rem nn 2)1) (command "insert" pp "@297,210" "1" "1" ""))                ;x,y均为相对坐标；比例1:1，不旋转；除于4余数为1，是第1张
                 (t (command "insert" pp "@0,-210" "1" "1" ""))                                
                  )
          (princ (strcat "第" (itoa nn) "幅" "图号为" pp " \r"))
           (setq pp (nth i aa))   
           (command "zoom" "e" "zoom" "0.8x")
   )
)

newer

用 缩放 搜索下论坛

君是我的泪

newer 发表于 2019-5-17 17:03
用 缩放 搜索下论坛

从文件外放单独缩放各文件，不用整合，可以吗?原点到原点

王鹏_pBZlo

这是我的思路:
把文件放到一个指定目录。写一段自动加载程序，要求如果打开的是指定目录的文件，就执行放大操作，然后保存退出。
再写一段程序，去依次打开指定目录下的文件，就OK了。
来自: 微社区

Lisphk

王鹏_pBZlo 发表于 2019-5-21 06:47
这是我的思路:
把文件放到一个指定目录。写一段自动加载程序，要求如果打开的是指定目录的文件，就执行放 ...

用DBX方式打开DWG，写盘

王鹏_pBZlo

Lisphk 发表于 2019-5-21 08:42
用DBX方式打开DWG，写盘

我只会用lsp编一些简单的东西.这个DBX完全没有概念