2013-06-01 明经 AutoLISP 编程(102918348) 群聊记录：我想原位复制一个图元！是不是只要将图元名去掉，剩下的交给entmake就可以

明经快报

[wowan1314]'鍢∞鍢 00:15:54

我想原位复制一个图元！是不是只要将图元名去掉，剩下的交给entmake就可以了？

明经快报

[ds-limt]-厨师木 07:59:01

command "draworder"调用完后，能不能抑制它的重画屏幕

[夏生生][x_s_s_1]生无可恋 08:04:53

vla-MoveToTop

[夏生生][x_s_s_1]生无可恋 08:06:00

刷新好像不可避免，您的图很大妈？

吗？

[ds-limt]-厨师木 08:06:24

嗯

循环太多了

[ds-limt]-厨师木 08:07:33

（repeat n
 （command "draworder" .....）
)

[ds-limt]-厨师木 08:16:00

不知道怎么写

[夏生生][x_s_s_1]生无可恋 08:16:28

lst就是vba对象表

[夏生生][x_s_s_1]生无可恋 08:17:12

你都能写到repeat n了，得到vba对象表不是什么问题

Kitchen Design 08:17:20

1000块钱雇个人写一个代码

[ds-limt]-厨师木 08:17:25

能不能不写VLA

Kitchen Design 08:17:44

要接的赶紧，十分种就走了

[夏生生][x_s_s_1]生无可恋 08:17:44

那你只有承受command的折磨了

给你1000块，快走

Kitchen Design 08:18:36

那你给塞，别光嘴活

[夏生生][x_s_s_1]生无可恋 08:19:04

[qqimg]oldimg/{FF225A36-5D94-679F-8453-212D1052DA20}.jpg[/qqimg]

快滚

[ds-limt]-厨师木 08:19:16

给钱呗，代码就出来了

Kitchen Design 08:19:37

你傻B啊，大清早的找骂啊

[夏生生][x_s_s_1]生无可恋 08:19:47

你傻B啊，大清早的找骂啊

【7299969】人生 08:20:01

Kitchen Design 08:20:07

你就拿这个钱给你老娘带你老爹烧

[夏生生][x_s_s_1]生无可恋 08:20:09

先看看自己什么态度

Kitchen Design 08:20:29

于你相干不相干

[ds-limt]-厨师木 08:20:46

kit你真丢群的脸

[夏生生][x_s_s_1]生无可恋 08:20:51

技术群

Kitchen Design 08:20:52

我恐怕还要跪着把钱举起来

[雨的节奏][雨的节奏] 08:21:17

[qqimg]oldimg/{43F78691-C43F-4CC5-4AB6-6CCA1EBF18B4}.GIF[/qqimg]贱人

[夏生生][x_s_s_1]生无可恋 08:21:22

[qqimg]oldimg/{DD999EF0-21FD-98E4-62ED-6FD302569923}.jpg[/qqimg]有这么说话的吗？

[ds-limt]-厨师木 08:21:23

炒个狗屎给你吃！

有钱也不给你写！

[夏生生][x_s_s_1]生无可恋 08:21:44

老板都不敢这么和员工说话

Kitchen Design 08:21:53

这话这么的了，发给全国人民看也没一点问题

[ds-limt]-厨师木 08:22:14

踢了踢了

[夏生生][x_s_s_1]生无可恋 08:22:27

有钱大腮吗？

Kitchen Design 08:22:42

随你们吧，我被吓死的了

[pzweng]路人 08:23:29

莫吵了

[夏生生][x_s_s_1]生无可恋 08:23:47

好好说花费精力不多别人免费都给你写了

画图

懒得说了

Kitchen Design 08:24:13

免费的不要，钱多烧的

[pzweng]路人 08:24:21

(function x)

Kitchen Design 08:26:16

再加500

[pzweng]路人 08:26:31

啥程序

说说看看

1+2+3+....+100?

[雨的节奏][雨的节奏] 08:28:05

[qqimg]oldimg/{65784DBF-4B30-C2CD-981C-342CE821DCC2}.gif[/qqimg]

Kitchen Design 08:36:52

2000块，最后一次了，要来的私聊，替你保密的放心，不要不好意思，挣钱放口袋最安全

[ds-limt]-厨师木 08:37:20

炒个死心丸给你吃！

[雨的节奏][雨的节奏] 08:37:46

[qqimg]oldimg/{5F2D07FB-41B8-048A-3737-7A09863C1380}.gif[/qqimg]

Kitchen Design 08:38:02

你个傻B，还在这叫唤，跳蚤一样的玩意

[夏生生][x_s_s_1]生无可恋 08:38:35

[qqimg]oldimg/{0CB1DEDE-B39A-7603-00BC-97EBC2F339B4}.gif[/qqimg]

[雨的节奏][雨的节奏] 08:39:07

[qqimg]oldimg/{65784DBF-4B30-C2CD-981C-342CE821DCC2}.gif[/qqimg]此人人品不好

求管理员将它踢出

[pzweng]路人 08:40:20

[qqimg]oldimg/{BC72FE9E-8CB7-01D7-26A6-7125F6D1CA1E}.jpg[/qqimg]

