lisp简化问题求助

清山小石 · 发表于 2016-1-21 16:08:29

请教一下论坛的高手们、如图所示、要改成列表形式要怎么写?

[size=9.547501pt]

(DEFUN C:tt1()
(SR PT "AA" "aa")
(princ)
)
(DEFUN C:tt2()
(SR PT "BB" "bb")
(princ)
)
(DEFUN C:tt3()
(SR PT "CC" "cc")
(princ)
)
;list(
; (list "tt1" "AA" "aa")
; (list "tt2" "BB" "bb")
; (list "tt3" "CC" "cc")
; )
(defun SR (PT ZW YW)
(setq p1 (getpoint "\n基点<退出>: ")
p2 (polar p1 (* pi 1.5) 180)
)
(command "text" "s" "Standard" "j" "c""non" p1 "180" "" ZW)
(command "text" "s" "Standard" "j" "c""non" p2 "100" "" YW)
(princ)
)

kozmosovia · 发表于 2016-1-21 16:50:58

不知所云

清山小石 · 发表于 2016-1-21 17:06:38

kozmosovia 发表于 2016-1-21 16:50
不知所云

就是把命令列在一起不用每个命令的开头都用defun

kozmosovia · 发表于 2016-1-21 17:57:55

你的要求和表达都很怪异，不清楚你想要的工作流是什么。
函数都是带参数的，不可以操作时还在命令行输入括号及参数。

如果是在所有函数的外面包一个命令外壳，只需要定义个C：函数就行，在哪个函数里面调用这些带参数的函数，至于函数个数，一共也没有几个，完全没有简化的必要。

fl202 · 发表于 2016-1-22 09:04:47

本帖最后由 fl202 于 2016-1-22 14:47 编辑

建议楼主先去看看书，再学学怎么把自己的意图简单明了的表达清楚。

(defun c:SR (PT ZW YW)
  (setq p1 (getpoint "\n基点<退出>: ")
      p2 (polar p1 (* pi 1.5) 180)
  )
(setq b1 '(
  (list "tt1" "AA" "aa")
  (list "tt2" "BB" "bb")
  (list "tt3" "CC" "cc")
))
(setq txt1 (getsting "")  )
(if (assoc txt1 b1)
(setq b2 (assoc txt1 b1) txt2 (nth 1 b2) txt3 (nth 2 b2) )
(setq txt2 "a2" txt3 "a3")
)
  (command "text" "s" "Standard" "j"  "c""non" p1 "180" "" txt2)
  (command "text" "s" "Standard" "j"  "c""non" p2 "100" "" txt3)
  (princ)
)

清山小石 · 发表于 2016-1-22 10:10:37

fl202 发表于 2016-1-22 09:04
建议楼主先去看看书，再学学怎么把自己的意图简单明了的表达清楚。
(defun SR (PT ZW YW)
(setq ...

SR该怎么调用？

etoxp · 发表于 2016-1-22 11:44:41

(eval "(defun ( ........")

清山小石 · 发表于 2016-1-22 12:14:37

etoxp 发表于 2016-1-22 11:44
(eval "(defun ( ........")

??

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

[提问] lisp简化问题求助

相关帖子