LISP自动生成轨迹

JY123 · 发表于 2009-4-1 16:08:58

我们不再是孤独的探索者；让我们的手紧紧相连，一起成长。

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

×

wwwmos · 发表于 2009-4-2 08:10:25

晕,果真是愚人人节发的,我还以为要上程序了

qiouzhi · 发表于 2009-4-2 08:34:39

请教楼主，如何自动生成？？？

caijunling321 · 发表于 2009-4-2 08:39:01

还真是看不明白？

wrb126 · 发表于 2009-4-2 08:54:28

:lol 不懂

hylxh · 发表于 2009-4-2 15:54:01

什麽東西啊？

rill_wang · 发表于 2009-4-10 21:19:21

有源程序么，双点吊挂的可以么，上下坡呢

JY123 · 发表于 2009-4-10 21:45:54

没问题，还可以前后放2个车组

lb19831017 · 发表于 2009-4-15 11:18:30

不错，做的

hasina0605 · 发表于 2009-5-14 17:55:19

我有这样程序 AUTOPATH 是美国 WEBB 公司做的需要跟我联系 QQ153219512

joelzhang · 发表于 2009-5-18 14:50:22

lisp 程序发过来啊，只发这个有什么用啊

JY123 · 发表于 2009-5-21 12:44:48

抛砖,发最关键代码. 占全部代码的1/3
(defun gj( )

   (Setq startp (cdr (assoc 10 (Entget (Entnext en)))))
   (command "color" 99
            "divide" en  n
   )
   (Setq pname (SSget "x" '((62 . 99) (0 . "POINT"))))
   (Repeat (Sslength pname)
         (Setq dp (Cons (Cdr(Assoc 10(Entget (ssname pname nn)))) dp)
      nn (1+ nn)
         )
   )
   (Setq dp (cons startp dp)
      enlast (entnext en)
      nn 0
   )

JY123 · 发表于 2009-5-21 12:46:11

LISP就是这样,你能看懂,你就能编出来.

ahyywt · 发表于 2009-5-21 13:27:54

感觉和利用块阵列的差不多啊

tanlixing · 发表于 2009-5-21 14:06:06

什麽東西啊？

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

[图片] LISP自动生成轨迹

我们不再是孤独的探索者；让我们的手紧紧相连，一起成长。

有程序么