2013-05-29 QQ群：ALISP＆VLISP(143438137) 聊天记录：签到

eachy · 发表于 2013-5-29 19:16:34

eachy(124471899)于2013-05-29 19-16-34：
#下班

CCarch · 发表于 2013-5-29 19:16:53

张牙舞爪(13885696)于2013-05-29 19-16-53：
返回索引位置

炫翔 · 发表于 2013-5-29 19:19:43

炫翔(2363673534)于2013-05-29 19-19-43：
(vl-position 2 '(1 2 3 4 5))

返回：1

CCarch · 发表于 2013-5-29 19:28:17

仲文玉(411952877)于2013-05-29 19-28-17：
签到

CCarch · 发表于 2013-5-29 19:57:48

睿竹(349194802)于2013-05-29 19-57-48：
签到

CCarch · 发表于 2013-5-29 19:58:46

诸葛四郎(25758529)于2013-05-29 19-58-46：
签到

CCarch · 发表于 2013-5-29 19:58:56

简单(252113063)于2013-05-29 19-58-56：
(setq val (getdist "\n行距："))
(setq p (getpoint "\n首行的插入点："))
(setq x0 (car p))
(setq y0 (cadr p))
(setq m 0)
(while (< m n)
(setq b (nth m all))
(setq y (- y0 (* m val)))
(setq z (nth 3 (assoc '10 b)))
(setq xyz_new (list '10 x0 y z))
(setq b (subst (cons '72 0) (assoc '72 b) b))
(setq b (subst (cons '73 0) (assoc '73 b) b))
(setq b (subst xyz_new (assoc '10 b) b ) )
(entmod b)
(setq m (1+ m))
)
)
怎样改动不用输入行距，且函数能用啊

CCarch · 发表于 2013-5-29 20:02:03

简单(252113063)于2013-05-29 20-02-03：
谁能帮帮我啊

CCarch · 发表于 2013-5-29 20:16:38

ZZXXQQ(1468225785)于2013-05-29 20-16-38：
(setq val (* (getvar "DIMTEXT") (getvar "DIMGAP")))

CCarch · 发表于 2013-5-29 20:16:48

ZZXXQQ(1468225785)于2013-05-29 20-16-48：
签到

CCarch · 发表于 2013-5-29 20:24:02

简单(252113063)于2013-05-29 20-24-02：
在哪里改啊？高手啊

CCarch · 发表于 2013-5-29 20:24:22

ZZXXQQ(1468225785)于2013-05-29 20-24-22：
第一行

CCarch · 发表于 2013-5-29 20:24:48

简单(252113063)于2013-05-29 20-24-48：
谢谢，我试试啊

CCarch · 发表于 2013-5-29 20:29:12

简单(252113063)于2013-05-29 20-29-12：
[qqimg]{01B57361-D8BA-ED45-79EA-43875E98F87D}.jpg[/qqimg]

CCarch · 发表于 2013-5-29 20:29:19

简单(252113063)于2013-05-29 20-29-19：
不行啊

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