[求助]：求助：如何绘制圆孔在圆柱上的平面展开图？

wang4yong

如何绘制圆孔在圆柱上的平面展开图？

pku

没怎么明白
是不是可以用三维画图的办法，然后投影出平面图来 这个办法最简单了 一分钟搞定吧
要是直接二维画图你还需要确定一些点坐标尺寸  不是很方便

毛毛鱼

没看明白

1ojh

不知道你说什么的

tc405003

(defun c:yh( / lis1 lis2 bn blkname en1 en2 n ent1 ent2
                p11 p12 p21 p22 l1 l2
                ang1 ang2 ang an1 ss)
  (setq bn 0 blkname (strcat "rd-" (itoa bn)))
  (while (tblsearch "BLOCK" blkname)
    (setq bn (1+ bn) blkname (strcat "rd-" (itoa bn)))
  ) ;while
  (setq en1 (car (entsel "\n第一根边线: "))
        en2 (car (entsel "\n第二根边线: "))
        n (if (setq ls (getint "\n投影线根数: ")) ls 4))
  (setq ent1 (entget en1)
        ent2 (entget en2)
        p11 (cdr (assoc 10 ent1))
        p12 (cdr (assoc 11 ent1))
        p21 (cdr (assoc 10 ent2))
        p22 (cdr (assoc 11 ent2)))
  (if (inters p11 p21 p12 p22 t) (setq pb p21 p21 p22 p22 p21))
  (setq l1 (distance p11 p12)
        l2 (distance p21 p22)
        ang1 (angle p11 p12)
        ang2 (angle p21 p22))
  (setq an1 (/ pi 2.0 n) ang 0 ss (ssadd))
  (repeat (1+ n)
    (command "line"
             "none"
       (polar p11 ang1 (* l1 (sin ang)))
             "none"
       (polar p21 ang2 (* l2 (sin ang)))
       "" )
    (ssadd (entlast) ss)
    (setq ang (+ ang an1))
  )
;;;  (command "chprop" ss "" "c" "byblock" "")
  (command "block" blkname p11 ss "")
  (command "insert" blkname p11 1.0 1.0 0)
  (princ)
)