两点等分待修改

myfrankie · 发表于 2013-5-22 15:06:45

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:tt()
  (setvar "CMDECHO" 0)
  (setq  p1 (getpoint "\n第一点：")
  p2 (getpoint p1 "\n第二点：")
  )
;;;两点距离
  (princ
(strcat "\n****两点距离:" (rtos (distance p1 p2) 2 3))
  )
;;;等分数量：
  (setq n (getint "\n等分数量:"))
;;;等分子函数，根据两点点及等分数量得出等分点列表
  (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)
   )
   )
)
  )
;;;等分点列表
  (setq lst (tt-df p1 p2 n))
;;; 起点、终点、等分点处画园
  (mapcar '(lambda (x) (vl-cmdf "CIRCLE" x 1.0))
(append (list p1) lst (list p2))
  )
  (prin1)
)
这段代码我想将圆变成点的方式。如何改？

zml84 · 发表于 2013-5-22 15:18:06

(vl-cmdf "CIRCLE" x 1.0)

--->

(vl-cmdf "point" "non" x )

2012淡然之马 · 发表于 2013-5-22 16:15:55

在这基础上是不是可以加多一项功能
现在的功能是直接在间距离新建等分点，
加多一个选择功能，
在两点间新建等分线，
根据需要选择

账号		自动登录	找回密码
密码			立即注册

[求助] 两点等分待修改

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。