这个图好邪恶啊

[夏生生][x_s_s_1]生无可恋 08:40:54

振动魔棒

[雨的节奏][雨的节奏] 08:40:54

那点黑的引人无限遐想

露点了

[夏生生][x_s_s_1]生无可恋 08:41:16

露点是次要的

雨的节奏很纯洁

[阿然][阿然] 08:42:29

黑还有什么好想的

[pzweng]路人 08:42:45

这可是QQ里面的

[阿然][阿然] 08:42:50

已经都黑了

[夏生生][x_s_s_1]生无可恋 08:50:49

儿童节大家加班都很嗨啊

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

早早起床赶图，要陪小孩去玩

[野狼谷]笨鸟 08:52:02

[雨的节奏][雨的节奏] 08:52:54

[qqimg]oldimg/{65784DBF-4B30-C2CD-981C-342CE821DCC2}.gif[/qqimg]有小孩玩也蛮好的

我也想生小孩了

[夏生生][x_s_s_1]生无可恋 08:53:13

生了就知道了

ya雀无声 08:59:53

怎么找 boundary 出来的多段线顶点，而且判断 左下角点  右上角点

[夏生生][x_s_s_1]生无可恋 09:01:51

水平的吗？

[雨的节奏][雨的节奏] 09:02:38

(foreach x xdata (if (= 10 (car x))
                   (setq ptlist  (cons (cdr x) ptlist))))

Kitchen Design 09:07:42

人品不好! 谁说的，有病吧，是不是没见过钱似的，我花1000块钱雇个人，就出来一堆骂街的，小跳蚤似的

才一两千块，不至于仇富了吧

[夏生生][x_s_s_1]生无可恋 09:08:18

至于点排序到论坛搜索一下吧

Kitchen Design 09:08:21

 难道搞软件穷成这样

[夏生生][x_s_s_1]生无可恋 09:10:01

[qqimg]oldimg/{D7730443-997D-C186-C0D0-2978FCE8F398}.jpg[/qqimg]

[雨的节奏][雨的节奏] 09:17:37

[qqimg]oldimg/{5F2D07FB-41B8-048A-3737-7A09863C1380}.gif[/qqimg]这里面谁是靠写软件吃饭的吗

有的是兴趣，有的是好玩着提高工作效率

都是有稳定工作的

谁想要你那点破钱

随便出门跑两天就有了

[雨的节奏][雨的节奏] 09:19:14

[qqimg]oldimg/{65784DBF-4B30-C2CD-981C-342CE821DCC2}.gif[/qqimg]弄得这里的人多迫切的想要那1000块似的

还说10分钟过了就不用了、、什么屁话

[qqimg]oldimg/{DE068692-2930-8E27-622F-E342C6D583E1}.gif[/qqimg]

ya雀无声 09:22:38

写软件是为了娱乐

[雨的节奏][雨的节奏] 09:23:16

我就是定着好玩，打发无聊的时间，顺便提高工作效率、、然后找点成就感而已、、、

[雨的节奏][雨的节奏] 09:24:11

他好像弄得多有钱似的，也许群里大部分人收入都比他高

候鸟 09:24:49

赞同.

[仲文玉][仲文玉]wygjx 09:31:45

[qqimg]oldimg/{40ABF8B2-AB1D-23BC-1D5E-9AD91C38DE0C}.jpg[/qqimg]

ya雀无声 09:32:17

同意

[flytoday]过^-^客 09:34:21

那位垃圾…群管赶快踢了

[flytoday]过^-^客 09:35:05

自以为是目中无人狂妄自大…

ya雀无声 09:36:00

网络上的巨人就是生活中的小人

[flytoday]过^-^客 09:36:44

[偏爱云~小吴] 09:36:58

什么情况

[雨的节奏][雨的节奏] 09:37:15

有个家伙说出1000元请个人写程序

[flytoday]过^-^客 09:37:46

那家伙踢了吧

[偏爱云~小吴] 09:37:47

那接啊,有钱赚不好啊

[flytoday]过^-^客 09:37:52

自大

[雨的节奏][雨的节奏] 09:38:15

[qqimg]oldimg/{75113D38-5E43-AED2-1EB7-A1AD88165943}.jpg[/qqimg]

[qqimg]oldimg/{6AE605D3-869E-256E-EC38-0414EF94E364}.jpg[/qqimg]

[偏爱云~小吴] 09:38:31

如果几句代码能赚一千块

[flytoday]过^-^客 09:38:42

赚钱也得开心

[偏爱云~小吴] 09:38:50

何乐而不为,

[偏爱云~小吴] 09:39:24

也对,但谁跟钱过不去

[夏生生][x_s_s_1]生无可恋 09:39:39

为了赚钱也不学alisp了

大部分人是兴趣

[偏爱云~小吴] 09:40:06

说不定你接单了他自己又反悔了

这种人多着呢,

[夏生生][x_s_s_1]生无可恋 09:40:29

拿钱换程序没问题，侮辱人就不对了

我是看不惯他的侮辱性言辞

[偏爱云~小吴] 09:41:00

那是不应该,说明人品有问题

[雨的节奏][雨的节奏] 09:41:11

