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

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

本帖最后由 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:08

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:31

(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:19

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

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

(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:41

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

谢谢   了

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

666 学习一下
页: [1]
查看完整版本: 这个画矩形填充 怎么能让选择