yamjqq 发表于 2020-3-21 11:36:55

各位老师，我想批量生成折线的外框，运行时部分图纸外框范围有误，求指点

各位老师，我想批量生成折线的外框，运行时部分图纸外框范围有误，求指点

Andyhon 发表于 2020-3-21 15:08:20

(defun C:test ()
(vl-load-com)
(command "undo" "be")
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(command "ucs" "w")
(princ "\n请选择折线:")
(while (null
         (setq EN
             (ssget
               '((70 . 0)
               (90 . 3)
               (0 . "LWPOLYLINE")
                )
             )
         )
         )
)
(setq i 0)
(while (setq ee (ssname en i))
    (apply
   'vl-cmdf (cons ".Rectangle" (acet-ent-geomextents ee))
    )
    ;; (vl-cmdf)
    (setq i (1+ i))
)
(vl-cmdf "undo" "e")
(princ)
(setvar "osmode" 16383)
)

yamjqq 发表于 2020-3-21 15:19:15

可以啦，谢谢Andyhon老师的指导
页: [1]
查看完整版本: 各位老师，我想批量生成折线的外框，运行时部分图纸外框范围有误，求指点