弄得好似这里面一群人都看着他手里的钱似的

[flytoday]过^-^客 09:41:19

就是人品

有问题

[偏爱云~小吴] 09:41:56

哎,典型的暴发户心理

[flytoday]过^-^客 09:43:22

群内兄弟们都高与超高工资的偏多……跟钱没关系…兴趣而已

[偏爱云~小吴] 09:43:55

难能可贵啊,群里这么多不为五斗米折腰的人

呵呵

ya雀无声 09:45:01

我试过，白白不见了100块

[偏爱云~小吴] 09:45:20

上次说的悬赏任务的事操办了 ?

这种有钱人让他们去哪里

[夏生生][x_s_s_1]生无可恋 09:46:26

还是我的错

我应该推荐宝马哥给他写程序

两人挺配的

[flytoday]过^-^客 09:47:02

贱人是吧

假的那个

[夏生生][x_s_s_1]生无可恋 09:47:21

假贱人

真贱人是忠的

我们宅者是这么区分的

[偏爱云~小吴] 09:48:07

哎

【7299969】人生 09:48:27

贱人的程序挺好，有源码没

[alwtyp][alwtyp] 09:49:08

宝马哥好久都没见，不知道是不是还那么贱

[偏爱云~小吴] 09:49:42

哈哈

[偏爱云~小吴] 09:50:14

飞思里有部分源码

【7299969】人生 09:50:37

费事的在哪

明经快报

[alwtyp][alwtyp] 10:04:03

cad中控制插入屬性塊是否提示屬性的變量是什麼

[VBALISPER]恐龙 10:04:17

一点都不费事,还省事.

[mitenickevin]kevin 10:05:44

能找到伪码就不错了，源码比较难找。

明经快报

[kwok][kwok]巭隼 10:50:52

(setq en (entsel " 选择")
          mid (cdr (assoc 10 (entget (car en ))))
         )
上面这个能求到矩形中点吗？我试了一下怎么是左上角

[流动的清泉][权心权意] 10:52:01

组码10就是顶点吧！

[kwok][kwok]巭隼 10:52:16

哦

[simon8001][simon8001]随风 10:53:02

请问 点列表用什么方法可以处理成没有点的列表？

[雨的节奏][雨的节奏] 10:53:05

你要求哪个中点啊、、

交叉中点吗

[kwok][kwok]巭隼 10:53:21

矩形中心

[雨的节奏][雨的节奏] 10:53:41

这个有很多种方法啊、

[kwok][kwok]巭隼 10:54:11

是的，我是看到有人用上面那个，所以就试一下

[流动的清泉][权心权意] 10:54:45

矩形是lwpolyline，可能是多边形，没有没有中点这个组码！

[simon8001][simon8001]随风 10:55:09

雨 您具体说下

[流动的清泉][权心权意] 10:55:59

(and (= en_type "LWPOLYLINE") (= (cdr (assoc 90 (entget (car en)))) 4))

[simon8001][simon8001]随风 10:56:10

我用CONS 做的列表都成点列表了

[流动的清泉][权心权意] 10:56:59

2d13 就是矩形的中点

[q530496591][q530496591]小菜鸟 11:05:30

一大早的怎么进来这种人?

[simon8001][simon8001]随风 11:05:57

我找到方法了！

[雨的节奏][雨的节奏] 11:06:44

求最大外围尺寸

再交叉不就行了

[kwok][kwok]巭隼 11:08:00

我打到最简单的方法，取得矩形的左下角和右上角取中点

这是对矩形，对多边形就没用

ya雀无声 11:09:13

[qqimg]oldimg/{87A7B846-60D0-39C3-85C5-AE06BEE7AF33}.jpg[/qqimg]我日，停止后才通知

[kwok][kwok]巭隼 11:09:37

(setq sp (vlax-curve-getstartpoint obj))
   (setq p3 (vlax-curve-getpointatparam obj 2))
   (setq pmid (polar sp (angle sp p3) (* (distance sp p3) 0.5)))

[雨的节奏][雨的节奏] 11:11:22

楼上正解

[kwok][kwok]巭隼 11:11:32

上面的冒似对4边形的都可以，起点和第2点算中点

[xigemapenis]霁昶 11:12:17

想找个程序 如 axb=c 当a或者b变化后 C跟着变化，有这样的程序吗？

[雨的节奏][雨的节奏] 11:13:01

有

[xigemapenis]霁昶 11:13:46

哪里 能给提供一个吗？

[雨的节奏][雨的节奏] 11:14:05

写一个不就是了、

[xigemapenis]霁昶 11:14:18

哥 谢了  小弟不会

[雨的节奏][雨的节奏] 11:14:21

不就是C=A*B嘛

[xigemapenis]霁昶 11:14:28

嗯

[雨的节奏][雨的节奏] 11:14:31

关键是看你要什么效果的

[xigemapenis]霁昶 11:15:13

我就是想要当a或者b变化了 c就跟着变化

[雨的节奏][雨的节奏] 11:15:27

那你肯定是要三个变量了

[阿然][阿然] 11:15:29

[雨的节奏][雨的节奏] 11:15:34

A B C

