CAD块的编辑命令都有哪些

发布网友发布时间：2022-04-30 16:20

共2个回答

热心网友时间：2022-06-27 08:04

(defun c:CK(/ BNAME ENTGRP)
(setvar "cmdecho" 0) ;指令执行过程不响应
(PRINC "\n直接框选成块功能")
(COMMAND "_UCS" "W")
(princ "\n--请框选要成块的对象--")
(SETQ ENTGRP (SSGET))
(SETQ BNAME (GETVAR "TDINDWG"))
(SETQ BNAME (* BNAME 900000000))
(SETQ BNAME (FIX BNAME))
(SETQ BNAME (ITOA BNAME))
(COMMAND "_.BLOCK" BNAME "0,0" ENTGRP "")
(COMMAND "_.INSERT" BNAME "0,0" "" "" "")
(COMMAND "_UCS" "P")
(PRINC "\n框选成块完成！")(PRINC))

热心网友时间：2022-06-27 08:05

块编辑BEDIT，参照编辑REFEDIT

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com