这个画矩形填充怎么能让选择

yefei812678 · 发表于 2023-12-29 16:42

本帖最后由 yefei812678 于 2023-12-29 17:05 编辑

(defun c:tcc (/ pt1 pt2 width height)
(if (setq pt1 (getpoint "\n指定插入点: "))
(progn
(setq pt2 (getcorner pt1 "指定对角点"))
(command "RECTANG" pt1 pt2)
(command "-bhatch" "p""平面_石材1_比例1【YBC】"  1 45 "s"  (entlast) "" "")
(command "-bhatch" "p""立面_木饰面1_90度_比例600【YBC】"  600 90 "s"  (entlast) "" "")

  )
)
)
现在画矩形只能填充上面的石材填充，怎么能修改下可以选择，最好能填充完把矩形删掉。

yefei812678 · 发表于 2023-12-30 08:25

liuhe 发表于 2023-12-29 22:37
(defun c:tcc (/ pt1 pt2 width height)
(if (setq pt1 (getpoint "\n指定插入点: "))
(progn

我现在这是两个填充能不能改写能选择

liuhe · 发表于 2023-12-29 22:37

(defun c:tcc (/ pt1 pt2 width height)
  (if (setq pt1 (getpoint "\n指定插入点: "))
(progn
   (setq pt2 (getcorner pt1 "指定对角点"))
   (command "RECTANG" pt1 pt2)
   (SETQ PT1 (ENTLAST))
   (command "-bhatch"
         "p"
         "平面_石材1_比例1【YBC】"
         1
         45
         "s"
         (entlast)
         ""
         ""
   )
   (command "-bhatch"
         "p"
         "立面_木饰面1_90度_比例600【YBC】"
         600
         90
         "s"
         (entlast)
         ""
         ""
   )
   (ENTDEL PT1)
)
  )
)

yefei812678 · 发表于 2023-12-29 16:43

现在画矩形只能填充上面的石材填充最好能填充完把矩形删掉

start4444 · 发表于 2023-12-30 12:12

(defun c:tt5 (/ key pt1 pt2)
(setq key (getstring  "\n[立面木饰面(E) / 平面石材(空格)]:"))
  (if (setq pt1 (getpoint "\n指定插入点: "))
(progn
   (setq pt2 (getcorner pt1 "指定对角点"))
   (command "RECTANG" pt1 pt2)
   (SETQ PT1 (ENTLAST))
(if (= key "e")
(command "-bhatch"
"p"
"立面_木饰面1_90度_比例600【YBC】"
600
90
"s"
PT1
""
""
)
(command "-bhatch"
"p"
"平面_石材1_比例1【YBC】"
0.5
45
"s"
PT1
""
""
)
   )
   (ENTDEL PT1)
)
  )
)

yefei812678 · 发表于 2023-12-30 13:33

start4444 发表于 2023-12-30 12:12
(defun c:tt5 (/ key pt1 pt2)
(setq key (getstring "\n[立面木饰面(E) / 平面石材(空格)]:"))
(if ...

谢谢了

mashanjie · 发表于 2023-12-30 20:56

666 学习一下

账号		自动登录	找回密码
密码			注册

这个画矩形填充 怎么能让选择

这个画矩形填充怎么能让选择