[xigemapenis]霁昶 11:15:39

嗯

[雨的节奏][雨的节奏] 11:15:44

然后C=AXB就是了啊

[雨的节奏][雨的节奏] 11:16:19

计算器不是有这个功能嘛

[linshiyin2]大地 11:16:37

明经的软件编程交易模块怎么样了，老大准备搞了吗

[linshiyin2]大地 11:17:07

名称就叫明经商店如何

[xigemapenis]霁昶 11:17:10

我还是不会呀 有实例吗 想学习下

[雨的节奏][雨的节奏] 11:17:30

[kwok][kwok]巭隼 11:17:32

弄实钱lsp交易?

[雨的节奏][雨的节奏] 11:17:37

大概弄个给你看看吧

[xigemapenis]霁昶 11:17:52

好的 谢谢了

[kwok][kwok]巭隼 11:18:02

会不会要交税收入所得税

[阿然][阿然] 11:18:49

(defun a*b(a b) (* a b))要的不会是这个吧

[linshiyin2]大地 11:18:54

不是啊，是有人发帖要求编程，付费后有人编程，编完后经别人审查，没问题成交

用支付宝，交税也是淘宝

[xigemapenis]霁昶 11:20:58

我截个图

[xigemapenis]霁昶 11:22:31

[qqimg]oldimg/{D5806E37-8140-EDCE-F419-34995C8A1689}.jpg[/qqimg]

[xigemapenis]霁昶 11:23:01

如上图 是一个块 当我改变A、B的值的时候 C的值跟着变化

[小伟jeny]小伟 11:23:25

捕捉事件啊

[xigemapenis]霁昶 11:24:03

应该用动态能弄出来吧？求大神

[linshiyin2]大地 11:24:17

用字段

[pzweng]路人 11:24:31

字段需要更新

[linshiyin2]大地 11:24:43

re一下就ok

[pzweng]路人 11:25:08

字段应该是好用了

[xigemapenis]霁昶 11:25:15

哥们还是不会

[linshiyin2]大地 11:25:18

我也有这个要求，用字段解决了e

[pzweng]路人 11:25:19

其它就是反应器了

[xigemapenis]霁昶 11:25:42

给一个参考吧‘

[阿然][阿然] 11:26:16

2006版本以上用字段可以解决，2006以下只能反应器

[linshiyin2]大地 11:26:34

就算不刷新，重新打开或者打印的时候会自动更新

好像04也支持字段

[阿然][阿然] 11:27:08

04不支持

[linshiyin2]大地 11:27:33

04太费劲，还是06或者08吧

[阿然][阿然] 11:27:54

只有04是正版的

[linshiyin2]大地 11:28:15

正版与否关系很大吗？

[阿然][阿然] 11:28:30

用起来是一样

[雨的节奏][雨的节奏] 11:28:43

[xigemapenis]霁昶(248135679)

你要的弄好了

不知道是不是人要的效果

[linshiyin2]大地 11:29:19

瞧瞧这节奏，快啊

收费20元

[雨的节奏][雨的节奏] 11:29:57

[qqimg]oldimg/{387A36FF-69D1-E3B6-D3EF-3D71A31169D3}.gif[/qqimg]一支烟就好了

[linshiyin2]大地 11:30:04

如果有交易商店，就有需求也有人来解决，不是很方便吗，估计交易量不少吧

[阿然][阿然] 11:30:05

才20元？怎么也要21元

[linshiyin2]大地 11:30:17

21.5吧

[雨的节奏][雨的节奏] 11:30:56

可以精简掉4句、、、

[linshiyin2]大地 11:30:59

到时候新人们就不会因为求助没人理了，几分钟高人就搞出来了

[xigemapenis]霁昶 11:33:06

好了 谢谢 一会我用下

谢谢

明经快报

ya雀无声 11:47:42

(defun c:rr2 (/ e ed ss) ;;  文字内容匹配
;(lt:error-init (list nil 0 nil nil))
  (setq e (Ya:entsel "\n选择源文字对象: "
                     '((0 . "*TEXT,DIMENSION"))
                     '("\n对象必须是单行文字、多行文字或标注。" nil nil)
          )
  )
  (if (not e) (exit))
  (redraw (car e) 3)
  (setq ed (cons 1 (cdr (assoc 1 (entget (car e))))))
  (lt:match
    (cadr e)
    '(2 3)
    (list "\n选择目标文字对象: " '((0 . "*TEXT,DIMENSION")))
    '(lambda (x / ent)
       (setq ent (entget x))
       (entmod (subst ed (assoc 1 ent) ent))
     )
  )
;(lt:error-restore)
)

