怎样把创建的图形变成块定义？生产衣杆

hd654

根据论坛内的代码，自己琢磨的，程序可以用，但是会提示未知命令！！而且生产的是三个矩形，没有成块？求大佬给优化一下
;-----------------衣杆生成------------------------------------
(defun c:yg(/  pt ent ent5 minpt maxpt  os p1 p2 p3  )  
  (setq os (getvar "OSMODE"))
  (setvar "cmdecho" 0)
(setq pt (getpoint "\n请选择矩形框内一点："))
  (command "-boundary" "a" "i" "n" "" "o" "r" "" pt "")
  (setq ent (entlast))
  (vla-GetBoundingBox
    (vlax-ename->vla-object ent)
    'minpt
    'maxpt
   )
  (setq        minpt (vlax-safearray->list minpt)
               maxpt (vlax-safearray->list maxpt)
  )
  (entdel ent)
  (setq
         P1 (list (car minpt) (cadr minpt))
         P2 (list (car minpt) (cadr maxpt))
         P3 (list (car maxpt) (cadr maxpt))


         Y1 (list (car P2)        (-(cadr P2) 60 ))
         Y2 (list (+(car P2) 20)  (-(cadr P2) 120))
         Y3 (list (car P3)        (-(cadr P3) 60 ))
         Y4 (list (-(car P3) 20)  (-(cadr P3) 120))
         Y5 (list (+(car P2) 20)  (-(cadr P2) 75))
         Y6 (list (-(car P3) 20)  (-(cadr P3) 105))
)
  (setvar "OSMODE" 0)
       (command "_RECTANGLE" "NON" Y1 "NON" Y2  "")
      (command "_RECTANGLE" "NON" Y3 "NON" Y4  "")
       (command "_RECTANGLE" "NON" Y5 "NON" Y6  "")
     (setvar "OSMODE" os)
  (princ)
)

xyp1964

(command "rectang" y1 y2)
(command "rectang" y3 y4)
(command "rectang" y5 y6)

davide888

可以用动态块的吧

hd654

davide888 发表于 2023-10-30 08:50
可以用动态块的吧

动态块还得调整位置吧

hd654

xyp1964 发表于 2023-10-31 09:43
(command "rectang" y1 y2)
(command "rectang" y3 y4)
(command "rectang" y5 y6)

谢谢版主回复，未知命令的提示解决了，但是还是三个单独的矩形，想要把他们变成块怎么解决啊？成组的代码还不会使用

xyp1964

hd654 发表于 2023-10-31 12:14
谢谢版主回复，未知命令的提示解决了，但是还是三个单独的矩形，想要把他们变成块怎么解决啊？成组的代码 ...

(setq ss(ssadd))
(command "rectang" y1 y2)
(ssadd(entlast) ss)
(command "rectang" y3 y4)
(ssadd(entlast) ss)
(command "rectang" y5 y6)
(ssadd(entlast) ss)
(setq bk (rtos (getvar 'cdate)2 8))
(command"-block" bk p1 ss "")
(command"-insert" bk p1 1 1 0)

hd654

xyp1964 发表于 2023-11-1 20:53
(setq ss(ssadd))
(command "rectang" y1 y2)
(ssadd(entlast) ss)

学习了，谢谢版主！