chenbh2 发表于 2015-3-5 15:53:08

求等分经验!麻烦高手出手相助!



感谢明经平台,我的附件直线生线段lsp,只能做出一条
线段,麻烦高手出手帮我改成图片效果!祝新年快乐!

xyp1964 发表于 2015-3-5 15:53:09

;;直线生杆
(defun c:tt ()
;; 等分子函数，根据两点点及等分数量得出等分点列表
(defun tt-df (p1 p2 n)
    (if        (> (1- n) 0)
      (cons (polar p1 (angle p1 p2) (/ (distance p1 p2) n 1.0))
          (tt-df (polar p1 (angle p1 p2) (/ (distance p1 p2) n 1.0))
                   p2
                   (1- n)
          )
      )
    )
)
(setvar "osmode" 4)
(setvar "cmdecho" 0)
(while (and (setq p1 (getpoint "\n杆路起点: "))
              (setq p2 (getpoint p1 "\n杆路终点: "))
       )
    (setq cd(distance p1 p2)
          nn(/ cd 12.)
          n   (atoi (rtos nn 2 0))
          lst (tt-df p1 p2 n)
          lst (append (list p1) lst (list p2))
          i   0
    )
    (mapcar '(lambda (x) (vl-cmdf "CIRCLE" x 1.5)) lst)
    (while (and        (setq p1 (nth i lst))
                (setq p2 (nth (1+ i) lst))
           )
      (setq rad        (angle p1 p2)
          p1a        (polar p1 rad 1.5)
          p2a        (polar p2 rad -1.5)
          i        (1+ i)
      )
      (COMMAND "LINE" p1a p2a "")
    )
)
(princ)
)

chenbh2 发表于 2015-3-5 22:59:42

谢谢 版主!元宵快乐!

chenbh2 发表于 2015-3-6 00:01:17


非常感谢版主相助!元宵节让我吃上大餐,祝版主元宵节快乐!
(setvar "osmode" 4)改为(setvar "osmode" 0)
完美解决!
期盼版主能帮我解决框选线段绘外角平分线的源码!
页: [1]
查看完整版本: 求等分经验!麻烦高手出手相助!