布满填充

sunny_8848

论坛求助得到一个布满填充的程序，适用于矩形框，现在想改成适合单根直线，单个圆弧请有心人帮忙，看能解决不

lee50310

改好了 ，請測試試看  
修正版 tt6.lsp
執行指令: tt


最新修正版 tt8.lsp  在 37 樓

sunny_8848

自己顶一下

sunny_8848

自己再顶一次，希望能有人帮忙解决

etoxp

看不懂。。。。。

sunny_8848

修改下要求，改成能适合一根直线、半圆弧能布满就行

sunny_8848

继续求助，改成能适合(矩形框改成)一根直线、半圆弧能分别布满就行

kwok

(defun c:tt ( /  plst  p1 p2  pt1 pt2 pt3 pt4 pt5 rec ss dd ang dst nm kd jz s)             (command ".undo" "be")
   (setq kd (getreal (strcat "\n小矩形宽度:")))
   (setq jz (getreal (strcat "\n阵列距离近似值:")))
  (if (and (setq p1 (getpoint "\n基点<退出>: "))
           (setq p2 (getcorner p1 "\n对角点<退出>: "))
      (setvar "osmode" 0)
      )
    (progn
      (command "rectang" p1 p2 )
      (setq s (entlast)
            ss(entget s))
      (foreach x ss (if (=(car x)10)(setq plst(cons (cdr x)plst))))
      (setq plst(reverse plst))
      (setq pt1 (nth 0 plst)
            pt2 (nth 1 plst)
            pt3 (nth 2 plst)
            pt4 (nth 3 plst))  ))
  (setq  dd (- (distance pt1 pt2) kd)
         nm (/ dd (+ kd jz) 1.)
         nm (atoi (rtos nm 2 0))
         dst (/ dd nm 1.)
         ang (angle pt1 pt2)
                )
  (setq pt5 (polar pt4 ang kd))
   (command ".rectang"  "_non" pt1 "_non" pt5)
   (setq rec (entlast))
(command ".chprop" rec ""  "c" "1" "")
(command "_.COPY" rec "" "M" pt1)
(repeat nm
  (command (setq pt1 (polar pt1 ang dst)))
)
(command "")
  (princ "\n**小矩形布完成***")
(entdel s)
      (setvar "osmode" 4271)
     (command ".undo" "e")
  (princ)
  )

start4444

说再多也比不上一个示意图，都不知道你想干嘛

alexmai

把需要等分的物体组为 块（基点为中下）

;;;me 路径跟随-选线-选块-定义距离
(DEFUN C:Mm()
(Command "measure" pause "B" (cdr (assoc 2 (entget (car (entsel))))) "Y")
)

;;;dv 等分-选线-选块
(DEFUN C:dv()
(Command "DIVIDE" pause "B" (cdr (assoc 2 (entget (car (entsel))))) "Y")
)