2013-07-22 明经 AutoLISP 编程(102918348) 群聊记录：？修剪填充

明经快报

[leyouyou001]youyou 11:54:50

？修剪填充

[夏生生][x_s_s_1]生无可恋 11:56:06

哪位有2014？

[leyouyou001]youyou 11:56:22

我有2013

以前装了2014，被我卸载了

[夏生生][x_s_s_1]生无可恋 11:56:41

给个网址就行

谢谢

[leyouyou001]youyou 11:56:59

忘了

[夏生生][x_s_s_1]生无可恋 11:57:15

谢谢，我在论坛找找

[leyouyou001]youyou 11:57:49

哦

[leyouyou001]youyou 11:58:49

为什么有些填充，修剪不了呀

[夏生生][x_s_s_1]生无可恋 11:59:17

这个真不知道

明经快报

[爱学习]必须的 12:28:19

麻烦问一下 怎么样把弧度转化为角度呀。用那个函数呢

[起子]起子 12:30:04

弧度*180/PI=角度
有函数的

[爱学习]必须的 12:30:50

哦，知道了，谢谢

[夏生生][x_s_s_1]生无可恋 12:34:51

angtos

明经快报

[kwok][ww5w]行舟月下 14:02:39

[qqimg]201307/{F1FC32B3-812F-1A9B-837B-EDD17CB11A4F}.gif[/qqimg]

明经快报

[mitenickevin]kevin 14:21:46

[不死猫][nonsmall]不死猫 14:24:14

[qqimg]201307/{621953AA-7DBB-28BC-2CBA-48406C37839D}.gif[/qqimg]

明经快报

[linshiyin2]大地 14:49:01

筒子们，谁来写个程序，表示出重叠的线条，重叠的条件是在线上或者完全重叠或者部分在线上，不考虑z值

[linshiyin2]大地 14:50:16

如有可能，可以添加一个距离，比如两线距离小于0.01为重合，则标示出来

[linshiyin2]大地 14:51:13

[qqimg]201307/{DB9BF549-AC8C-FE27-1C1A-9ADB99F657BC}.jpg[/qqimg]

[linshiyin2]大地 14:51:51

[qqimg]201307/{0205557A-A2ED-B919-BA4F-A516917E123B}.jpg[/qqimg]没找到这个链接的说

[linshiyin2]大地 14:59:22

没人遇到这个问题吗

[linshiyin2]大地 15:00:18

[qqimg]201307/{35C3DC8D-BEF9-C346-9345-D3B832303078}.jpg[/qqimg]

[linshiyin2]大地 15:06:13

[qqimg]201307/{A883C038-C8FF-4DB7-E189-A5AF79099247}.jpg[/qqimg]

[linshiyin2]大地 15:06:44

cass里面有删除重复实体，问题是删除了，最好能标示出来，自己删除

[linshiyin2]大地 15:10:27

命令: check_repeat 正在比较 0 层,共删除 1 个重复实体
正在比较 KZD 层,共删除 0 个重复实体
正在比较 JMD 层,共删除 0 个重复实体
正在比较 DLSS 层,共删除 0 个重复实体

[Lwcdgl]coming 15:11:34

想买个手提电脑,3千左右的,什么牌子型号的好?想大家给我个建议,谢谢

[linshiyin2]大地 15:11:47

tinkpad

[冷面修罗][冷面修罗] 15:14:27

同上   最好能到4000多

[tiyi8888]永远D痛 15:18:10

联想就行了

I5

或I7

[linshiyin2]大地 15:18:45

OVERKILL

[linshiyin2]大地 15:19:43

overkill里的lisp改改，改成标示重复实体？

[qqimg]201307/{9410D556-99F2-AFE8-CD25-C43546737DC9}.jpg[/qqimg]

[linshiyin2]大地 15:22:53

[qqimg]201307/{3C8BE30F-6F1D-0426-F661-AED05441F494}.jpg[/qqimg]

[qqimg]201307/{1FBA7242-A993-1125-40BA-7091649139D8}.jpg[/qqimg]

瞧瞧g版，简直就是高尚的五体投地

[chenjian2159]且听 15:24:14

链接发一下

[linshiyin2]大地 15:25:57

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=88578

[linshiyin2]大地 15:26:38

g版这个的问题是，线的起点和终点必须完全一样，否则认为是不同的线

[爱学习]必须的 15:31:03

(initget 1 "y n")
  (setq kk (getkword " 方向是否正确"))
  (if (= kk n)
    (command "rotate" mm1 "" p3 180)
    )这句可以运行，但是没有效果，是怎么回事，麻烦给看一下

