请教这程序有那些问题谢谢！！！

meflying · 发表于 2003-9-10 10:57:00

程序本身的问题就
(repeat n2 ...) 应该为(repeat (fix n2)...)
最后的erase选择对象后需要回车。

就功能上，不知你想干什么，一条从Q2到Q3的直线为什么要重复画那么多遍？
你是想将某一直线打散成某一长度的线段吗？
程序循环中注意n2是不会变化的，你必须自己设置一个变量来产生变化。
修改后如下：

(defun c:mc()
(setq l1 (entsel "请选择直线:"))
(setq l1_data (entget (car l1)))
(setq pts (assoc 10 l1_data))
(setq p1 (cdr pts))
(setq pte (assoc 11 l1_data))
(setq p2 (cdr pte))
(setq ang (angle p1 p2))
(setq dd (distance p1 p2))
(setq n1 (rem dd 2.4))
(setq n2 (/ (- dd n1) 2.4))
(setq p0 (polar p1 ang n1))
(setq i n2)
(repeat (fix n2)
(setq q1 (polar p0 ang (* 2.4 i)))
(setq q2 (polar p0 ang (- (* 2.4 i) 0.8)))
(setq q3 (polar p0 ang (- (* 2.4 i) 2.4)))
(command "line" q3 q2 "")
(setq i (1- i))
)
(command "line" p1 p0 "")
(command "erase" l1 "")
(princ)
)

runkeji · 发表于 2003-9-10 11:16:00

(defun c:mc()
(setq l1 (entsel "请选择直线:"))
(setq l1_data (entget (car l1)))
(setq pts (assoc 10 l1_data))
(setq p1 (cdr pts))
(setq pte (assoc 11 l1_data))
(setq p2 (cdr pte))
(setq ang (angle p1 p2))
(setq dd (distance p1 p2))
(setq n1 (rem dd 2.4))
(setq n2 (/ (- dd n1) 2.4))
(setq p0 (polar p1 ang n1))
(setq n2 (rtos n2))
(setq n2 (atoi n2))
(repeat n2
(setq q1 (polar p0 ang (* 2.4 n2)))
(setq q2 (polar p0 ang (- (* 2.4 n2) 0.8)))
(setq q3 (polar p0 ang (- (* 2.4 n2) 2.4)))
(command "line" q3 q2 "")
(setq n2 (1- n2))
)
(command "line" p1 p0 "")
(command "erase" (car l1) "")
(princ)
)
不知道程序的原意。现在不报错了。

morecs · 发表于 2003-9-10 11:29:00

谢谢meflying!!! 但实行时说 INTERSECT 所选对象太多。

morecs · 发表于 2003-9-10 11:33:00

将一条直线按1.6:0.8的比例，1.6长度画线，0.8不画，不能用线形来解决

meflying · 发表于 2003-9-10 11:58:00

可以，如下：
*abc,Dash __ __ __ __
A,1.6,-.8

我不明白你为什么要写成1.6：0.8，既然是比例，2：1不也一样吗？

morecs · 发表于 2003-9-10 13:16:00

我搞定了，

(defun c:zmc(/ ss nn l1 l1_data pts p1 pte p2 ang dd n1 n2 po q1 n q2 q3)
(setq ocmde (getvar "cmdecho"))
(setq oblip (getvar "blipmode"))
(setq oosmode (getvar "osmode"))
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
(setvar "osmode" 0)
(setq ss (ssget '((0 . "LINE"))))
(setq nn 0)
(repeat (sslength ss)
(setq l1 (ssname ss nn))
(setq l1_data (entget l1))
(setq pts (assoc 10 l1_data))
(setq p1 (cdr pts))
(setq pte (assoc 11 l1_data))
(setq p2 (cdr pte))
(setq ang (angle p1 p2))
(setq dd (distance p1 p2))
(setq n1 (rem dd 2.4))
(setq n2 (fix (/ dd 2.4)))
(setq p0 (polar p1 ang n1))
(setq q1 (polar p0 ang n1))
(setq n 1)
(repeat n2
(setq q2 (polar p0 ang (- (* n 2.4) 1.6)))
(setq q3 (polar p0 ang (* n 2.4)))
(command "line" q2 q3 "")
(setq n (1+ n))
)
(command "line" p1 p0 "")
(command "erase" l1 "")
(setq nn (1+ nn))
)
(setq ss nil)
(setvar "blipmode" oblip)
(setvar "cmdecho" ocmde)
(setvar "osmode" oosmode)
(princ)
)

meflying · 发表于 2003-9-10 13:39:00

为什么要修改blipmode？好象用不上啊

morecs · 发表于 2003-9-10 15:20:00

类似的情况，换为椭圆怎样计算

meflying · 发表于 2003-9-10 15:41:00

用measure，
不过如果将其断为一段一段的，比较麻烦，如果是一段有，一段空的，就比较方便了

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

请教这程序有那些问题谢谢！！！

本帖子中包含更多资源

本帖子中包含更多资源

请教这程序有那些问题 谢谢！！！

本帖子中包含更多资源

本帖子中包含更多资源

请教这程序有那些问题谢谢！！！