为什么我做的子程序运行不了!

xtdwynij

[pcode=lisp,true](defun tt (#aa #bb #xqw / jl mqw qwg yy zjpt1 zqw)
(setvar "osmode" 0)
(setvar "cmdecho" 0)
;;; (setq #aa (getpoint "\n请指定一个点:"))
;;; (setq #bb (polar #aa 0 504))
(setq yy (distance #aa #bb))
;;;;;; (setq #xqw 1.5)
(setq qwg (fix(/ yy 100)))
(setq mqw (/ (- yy (* qwg #xqw) #xqw) (1+ qwg))) ;得出中间线段
(setq zqw (+ mqw (/ #xqw 2.0))) ;二边的线段
(setq jl (+ mqw #xqw)) ;每一段阵列的距离

(vl-cmdf "line" #aa (polar #aa 0 zqw) "" "line" #bb (polar #bb pi zqw) "")
(setq zjpt1 (polar #aa 0 (+ zqw #xqw)))
(vl-cmdf "line" zjpt1 (polar zjpt1 0 mqw) "")
(setvar "snapang" 0)
(command "-array" (entlast) "" "r" 1 (1- qwg) jl) ;阵列时距离如果是0则不用输入
(setvar "osmode" 3)
(setvar "cmdecho" 1)
)

(defun c:ccc ()
(setvar "osmode" 0)
(setq cc (getpoint "111:"))
(setq dd (polar cc 0 500))
;(setq xx 1.5)
(tt cc bb 1.5)
)[/pcode]代码如上:

检查了二个小时硬 是没有检查出来!求各位师兄前辈版主们出手解决!真不知道问题出现在哪里?

xtdwynij

单独运行(tt)则是没有问题!

XDSoft

xtdwynij 发表于 2013-4-26 21:52

                               
登录/注册后可看大图

单独运行(tt)则是没有问题!

你得说下你这个代码想做什么？需不需要测试图？在哪个地方没按你的想法来了，多说说，别人才好帮你啊。

ll_j

最后bb应该是dd。

XDSoft

{:soso_e128:}

xtdwynij

ll_j 发表于 2013-4-26 22:09

                               
登录/注册后可看大图

最后bb应该是dd。

谢谢LI_J师兄！可能是我坐在电脑前太多了吧！我明天试试看！今天的工作电脑关了。人家睡了。不好意思再去打扰！

xtdwynij

XDSoft 发表于 2013-4-26 22:11

                               
登录/注册后可看大图

谢谢晓东大神！呵呵！还是上一次的问题！不过没有那么复杂。就固定的直线。我都想把它平均打断！想自己搞一个！

Free-Lancer

xtdwynij 发表于 2013-4-26 22:33

                               
登录/注册后可看大图

谢谢晓东大神！呵呵！还是上一次的问题！不过没有那么复杂。就固定的直线。我都想把它平均打断！想自己搞 ...

参考这个帖子 divdby 函数
http://bbs.xdcad.net/forum.php?m ... 628&pid=3445720
及批量打断
http://bbs.xdcad.net/forum.php?m ... 523&pid=3445228

xtdwynij

Free-Lancer 发表于 2013-4-26 22:48

                               
登录/注册后可看大图

参考这个帖子 divdby 函数
http://bbs.xdcad.net/forum.php?mod=redirect&goto=findpost&ptid=667628&pi ...

谢谢师兄百忙之中抽出时间来指点,这是第二次指点我啦!呵呵.问题已解决!多谢师兄提供的资料!!