[cie0588][cie0588] 15:34:27

kk的值是个字符串。。

(= kk n)

(= kk "n")

[爱学习]必须的 15:35:24

哦，明白了，谢谢

[linshiyin2]大地 15:35:25

(getkword (strcat " 选择集类型选择,视口,全图 [选择(Set)/视口(Limits)/全图(All)] : "
     )
  )

[328302216][328302216]小莫 15:36:05

如我有这么一个符号表 txt，我想分别取得表里面含有“门”字的和含有“窗”字的元素这么弄比较简单？
txt2 "((右门1 10 20)(右窗1 12 18)(下窗2 cc vv)(上窗2  )(下门1  )(下门1  )(上窗1  ))"

[chenjian2159]且听 15:36:08

大地，你在修改GU版的那个？

[linshiyin2]大地 15:36:52

是啊，我想不删除，而是标记一下，比如使其亮显

[chenjian2159]且听 15:37:33

哦

[夏生生][x_s_s_1]生无可恋 15:37:49

很难

尝试写通用的，仿似不可能

[夏生生][x_s_s_1]生无可恋 15:38:43

两个3dsolid重叠，我是一点办法都没想到

明经快报

[linshiyin2]大地 16:29:05

还是overkill比较好用

[linshiyin2]大地 16:29:40

g大版那个只能针对特性一样的图元，

[linshiyin2]大地 16:37:52

[qqimg]201307/{4675F103-997C-7431-AF53-8A75BAC7E526}.jpg[/qqimg]

[328302216][328302216]小莫 16:37:59

;; [功能] 获取 0~1 之间的随机数 (by zml84)
(defun MJ:RAD ()
  (/ (rem (getvar "CPUTICKS") 1984) 1983)
)
如果取得0~10之间的随机数怎么改？

[linshiyin2]大地 16:38:52

黄大侠在不在，给个源码否

[qqimg]201307/{482F1AE0-5148-56FA-A25A-F7BE5328355E}.jpg[/qqimg]我不要删除我要亮显啊

[mitenickevin]kevin 16:40:07

[qqimg]201307/{7F66A3E2-40CB-DE00-010A-507BA29BB331}.jpg[/qqimg]
(rtos (getvar "cputicks") 2 0)

[328302216][328302216]小莫 16:41:39

(rtos (getvar "cputicks") 2 0)这个好像不行
(/ (rem (getvar "CPUTICKS") 10) 1)
试了多次好像都是0~10

[mitenickevin]kevin 16:43:04

你不是要0~10之间的随机数吗？

[328302216][328302216]小莫 16:44:20

嗯
  命令: (rtos (getvar "cputicks") 2 0)
"90150376154408"

[阿然][阿然] 16:46:09

;;; Get a random value
;;;Author: aeo
;;;Add randomize by Xran
(defun rnd (rMin rMax)
  (vla-eval (vlax-get-acad-object)
     "Randomize : ThisDrawing.setVariable "USERR5" ,CDbl((Rnd))"
  )
  (+ rMin (* (getvar "userr5") (- rMax rMin)))
)

[mitenickevin]kevin 16:49:35

(atoi(substr (rtos (getvar "cputicks") 2 0) 15 1))

[328302216][328302216]小莫 16:51:38

我试了一下好像(/ (rem (getvar "CPUTICKS") n) 1)
返回的就是大于等于0到小于等于n之间的数，不敢确定不知道对不对

[mitenickevin]kevin 16:52:17

这个就可以了。
(atoi(substr (rtos (getvar "cputicks") 2 0) 15 1))

[328302216][328302216]小莫 16:53:31

[qqimg]201307/{20D5974D-A963-CBED-CF64-50BB864A276A}.jpg[/qqimg]返回全是0

[mitenickevin]kevin 16:55:34

[qqimg]201307/{8B099F09-0BBA-E63C-5F17-2902F51E6158}.jpg[/qqimg]

[328302216][328302216]小莫 16:56:38

额  怎么我试了好多返回的都是0

[mitenickevin]kevin 16:58:28

位数写错了
(atoi(substr (rtos (getvar "cputicks") 2 0) 14 1))

[328302216][328302216]小莫 17:00:18

  我是看了曹版的贴 顺便再问一下这个

明经快报

[Es小武] 17:13:28

有人么 能帮我个忙么

[Es小武] 17:14:01

........

[野狼谷]笨鸟 17:17:49

[爱学习]必须的 17:22:36

