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

morecs · 发表于 2003-9-10 10:31:00

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

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

程序本身的问题就
(repeat n2 ...) 应该为(repeat (fix n2)...)
最后的erase选择对象后需要回车。
就功能上，不知你想干什么，一条从Q2到Q3的直线为什么要重复画那么多遍？
你是想将某一直线打散成某一长度的线段吗？
程序循环中注意n2是不会变化的，你必须自己设置一个变量来产生变化。
修改后如下：

copy


(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 所选对象太多。200391011294699225.lsp

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)
)