求绘制这种线型的lisp

qq1254582201 · 发表于 2017-7-21 11:56:42

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

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

×

本帖最后由 qq1254582201 于 2017-7-21 14:52 编辑

求大神制作绘制这种线的lisp

Lisphk · 发表于 2017-7-21 12:21:59

提出特征段，用直线模拟SPLINE，然后根据线型定义的格式写出数据

QQ截图20170721121929.png

qq1254582201 · 发表于 2017-7-21 14:57:11

Lisphk 发表于 2017-7-21 12:21

谢谢大神提供思路。(这个附件为什么下载要扣D豆呢，怎么取消收取呢？)

liunian0524 · 发表于 2017-7-21 17:48:29

做一个动态图库

qq1254582201 · 发表于 2017-12-1 15:39:16

有没有大神，给个简单的思路，lisp刚刚入门啥都不会

qq1254582201 · 发表于 2019-7-13 02:30:25

本帖最后由 qq1254582201 于 2019-7-13 02:35 编辑

(defun c:blx (/ boch pt pt1 pt2 pt3 dist lis ang0 ang)
  (SETQ OLDOS (GETVAR "OSMODE"))
  (if (= bofu nil)
(setq bofu1 125)
  )
  (if (= bochang nil)
(setq bochang1 250)
  )
  (if (/= (setq oldcmd (getvar "cmdecho")) 0)
(setvar "cmdecho" 0)
  )
  (prompt "\n请输入波幅<")
  (princ bofu1)
  (if (= (setq bofu (getreal ">:")) nil)
(setq bofu bofu1)
(setq bofu1 bofu)
  )
  (prompt "\n请输入波长<")
  (princ bochang1)
  (if (= (setq bochang (getreal ">:")) nil)
(setq bochang bochang1)
(setq bochang1 bochang)
  )
  (initget "Yes No")
  (setq id (getkword "\n是否重新计算波长？Yes [No]:"))
  (if (= id nil)
(setq id "No")
  )
  (if (setq pt1 (getpoint "\n开始画波浪线(回车退出):"))
(progn
   (while (setq pt2 (getpoint pt1 "\n下一点(回车退出):"))
      (setq dist (distance pt1 pt2))
      (setq ang0 (angle pt1 pt2))
      (setq n (fix (/ dist bochang)))
      (while (= n 0)
      (prompt "\n该段长度比波长小，请重新输入:")
      (setq pt2 (getpoint pt1 "\n下一点(回车退出):"))
      (if (/= pt2 nil)
         (progn
            (setq dist (distance pt1 pt2))
            (setq ang0 (angle pt1 pt2))
            (setq n (fix (/ dist bochang)))
         )
         (setq n nil)
      )
      )
      (if (/= pt2 nil)
      (progn
         (if       (= id "No")
            (setq boch (/ bochang 4))
            (setq boch (/ dist (* n 4)))
         )
         (setq dist (sqrt (+ (* boch boch) (* bofu bofu))))
         (setq lis (list (atan bofu boch)
                        (- 0 (atan bofu boch))
                        (- 0 (atan bofu boch))
                        (atan bofu boch)
                  )
         )
         (setq pt3 pt1)
         (IF       (< (- OLDOS 16384) 0)
            (SETVAR "OSMODE" (+ OLDOS 16384))
         )
         (command "spline" pt1)
         (repeat n
            (foreach ang lis
            (setq pt (polar pt3 (+ ang0 ang) dist))
            (setq pt3 pt)
            (command pt)
            )
         )
         (command "" "" "")
         (setq pt1 pt)
         (SETVAR "OSMODE" OLDOS)
      )
      )
   )
)
  )
  (SETVAR "OSMODE" OLDOS)
  (setvar "cmdecho" OLDCMD)
)

请问这个怎么优化，让画出来的spline为一个整体

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

[求助] 求绘制这种线型的lisp

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

(defun c:blx (/ boch pt pt1 pt2 pt3 dist lis ang0 ang)