(defun c:csc()
  (prompt " 画线")
  (setq p1 (getpoint " 选择起点"))
  (setq p2 (getpoint p1 " 选择终点"))
  (setq mm (getstring " 输入距离："))
  (command "pline" p1 p2 "")
  (setvar "osmode" 0)
  (setq ss (distance p1 p2 ))
  (setq ang (angle p1 p2))
  (setq p3 (polar p1 ang (* 0.5 ss)))
  (setq p4 (polar p3 (+ ang (* 0.5 pi)) 2))
  (setq qq (/(* ang 180) pi))
  (setq mm (atof mm))
  (command "text" "s" "ML" "j" "m" p4 2.0 qq mm )
  (setvar "osmode" 5)
  )
  哪位哥们帮忙看一下，为什么写出来的数后边有好多个零，怎样把后边的零去掉呢?谢谢了

[野狼谷]笨鸟 17:23:39

(command "text" "s" "ML" "j" "m" p4 2.0 qq mm ) 这句有问题

估计是缺 ""

[爱学习]必须的 17:24:12

我看一下

[野狼谷]笨鸟 17:25:09

你手工“text”一步步看就知道了

[328302216][328302216]小莫 17:25:24

字符串 可以用wcmatch来判断其是否包含某字符，如果是字符类型的话能不能判断其是否包含某个指定的字符

[328302216][328302216]小莫 17:27:07

如我有个字符类型的   我爱明经 和  我爱晓东  怎么判断这两个字符中哪个含有  明经  ？

[野狼谷]笨鸟 17:27:44

哦，你看看wcmatch 可以配通配符 * 很多种方法

[爱学习]必须的 17:27:49

(defun c:csc()
  (prompt " 画线")
  (setq p1 (getpoint " 选择起点"))
  (setq p2 (getpoint p1 " 选择终点"))
  (setq mm (getstring " 输入距离："))
  (command "pline" p1 p2 "")
  (setvar "osmode" 0)
  (setq ss (distance p1 p2 ))
  (setq ang (angle p1 p2))
  (setq p3 (polar p1 ang (* 0.5 ss)))
  (setq p4 (polar p3 (+ ang (* 0.5 pi)) 2))
  (setq qq (/(* ang 180) pi))
  (setq mm (atof mm))
  (command "text"  "j" "m" p4 2.0 qq mm )
  (setvar "osmode" 5)
  )这样你帮忙在看一下，输出的数字后边有好多个0

[328302216][328302216]小莫 17:28:36

是 sym类型 不是str类型

[tiyi8888]永远D痛 17:29:42

(setq baa (strcat   (rtos aa 2 3)))
            (command "._text" p zg "0" baa)

(setq mm (atof mm))

(setq mm (atof mm))改一下吧

就少零了吧

[爱学习]必须的 17:30:48

哦，改成上边那句吗

[tiyi8888]永远D痛 17:31:24

strcat   (rtos m 2 3))

[328302216][328302216]小莫 17:31:28

把最后的返回结果设置一下保留的小数位数不就可以了吗？

[tiyi8888]永远D痛 17:31:32

strcat   (rtos nm 2 3))

你试一下吧

反正我的程序好用的

[爱学习]必须的 17:32:01

哦，好的，那我看看

[tiyi8888]永远D痛 17:32:03

版本，CAD可能 有影响的

[爱学习]必须的 17:32:20

ok，

明经快报

[500w008]500w008 17:53:04

[qqimg]201307/{4B6CF0C9-A85D-9F46-575C-82DBA77B997E}.jpg[/qqimg]

[qqimg]201307/{91AE7D65-5E97-C37F-47D1-1C543EFD8A1D}.gif[/qqimg] 谁要跟我这个 六畜兴旺单 我们两个分了就好

小窗口我

[野狼谷]笨鸟 17:56:28

;;; Get a random value
;;;Author: aeo
;;;Add randomize by Xran
(defun rnd (rMin rMax)
  (vla-eval (vlax-get-acad-object)
     "Randomize : ThisDrawing.setVariable "USERR5" ,CDbl((Rnd))"
  )
  (+ rMin (* (getvar "userr5") (- rMax rMin)))
)
(rnd 1 10)
阿然，这个函数不是取的系统时间吧？

[阿然][阿然] 18:01:07

不是

明经快报

[pzweng][pzweng]路人 18:16:10

(getvar "userr5")

明经快报

[野狼谷]笨鸟 18:30:43

这是什么变量？

[pzweng][pzweng]路人 18:32:46

随图保存