那位高手这个LSP能写不

357785513 · 发表于 2009-7-29 21:57:00

有时达不到理想

357785513 · 发表于 2009-7-29 21:59:00

有时达不到理想

当然理想与现实有差距.还是要谢谢各位

357785513 · 发表于 2009-7-29 22:00:00

qjchen · 发表于 2009-7-29 22:44:00

本帖最后由作者于 2009-7-30 8:43:19 编辑

:)
冒昧试一下，学习一下entmake spline，发现spline的结构还挺复杂的
程序可连续选取、二点选取顺序可以调换。
其实，楼主的图形应该是可以批量绘制此种spline的吧

;;by qjchen@gmail.com
(defun c:test(/ a b tan)
(while (and (setq a (getpoint "the 1st point:\n"))(setq b (getpoint a "the 2nd point:\n")))
(if (> (car a)(car b)) (setq tan '(-1.0 0.0 0.0)) (setq tan '(1.0 0.0 0.0)))
(entmake
(list
'(0 . "SPLINE") '(100 . "AcDbEntity") '(410 . "Model") '(100 . "AcDbSpline")
'(210 0.0 0.0 1.0) '(70 . 8) '(71 . 3)
(cons 12 tan) (cons 13 tan)
(cons 11 a) (cons 11 (mapcar '(lambda (x) (/ x 2.0)) (mapcar '+ a b)))(cons 11 b)
)
)
)
(princ)
)

masterlong · 发表于 2009-7-30 03:13:00

;;mysp.lsp     by yuuboo
;;简易正弦波形
(defun c:mysp( / gdfx ps pe ang_se dis_se p1 p2 p3)
(setq gdfx 12.0)  ;;;;要改变波形的高度和方向改gdfx的数值比如改成-15.0
(setvar "cmdecho" 0)
  (if (setq ps (getpoint "\n 设备连线~起点:"))
  (if (setq pe (getpoint ps "     设备连线~终点:"))
   (progn
    (command "undo" "g")
    (setq ang_se (angle ps pe))
    (setq dis_se (distance ps pe))
    (setq p1 (polar (polar ps ang_se (/ dis_se 4.0)) (+ ang_se (* PI 0.5)) (/ dis_se gdfx)) )
    (setq p2 (polar ps ang_se (/ dis_se 2.0)))
    (setq p3 (polar (polar pe ang_se (/ dis_se -4.0)) (- ang_se (* PI 0.5)) (/ dis_se gdfx)) )
    (command "spline" "non" ps "non" p1 "non" p2 "non" p3 "non" pe "" "" "")
    (command "undo" "e")

    (c:mysp)

   )
  )
)
(princ)
)

357785513 · 发表于 2009-7-30 22:12:00

好多了,但还有点不理想

357785513 · 发表于 2009-7-30 22:14:00

就是两上接电器的端至少有一段一定的距离要垂直于电器就好,还有,这条SPLINE要有四个控制点就好

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

那位高手这个LSP能写不

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源