如何才能把生成的钢管是如图这样填充，现在是第一种填充，在里面的矩形了

start4444

两个框都选上

depgfdepgf

求助应该来个完整的代码

liunian0524

看看 start4444长老的这个帖子 http://bbs.mjtd.com/forum.php?mod=viewthread&tid=183302

start4444

好好-MEN 发表于 2022-4-23 12:23
那应该在哪个位置加上呢，望大师给补充一下

(DEFUN SUB_RS_HOLE (NUM_LIST / b d hatch  osmode_backup p1 plbi plbo prti prto ri ro ss ss1 t1)
  (setq P1 (GETPOINT "\n指定[矩形钢管]插入点..."))
  (setq D (CADR NUM_LIST))
  (setq B (CAR NUM_LIST))
  (setq T1 (CADDR NUM_LIST))
  (if (OR (= D 0) (= B 0) (= T1 0))
    (PROGN (ALERT "输入数据错误！\n重新输入！") (EXIT))
  )
  (setq PLBO (MAPCAR '- P1 (LIST (/ B 2.0) 0)))
  (setq PRTO (MAPCAR '+ PLBO (LIST B D)))
  (setq PLBI (MAPCAR '+ PLBO (LIST T1 T1)))
  (setq PRTI (MAPCAR '- PRTO (LIST T1 T1)))
  (setq RO (* T1 2.0))
  (setq RI T1)
  (SETVAR "cmdecho" 0)
  (setq OSMODE_BACKUP (GETVAR "osmode"))
  (command "osnap")
  (command "none")
  (if (NOT (TBLSEARCH "layer" "型钢"))
    (PROGN (command ".layer""m""型钢" "c" "42" """l" "continuous" ""  "p" "n" "" "" ) )
    (PROGN (command "layer""s""型钢" ""))
  )
  (command "rectangle")
  (command PLBO)
  (command PRTO)
  (setq SS (SSGET "L"))
  (command "fillet")
  (command "R")
  (command RO)
  (command "fillet")
  (command "T")
  (command "T")
  (command "P")
  (command SS)
  (command "rectangle")
  (command PLBI)
  (command PRTI)
  (setq SS1 (SSGET "L"))
  (command "fillet")
  (command "R")
  (command RI)
  (command "fillet")
  (command "P")
  (command SS1)

(if (tblsearch "layer" "填充图层") ""
(command "layer" "New" "填充图层" "c" "8" "填充图层" "")
)
(command "hatch"  "ANSI32" "1" "" ss ss1 "")
(setq HATCH (ENTLAST))
(command "change" HATCH "" "P" "la" "填充图层" "")

  (SETVAR "OSMODE" OSMODE_BACKUP)
)