[求助]：请高手指教···

ghoostman · 发表于 2007-3-14 20:36:09

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

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

×

前不久去面试，考官问了我个问题，他叫我用autocad画1万个不同半径的圆，当时傻啦··后来才知道可以用编程解决· ·可以用AutoLISP～～～请高手帮写下语言～～了解了解·～谢谢

fools · 发表于 2007-3-14 21:11:04

建议下次提问在标题里写清楚需求，而不是“向xx请教”，并祝面试顺利
[php]
(SETQ i 0)
(REPEAT 10000
(ENTMAKEX
(LIST '(0 . "CIRCLE") '(10 0 0) (CONS 40 (SETQ i (1+ i))))
)
)
[/php]

carrot1983 · 发表于 2007-3-14 22:28:47

画100个圆的lsp
[php]
(defun c:test(/ rad )
  (setvar "cmdecho" 0)
  (setq rad 0)
  (repeat 100
  (setq rad (+ rad 10))
  (command "circle" '(1000 1000) rad)
  )
)
[/php]
画100个圆的CAD的VBA。。。
[php]
Sub c100()
Dim cc(0 To 2) As Double
cc(0) = 1000
cc(1) = 1000
cc(2) = 0
For i = 1 To 1000 Step 10
Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10)
Next i
End Sub
[/php]

hlljp · 发表于 2007-3-15 07:05:33

还有这么高深的啊，我都不知道啊，一直以为自己CAD学的不错，画图也很快的，呵呵，原来才学到CAD的一点皮毛，就会最基本的画图。看来要多来看看了，免得以后吹牛时让别人笑话啊。

zml84 · 发表于 2007-3-16 09:42:21

正如fools在签名栏中所言，人工智能不是梦！
LISP可以很好的模拟人的智能行为，
楼主的需求仅仅是一种大量重复性的操作，可以预见，lisp定可以获得更为广阔的应用。

黄河之水 · 发表于 2007-3-17 12:45:24

对,精通CAD作图,只是CAD的一点皮毛而已,
学问可深了

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

[求助] [求助]：请高手指教···

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

相关帖子