树櫴希德 发表于 2017-10-1 17:59:11

73哥代码 画斜坡

(vl-load-com)
(defun C:tt (/ Talud_bovenTalud_onder afstand afstand_totaal count p1 p2 kleur)
(if (and (setq Talud_boven (car (entsel "\n***选择上坎线**: ")))
         (setq Talud_onder (car (entsel "\n***选择下坎线**: ")))
         (setq afstand (getint "\n**间距**:"))
         (setq afstand_totaal 0 count 0 kleur (acad_colordlg 8))
   )
    (while(setq p1(vlax-curve-getpointatdist Talud_boven afstand_totaal))
      (setq p2(vlax-curve-getClosestPointToTalud_onder p1)
      afstand_totaal (+ afstand_totaal afstand)
      count(1+ count))
      (if(zerop(rem count 2))
(setq p2(polar p1(angle p1 p2)(/(distance p1 p2)3))))
      (entmake(mapcar'cons'(0 10 11 62)(List"LINE"p1 p2 kleur))))
    )
)


happy336 发表于 2019-10-15 12:00:13

谢谢分享，支持

杨张张 发表于 2020-2-29 09:34:07

学习一下，谢谢

香远益清 发表于 2020-3-4 18:35:02

有用，收藏了，多谢
页: [1]
查看完整版本: 73哥代码 画斜坡