[原创]：申请文字旋转180度的朋友请进！

lsjjm

还是LISP简单:
[PHP]
(defun c:test ()
  (setq a (car (entsel)))
  (setq pts (acet-geom-txtbox (entget a) 0))
  (setq p (inters (car pts)(caddr pts)(cadr pts)(last pts)))
  (vl-cmdf "rotate" a "" p 180 "")
)
[/PHP]

雪山飞狐(lzh)

不知道你说得是代码简单，还是功能简单
如果从代码的长度判断一个程序的好坏的话，Lisp应该是最好的，Arx最差
实际上，VBA有智能提示，自己手写的代码并不长

lsjjm

一般说程序简单无外乎程序码的编写简单吧? 简单的程序码, 一看既明. 语法,书写简明.

自由的鱼

如果把声明段和注释去掉，VBA也就剩几行了，：）
不过有些程序我还是喜欢用LISP写~~

lsjjm

最初由 自由的鱼 发布
[B]如果把声明段和注释去掉，VBA也就剩几行了...[/B]

把声明段去掉, 程序还能运行吗...?

自由的鱼

最初由 lsjjm 发布
[B]
把声明段去掉, 程序还能运行吗...? [/B]

运行不了了~~~~

雪山飞狐(lzh)

VBA去掉声明段不能运行，Lisp离开AutoCad也没有什么使用价值，对编程语言的争论很无聊，我前面也说了，就代码复杂程度而言，Arx最复杂，但最强大

自由的鱼

最初由 lzh741206 发布
[B]VBA去掉声明段不能运行，Lisp离开AutoCad也没有什么使用价值，对编程语言的争论很无聊，我前面也说了，就代码复杂程度而言，Arx最复杂，但最强大 [/B]

就是，别争论这个了，条条大路通罗马，只要可以完成要求，用什么语言都无所谓~`~`

lsjjm

22,23楼:
班竹的意见不敢苟同, 怎么能说争论是无聊呢?
声明段去掉后根本不能运行, 那还谈什么简单? 比较是有条件的. 一行不写最简单, 能运行吗?

leenomadprc

直接用镜像不是可以吗

请问各位大虾，小弟把那个控制镜像文字是否镜像的参数忘了，是:mitext?

f5612140

1.用mirror無法克服批量處理位置的問題
2.mirrtext

雪山飞狐(lzh)

最初由 lsjjm 发布
[B]22,23楼:
班竹的意见不敢苟同, 怎么能说争论是无聊呢?
声明段去掉后根本不能运行, 那还谈什么简单? 比较是有条件的. 一行不写最简单, 能运行吗? [/B]

不知道你想争论什么？你说Lisp简单，偶承认，但是偶不用它，所以是无聊的争论
用什么编程语言，应该是个个人的习惯问题，不值得争论，对于程序的好坏应该着眼于算法的好坏，而不是代码的简单程度

ahlzl

最初由 lsjjm 发布
[B]还是LISP简单:
[PHP]
(defun c:test ()
  (setq a (car (entsel)))
  (setq pts (acet-geom-txtbox (entget a) 0))
  (setq p (inters (car pts)(caddr pts)(cadr pts)(last pts)))
  (vl-cmdf "rotate" a "" ... [/B]

长老啊，acet-geom-txtbox是什么啊，怎么ACAD帮助中没有！

陌生人

et的函数，也许2004帮助里有：）
其实有些东西，用vba写步骤比用lsp更直接，简单，尤其是用到vla的时候。
我不懂vba,不过看程序还是能看出程序的步骤和思路的。从效率上，arx>vba>lsp，程序字数上，lsp一般较短，程序的步骤 vba可能还优于lsp，尤其是用到vla的时候。
同意版主，选哪种是个人爱好而已。
同一种语言才有可比性，而调用了外挂程序的函数，多少让人觉得不纯（对外挂有依赖性）

lsjjm

最初由 ahlzl 发布
[B]...长老啊，acet-geom-txtbox是什么啊，怎么ACAD帮助中没有！
[/B]

是AutoCAD的内部函数. 只要是完全安装, 就可以调用.
大多数acet内部函数 在帮助中是找不到的.
部分可参考: www.afralisp.com 或 www.autocad.ru