(defun lt:match (pt col ssparm fun / d_brush pickbox p2u len x y msg pt1 ss1 pt2 co i e ss)
(defun d_brush (col x y len / a b c)
  (grvecs (list col (list (- x (setq A (* len 1.5))) (- y len))
        (list (- x A) (setq B (- y (* len 7.5))))
      col (list (- x (setq C (* len 0.5))) y)
        (list (- x C) B)
      col (list (+ x C) y)
        (list (+ x C) B)
      col (list (+ x A) (- y len))
        (list (+ x A) B)
      col (list (- x (setq A (* len 4.5))) B)
        (list (+ x A) B)
      col (list (- x A) B)
        (list (- x (setq C (* len 6.5))) (- y (* len 9)))
      col (list (+ x A) B)
        (list (+ x C) (setq A (- y (* len 9))))
      col (list (- x C) A)
        (list (- x C) (setq B (- y (* len 17))))
      col (list (+ x C) A)
        (list (ist (+ x (* len 3)) A)
    )
    (list (list 1 0 0 (* len 14))
      (list 0 1 0 (* len -4)) '(0 0 1 0) '(0 0 0 1)
    )
  )
)
(defun pickbox (pt / si cv)
  (setq si (* (/ (getvar "pickbox") (cadr (getvar "screensize"))) (getvar "viewsize") 0.5)
    cv (list si si 0)
  )
  (list (mapcar '+ pt cv) (mapcar '- pt cv))
)
(defun p2u (pix) (* pix (/ (getvar "viewsize") (cadr (getvar "screensize")))))
(or (setq co (cadr col)) (setq co 7))
(or (setq col (car col)) (setq col 7))
(or (setq msg (car ssparm)) (setq msg "\n选择目标对象: "))
(setq ssparm (cadr ssparm) len (p2u 1) x (car pt) y (cadr pt))
(princ msg)
(while (/= (car pt1) 11)
  (redraw)
  (d_brush col x y len)
  (while (not (member (c+ x C) B)
      col (list (- x C) (setq A (- y (* len 10))))
        (list (+ x C) A)
      col (list (- x C) (setq A (- y (* len 11))))
        (list (+ x C) A)
      col (list (- x C) (setq A (- y (* len 13))))
        (list (+ x C) A)
      col (list (- x C) (setq A (- y (* len 14))))
        (list (+ x C) A)
      col (list (- x C) B)
        (list (+ x C) B)
      col (list (- x C) B)
        (list (- x (* len 11)) (setq A (- y (* len 21.5))))
      col (list (- x (* len 2)) B)
        (list (- x (* len 6.5)) A)
      col (list (+ x (* len 2)) B)
        (list (- x (* len 2.5)) A)
      col (list (+ x C) B)
        (list (+ x (* len 2)) A)
      col (list (- x (* len 11)) A)
        (lw e 3)
  (apply fun (list e))
  ))
  (setq ss1 nil)
)
(redraw)
ss
)
istance T2 T) (p2u (* 0.0001 (car (getvar "screensize")))))
      (progn
      (redraw)
      (setq len (p2u 1) x (car pt) y (cadr pt) co (abs co))
      (if (> (car pt1) (car pt2)) (setq co (- co)))
      (d_brush col x y len)
      (grvecs (list co pt1 (list (car pt1) (cadr pt2))
          co pt2 (list (car pt1) (cadr pt2))
          co pt2 (list (car pt2) (cadr pt1))
          co pt1 (list (car pt2) (cadr pt1))
        )
      )
      (setq ptpt2
        ss1 (ssget (if (minusp co) "_c" "_w") pt1 pt2 ssparm)
      )
      )
    )
    )
    )
  )
  )
  )
  (or ss (setq ss (ssadd)))
  (if ss1
  (repeat (setq i (sslength ss1))
  (setq e (ssname ss1 (setq i (1- i))))
  (ssadd e ss)
  (redraar (setq pt1 (grread T 12 2))) '(3 11)))
  (setq pt1 (cadr pt1))
  (if (vl-consp pt1)
  (progn
    (if (> (distance T1 T) (p2u (* 0.0001 (car (getvar "screensize")))))
    (progn
    (redraw)
    (setq len (p2u 1) x (car pt) y (cadr pt))
    (d_brush col x y len)
    (setq pt pt1)
    )
    )
  )
  )
  )
  (redraw)
  (if (and (= (car pt1) 3)
     (princ msg)
     (not (setq ss1 (apply 'ssget (append '("_c") (pickbox (cadr pt1)) (list ssparm)))))
  )
  (progn
  (princ "指定对角点: ")
  (setq pt1 (list (caadr pt1) (cadadr pt1)))
  (while (not (member (car (setq pt2 (grread T 12 1))) '(3 11)))
    (setq pt2 (list (caadr pt2) (cadadr pt2)))
    (if (vl-consp pt1)
    (progn
    (if (> (d

明经快报

ya雀无声 11:57:50

我已经加载了的

【7299969】人生 11:57:59

nagenag哪个没加载

ya雀无声 11:58:08

就是 全部代码都写在 LISP里面。

[pzweng]路人 11:58:31

[qqimg]oldimg/{2682588E-F4C5-AD02-6148-F5708D8A0ECA}.jpg[/qqimg]

[caoyin][caoyin] 11:58:34

[qqimg]oldimg/{B6D27604-4768-C0BC-EDA7-444A91BADA5F}.jpg[/qqimg]

[pzweng]路人 11:58:36

问题一大堆

[caoyin][caoyin] 11:59:02

这个不是问题，故意这样写的

ya雀无声 11:59:44

[qqimg]oldimg/{AAFCA01D-140D-2E0A-A813-677F47E69E0E}.jpg[/qqimg]

【7299969】人生 12:02:02

刷不了

ya雀无声 12:02:05

还是不行，想不通。

提示[qqimg]oldimg/{62707DC8-F54D-D9CD-488E-4E845FEAA7A2}.jpg[/qqimg]

ya雀无声 12:05:23

我上传了caoyin大师的源码，反正我是刷不了

【7299969】人生 12:07:03

我连个提示都没有，

ya雀无声 12:07:55

难道是我人品有问题

ya雀无声 12:10:48

WOWAN你可以吗

[夏生生][x_s_s_1]生无可恋 12:18:55

发个很傻的鼠标箭头

[夏生生][x_s_s_1]生无可恋 12:20:06

那别的代码改的，可以省1/4的代码

[夏生生][x_s_s_1]生无可恋 12:21:46

[qqimg]oldimg/{380E9755-5BB1-D9C6-BA14-2C3406BE2DAE}.gif[/qqimg]

录像的问题，白色鼠标是没有的

[夏生生][x_s_s_1]生无可恋 12:23:35

[qqimg]oldimg/{3D3D58AE-0D48-ABA0-1646-A80AE897974B}.gif[/qqimg]

ya雀无声 12:31:19

[qqimg]oldimg/{1CCA0709-B188-8FFC-7964-AE8FC5805F39}.jpg[/qqimg]什么工具可以这样写代码，而且字体颜色不同

[天财]天财 12:33:20

老师给小朋友解释：“乳”就是“小”的意思。比如“乳猪”就是“小猪”，“乳鸽”就是“小鸽”。 小明，请你用“乳”字造个句。
小明：我家经济条件不太好，只能住40平米的乳房。
老师我晕）……这个不行。换一个。
小明：我每天上学都要跳过我家门口的一条乳沟。
老师晕死）……不行，再换一个。
小明：…………老师，我想不出来了。把我的乳头都想破了。
老师：真的晕到了，倒地。 。。。。

明经快报

[LISP]???IMKYUD 12:59:28

有没有 用智能机看 DF的？看着舒服吗？

[pzweng]路人 12:59:42

DY IH

明经快报

[simon8001][simon8001]随风 13:13:14

有彩色显示的？我怎么没听过》？

[LISP]???IMKYUD 13:15:26

visual lisp界面里面写的

[LISP]???IMKYUD 13:17:13

你们都是用文本文档、写字板写的？格式多难弄啊，函数对不对也不容易发现

ya雀无声 13:17:34

visual lisp怎么修改背景颜色 ？

[LISP]???IMKYUD 13:22:18

不知道

那个好像是用lisplink写的

群共享有

[simon8001][simon8001]随风 13:25:59

我看看去

[simon8001][simon8001]随风 13:28:29

看见了

[simon8001][simon8001]随风 13:31:13

用着有点不太习惯

[LISP]???IMKYUD 13:32:34

那还是用cad自带的visual lisp吧

[linshiyin2]大地 13:34:07

我要绘制一万条线，怎么绘制最快呢，插入块再炸开慢受不了，line好像也不快

[linshiyin2]大地 13:38:49

entmod是不是快点呢

[夏生生][x_s_s_1]生无可恋 13:39:06

entmake

[linshiyin2]大地 13:39:53

我试试看

[夏生生][x_s_s_1]生无可恋 13:43:02

基本不耗时

[simpleye][simpleye]郑大钱 13:44:24

[qqimg]oldimg/{E4E6DA80-6559-602E-3298-98F64CD1A2A3}.gif[/qqimg]

[qqimg]oldimg/{12027B6F-9D04-DE0F-E2B6-EC84088B84BB}.gif[/qqimg]

[雨的节奏][雨的节奏] 13:44:59

(setq x1 (vlax-ename->vla-object (car (entsel " 选择A")))
       x2 (vlax-ename->vla-object(car (entsel " 选择B")))
       X3 (vlax-ename->vla-object(car (entsel " 选择C"))))

这种语句怎样精简呢

[linshiyin2]大地 13:46:52

感觉还是慢，是不是我用foreach循环的原因

[simon8001][simon8001]随风 13:48:52

主要是用着习惯了

[夏生生][x_s_s_1]生无可恋 13:52:22

要就三个没精简的必要

[雨的节奏][雨的节奏] 13:53:13

假如(list x1 x2 x3)是图元名，怎么批量转换成vla对象呢

[【KAIXIN】] [【KAIXIN】]炫翔 13:53:28

[qqimg]oldimg/{BF9FBCA0-9374-1D5F-35D4-C46729F6C39B}.gif[/qqimg]

[夏生生][x_s_s_1]生无可恋 13:53:52

mapcar‘vlax-ename->vla-object

[【KAIXIN】] [【KAIXIN】]炫翔 13:54:02

速度

[【KAIXIN】] [【KAIXIN】]炫翔 13:56:58

建议不要这样子玩

[pzweng]路人 13:57:07

呵呵

有时候这样玩也好

比如批量变量初始化

[【KAIXIN】] [【KAIXIN】]炫翔 13:57:44

玩大了 死的很惨

[【KAIXIN】] [【KAIXIN】]炫翔 13:58:57

在一个程序  本来就容易必须用上循环....
还在这个小小的问题上....

[pzweng]路人 14:01:24

这两条线看得出什么来

[linshiyin2]大地 14:01:47

用循环画了10000条

[【KAIXIN】] [【KAIXIN】]炫翔 14:01:57

是吗？

你试了?

[linshiyin2]大地 14:02:12

恩

[【KAIXIN】] [【KAIXIN】]炫翔 14:02:21

10000条*100条试试

电脑好，是没感觉有什么变化

[linshiyin2]大地 14:02:47

我电脑受不了10000条*100条试试

[【KAIXIN】] [【KAIXIN】]炫翔 14:03:03

那就*10

[pzweng]路人 14:03:23

可能直线看不出来

其它图元就容易了

[linshiyin2]大地 14:03:46

比起昨天我用插入然后炸开再修改图层和颜色要快多了

看来还是得创建图元比较好，插入不行，万不得已不要用插入

[xiaomm09]江湖 14:04:16

插入块？

[linshiyin2]大地 14:04:22

是的

[夏生生][x_s_s_1]生无可恋 14:06:49

(SETQ N    65
      I    1
)
(REPEAT    3
  (SET (READ (strcat "X" (ITOA I)))
       (vlax-ename->vla-object
     (car (entsel (eval (strcat " 选择" (chr n) ": "))))
       )
  )
  (setq    n (1+ n)
    i (1+ i)
  )
)

我写的比较慢，这样自由些

明经快报

[雨的节奏][雨的节奏] 14:17:27

(setq x1  (car (entsel "\n选择A"))
        x2 (car (entsel "\n选择B"))
        x3  (car (entsel "\n选择C")))
  (setq vlalist
        (mapcar 'vlax-ename->vla-object 
                 (list x1 x2 x3)
        )
  )

明经快报

[linshiyin2]大地 14:32:14

今天去逛超市，底下有个金店，去问问金价，md说388，我说不是金价跌了吗？她说，从来没有跌啊，还在涨呢，我日她xxxxx

[夏生生][x_s_s_1]生无可恋 14:32:39

靠，我看成五金店了

[linshiyin2]大地 14:33:03

[qqimg]oldimg/{43DFEF62-4536-4DD2-067A-E39B3029B226}.jpg[/qqimg]

[qqimg]oldimg/{69FE4285-E3B0-6763-E052-7188FCC6C869}.jpg[/qqimg]

[linshiyin2]大地 14:33:54

[qqimg]oldimg/{E02C5B8A-2CCD-3103-9D19-372C8432E488}.jpg[/qqimg]

[linshiyin2]大地 14:35:02

[qqimg]oldimg/{F1081B27-947D-5F6E-08F0-0C2A167C3AE5}.jpg[/qqimg]

[夏生生][x_s_s_1]生无可恋 14:35:06

到五金店问金价不是找K吗

[linshiyin2]大地 14:35:13

[qqimg]oldimg/{845A81E5-3FE0-EF2A-8A0C-80408C5FD5D6}.jpg[/qqimg]

真想一金条x死她

哥啊，是金店，不是五金店啊

[夏生生][x_s_s_1]生无可恋 14:36:13

一金棍搥死她

[linshiyin2]大地 14:36:28

你懂我的心

[linshiyin2]大地 14:38:46

n年前，我去工商银行开通纸黄金业务，md工作人员不懂，竟然说我神经，真想一金捅死她

一金棍

[linshiyin2]大地 14:39:59

从此以后，老子再也不去工商银行

[linshiyin2]大地 14:40:38

中国服务最差的银行可能就是工商银行了吧

一品缘 14:42:04

[qqimg]oldimg/{161D7742-0CDC-A7CC-3F29-A6D7B5CD1BE6}.jpg[/qqimg]

谁能帮我写这个程序成下面如图

[pzweng]路人 14:42:31

又来了

一品缘 14:42:44

[qqimg]oldimg/{EA300BE1-BE2F-6E11-4A1F-AD5D3DD9162E}.jpg[/qqimg]

一品缘 14:43:56

求高手帮个忙

[仲文玉][仲文玉]wygjx 14:44:53

外行

你不留刀缝？

[夏生生][x_s_s_1]生无可恋 14:45:08

[qqimg]oldimg/{64A234EE-8657-DA63-B7F4-C7718460F461}.gif[/qqimg]

一品缘 14:45:28

不用啊，是平均的

可以写吗仲文玉大哥？？？

[雨的节奏][雨的节奏] 14:46:15

[qqimg]oldimg/{43F78691-C43F-4CC5-4AB6-6CCA1EBF18B4}.GIF[/qqimg]我还没看明白你是什么意思呢

[linshiyin2]大地 14:46:34

本人替人报仇:往人家里扔石头10元,砸窗户20,跺大门50,砸狗,小的30,大的面议,藏獒不砸,点草垛60,揭瓦60,揍小学生30,帮欺负同学,身高1.3-1.4M50元.1.5M-1.6M80元.1.7以上打不过.骂人面议.

一品缘 14:47:09

就是把800*100的配件放到800*800的材料里

[偏爱云~小吴] 14:47:12

大地准备转行了

自动套料么

[仲文玉][仲文玉]wygjx 14:47:50

这个直板简单

[linshiyin2]大地 14:48:08

如果有明经商店，我想，出不了3分钟就给你写出来了

[雨的节奏][雨的节奏] 14:48:16

一品缘 14:48:17

哦哦哦，帮我个忙好吗

[雨的节奏][雨的节奏] 14:48:29

我好像也能写出来，可能写得比较烂

[偏爱云~小吴] 14:48:36

大地是高手

[linshiyin2]大地 14:48:51

一品缘 14:49:07

我截个图给大家看看人家是怎么做的

[偏爱云~小吴] 14:49:28

别怕,我在帮你打广告呢

一品缘 14:49:35

[qqimg]oldimg/{9F16C009-2A3E-413D-A2A1-99C61A976E1A}.gif[/qqimg]

[夏生生][x_s_s_1]生无可恋 14:50:03

您老人家不是有嘛

一品缘 14:50:05

我怎么也写不出来

这个我没有

[pzweng]路人 14:50:26

不好好种庄稼

[夏生生][x_s_s_1]生无可恋 14:50:38

那你的截图哪来的

一品缘 14:50:39

这个是人家给我看的

是人家发给我的

[夏生生][x_s_s_1]生无可恋 14:51:00

那就买呀

[偏爱云~小吴] 14:51:12

呵呵

[夏生生][x_s_s_1]生无可恋 14:51:13

多可爱的程序啊

[偏爱云~小吴] 14:51:21

[仲文玉][仲文玉]wygjx 14:51:28

[qqimg]oldimg/{87013B09-72E2-A174-EE2E-938C9BA6A1EA}.jpg[/qqimg]

一品缘 14:51:42

看不见啊

[夏生生][x_s_s_1]生无可恋 14:51:59

仲总写一个？

一品缘 14:52:04

[qqimg]oldimg/{9F16C009-2A3E-413D-A2A1-99C61A976E1A}.gif[/qqimg]

看见吗

[夏生生][x_s_s_1]生无可恋 14:52:18

我看见您想起来还有东西没搞完

天啊

幸亏想起来了

谢谢仲总

一品缘 14:52:41

对于线切割来说这个做法很实用

[linshiyin2]大地 14:52:46

瞧瞧，神奇的功能

一品缘 14:53:14

意思是连线切割

[pzweng]路人 14:53:31

你干嘛不买他一个工具

[雨的节奏][雨的节奏] 14:53:40

好像有点厉害的样子，哈哈

一品缘 14:54:03

不是不买，而是每次实用都要注册啊

我都汗了

[夏生生][x_s_s_1]生无可恋 14:54:30

行刀路线是吧，我是外行，看不懂

[linshiyin2]大地 14:54:53

是不是切割的路线啊

[雨的节奏][雨的节奏] 14:54:53

这是搞大理石水刀的吗？

一品缘 14:55:06

线切割

[夏生生][x_s_s_1]生无可恋 14:55:18

赶紧做事，不吹牛了

最近明经综合症犯了

[linshiyin2]大地 14:55:29

让他修改注册方式，买一套呗

[夏生生][x_s_s_1]生无可恋 14:55:33

干活都没劲儿

[linshiyin2]大地 14:55:36

哦

啥症状

[仲文玉][仲文玉]wygjx 14:56:26

呵呵，直板的还是红外线桥切机块，水刀加工费贵，何必

[夏生生][x_s_s_1]生无可恋 14:56:28

看见d打头的字母就以为是defun，满脑袋XYZ

一品缘 14:56:37

[qqimg]oldimg/{05CE6A76-BD6E-6749-2AD4-0F91B5291C3D}.jpg[/qqimg]我也跟他说过，可是他不给啊

[linshiyin2]大地 14:57:18

注册码不给吗？爆破

一品缘 14:57:41

给啊，但每次都是不一样的

[linshiyin2]大地 14:57:48

不过加载到cad中的程序破解不容易搞

一品缘 14:58:21

你每次使用都要经过他给你一把软件钥匙后你才能使用

很烦

[linshiyin2]大地 14:59:12

这是啥注册方式，要是每次都要注册那还有人买？

[雨的节奏][雨的节奏] 14:59:13

[qqimg]oldimg/{65784DBF-4B30-C2CD-981C-342CE821DCC2}.gif[/qqimg]自己写一个呗

一品缘 14:59:20

仲总能写吗？？

一品缘 15:00:20

[qqimg]oldimg/{D75E25D5-7557-0D1A-0FF4-5E34FDA56F0A}.jpg[/qqimg]所以我每次使用起来都有那么麻烦，所以请教大家能不能写

[VBALISPER]恐龙 15:02:16

去明经悬赏100通道币,求人帮你写

一品缘 15:02:59

哦哦哦

[雨的节奏][雨的节奏] 15:04:04

我闲下来了可以试一下、、、

只是我不是很明白你的行业、、、

一品缘 15:04:55

就是连线切割就行了，只要能像上面那样就可以

一品缘 15:05:48

他连接后必须是多义线就行

没有特别要求