2013-08-07 明经 AutoLISP 编程(102918348) 群聊记录：谢谢大家！

明经快报

[野狼谷]笨鸟 00:15:46

谢谢大家！

[野狼谷]笨鸟 00:18:59

看来这个模型通用性还是很强的

明经快报

[AMKYUD][AMKYUD]??? 16:01:30

acExtendNone 不返回任何信息？

可以运行了，可是还是有报错

[cie0588][cie0588] 16:05:29

两条线没有交点的时候，你看看返回值是什么情况。

明经快报

[500w008]宝林 18:07:34

(apply '(command "CIRCLE" (list z1 z2 z3 z4) zr "") (list z1 z2 z3 z4))

明经快报

[500w008]宝林 18:17:51

如果这个PT 是一个表 要用lambda 吧

[yxp]小蜜蜂 18:18:09

foreach

[500w008]宝林 18:22:46

哦

[yxp]小蜜蜂 18:23:37

把 e  改成  x

[vormittag]桔子 18:23:39

稀奇古怪的错误。

[yxp]小蜜蜂 18:24:04

没理解基本函数

[500w008]宝林 18:25:35

刚刚把表 和选择集体会清楚

[500w008]宝林 18:26:36

可以了

[qqimg]201308/{64838706-06BD-2F43-5873-9D56496870F0}.jpg[/qqimg]

[yxp]小蜜蜂 18:27:23

四桩承台

[500w008]宝林 18:28:00

[qqimg]201308/{7F5C4BDA-19F6-3260-CBBE-C303B8BA98FB}.jpg[/qqimg]

写得太罗嗦 想简化下

z6y (cadr z6))
   (setq z7x (car z7)
         z7y (cadr z7))
   (setq z8x (car z8)
         z8y (cadr z8)) 
   (setq jd5 (list (- z5x pd) (+ z5y pd))
         jd6 (list (+ z6x pd) (+ z6y pd))
         jd7 (list (+ z7x pd) (- z7y pd))
         jd8 (list (- z8x pd) (- z8y pd))
   );获取四个角点
  );endprogn
  (COMMAND "LAYER" "MAKE" "ctlayer" "COLOR" "4" "ctlayer" "LT" "DASHED" "ctlayer" "")
  (command "pline" jd5 jd6 jd7 jd8 "c")
  (setq jds (entlast))     
  (command ".chprop" jds "" "LA" "ctlayer" "")
  (command "EDIT" "M" jds "" "W" 0 "")
 (PROGN
  (COMMAND "LAYER" "MAKE" "gz_d" "COLOR" "2" "gz_d" "LT" "DASHED" "gz_d" "")
  (command"CIRCLE" z1 zr"")
  (setq zs1 (entlast))     (defun C:8ct (/ pd pm pdx pdy pts ptx ptsx ptsy ptxx ptxy pt1 pt2 pt3 pt4)
  (setvar "cmdecho" 0)
  (graphscr)
  (setq pm (getpoint " "))
  (setq pd 500
        zr (/ pd 2)
        gas (/ pi 180)
        pdx (car pm)
        pdy (cadr pm)
        z1 (list (- pdx (* (/ (sqrt 2.0) 2) (* pd 3))) pdy)
        z2 (list (+ pdx (* (/ (sqrt 2.0) 2) (* pd 3))) pdy)
        z3 (polar z1 (* gas 45) (* pd 3))
        z4 (polar z1 (* gas -45) (* pd 3))
        z5 (polar z3 (* gas 135) (* pd 3))
        z6 (polar z3 (* gas 45) (* pd 3))
        z7 (polar z4 (* gas -45) (* pd 3))
        z8 (polar z4 (* gas -135) (* pd 3))
  )(progn
   (setq z5x (car z5)
         z5y (cadr z5))
   (setq z6x (car z6)
    
  (command ".chprop" zs1 "" "LA" "gz_d" "")
  (command"CIRCLE" z2 zr"")
  (setq zs2 (entlast))     
  (command ".chprop" zs2 "" "LA" "gz_d" "")
  (command"CIRCLE" z3 zr"")
  (setq zs3 (entlast))     
  (command ".chprop" zs3 "" "LA" "gz_d" "")
  (command"CIRCLE" z4 zr"")
  (setq zs4 (entlast))     
  (command ".chprop" zs4 "" "LA" "gz_d" "")
  (command"CIRCLE" z5 zr"")
  (setq zs5 (entlast))     
  (command ".chprop" zs5 "" "LA" "gz_d" "")
  (command"CIRCLE" z6 zr"")
  (setq zs6 (entlast))     
  (command ".chprop" zs6 "" "LA" "gz_d" "")
  (command"CIRCLE" z7 zr"")
  (setq zs7 (entlast))     
  (command ".chprop" zs7 "" "LA" "gz_d" "")
  (command"CIRCLE" z8 zr"")
  (setq zs8 (entlast))     
  (command ".chprop" zs8 "" "LA" "gz_d" "")
 )
  (print)
)

[yxp]小蜜蜂 18:30:02

.chprop ？ 用 8 号组码吧

(setq zs (entlast))     
 (command ".chprop" zs "" "LA" "gz_d" "")
可以删掉了。

[500w008]宝林 18:31:25

哦

[500w008]宝林 18:33:06

神奇

[qqimg]201308/{293AE3F1-19F3-9360-1127-824201B81FB1}.jpg[/qqimg]

[500w008]宝林 18:36:16

速度快很多 而且没提示错误

瞬间

明经快报

[500w008]宝林 19:31:34

(defun wr_ctpl ( slt / );wr_ctpl
  (entmake (append (list 
                       '(0 . "LWPOLYLINE")
                       '(8 . "ct_pl") 
                       '(100 . "AcDbEntity") 
                       '(100 . "AcDbPolyline") 
                        (cons 90 4)
                   )
      (mapcar '(lambda (y) (cons 10 y)) slt))
  )
(princ)
)

明经快报

[野狼谷]笨鸟 19:41:55

编个程序，给他们降降温

[pzweng][pzweng]路人 19:42:29

形容别人哭的历害用泪如雨下，现在该用泪如汗流

[500w008]宝林 19:43:05

冬天跟夏天已经向两极发展

[500w008]宝林 19:43:52

不过这样雨水多 每个人的面积那么大 一天蒸发 一两瓶水 数量巨大 这个没办法改变

[500w008]宝林 19:46:50

哇 写这么简 不错

[yxp]小蜜蜂 19:47:02

还能再简化

明经快报

[野狼谷]笨鸟 20:00:35

呵呵，组码，麻烦

明经快报

[mmh1][mmh1]漫步地球 20:28:42

cad里#号怎么找不到？

[pzweng][pzweng]路人 20:29:03

`#试试

[ZZXXQQ] 20:29:38

`#

[mmh1][mmh1]漫步地球 20:30:33

OK

[500w008]宝林 20:37:11

我这个怎么提示错误

后面两个是引用函数

[500w008]宝林 20:38:08

警告: 参数错误: (WR_CTPL SLT)
; 警告: 参数错误: (ENT_CIR GZ_ST ZR)

[pzweng][pzweng]路人 20:40:51

怀疑你会不会lsp

[500w008]宝林 20:41:02

暂时不会

[500w008]宝林 20:41:38

你会就说一下

别发牢骚

[ZZXXQQ] 20:41:50

(wr_ctpl (list jd1 jd2 jd3 jd4))
(ent_cir (list z1 z2 z3 z4) zr)

[500w008]宝林 20:41:56

我是来求助 不是来听你发牢骚

[500w008]宝林 20:43:33

如果用这种形式 ENTMAKE函数 不是废了？

[500w008]宝林 20:52:59

可以了

[qqimg]201308/{95C2E739-CF34-EE81-1990-5B64E3140E3F}.jpg[/qqimg]

[vormittag]桔子 20:53:14

看到莫名其妙的回复，我就知道某某人又发言了。

[500w008]宝林 20:53:15

多余括号造成的错误 我日

[500w008]宝林 20:54:31

就差个 封闭 呵呵

[ZZXXQQ] 20:55:12

(wr_ctpl (list jd1 jd2 jd3 jd4 jd1))

[500w008]宝林 20:55:34

不是这个原因

[500w008]宝林 20:58:22

有没办法把多义线给封下

[500w008]宝林 21:00:40

封闭多义先组码是多少

70？

[500w008]宝林 21:10:25

[qqimg]201308/{BB17EF66-C948-2EAE-090A-5A91679D2C92}.jpg[/qqimg]

明经快报

[tryhi]大海 21:38:20

请问怎么组一个带点表出来

[vormittag]桔子 21:38:40

cons

[tryhi]大海 21:38:47

[qqimg]201308/{2EF570EE-09F2-E3FE-46B1-8ECA9B373F86}.jpg[/qqimg]

[vormittag]桔子 21:39:06

(cons 8 "tk")

[tryhi]大海 21:39:39

感谢

[yxp]小蜜蜂 21:40:13

cons

[tryhi]大海 21:40:35

多谢各位大侠，基础的东西给忘了

[dcl1214]昌立 21:49:14

(vla-Put-StyleSheet
    (vla-get-activelayout
      (vla-get-activedocument
        (setq AcadObject (vlax-get-acad-object))
      )
    )
   "monochrome.ctb"
 )

哪位大仙在高版本上测试一下这个

低版本没有任何问题

包版本总是报错

高

[dcl1214]昌立 21:50:24

大家是怎么调整打印表的？

请教一下

[LC100]建筑设计 21:51:10

这个还不简单么

[dcl1214]昌立 21:51:22

[qqimg]201308/{A32DACE6-DABD-B099-1833-744212E13499}.jpg[/qqimg]

领教一下

[LC100]建筑设计 21:51:50

你想调些什么内容

我的线宽是通过图层来控制的。

你的是按颜色吗？

[dcl1214]昌立 21:52:13

默认的打印表

我们同事作图很乱的

所以想用几句代码来解决

[LC100]建筑设计 21:53:13

[qqimg]201308/{C1079DDA-D02F-86A4-485D-B2F7CD13B996}.jpg[/qqimg]

[dcl1214]昌立 21:53:48

这个就更不用说了，同事们不会搞

[LC100]建筑设计 21:53:53

你直接改好一个打印样式，然后。写一个bat,直接copy到CAD目录说就行了。

教一下就行了吧。

[dcl1214]昌立 21:54:05

我不可能一台电脑一台电脑的教他们

[LC100]建筑设计 21:54:17

叫他们一起到你这边上课啊

[pzweng][pzweng]路人 21:54:26

用command试试

[dcl1214]昌立 21:54:33

我不想，给自己找麻烦

[LC100]建筑设计 21:54:40

command我也不知道怎么调

[dcl1214]昌立 21:54:42

几句代码搞定

[LC100]建筑设计 21:54:57

你不想给自己找麻烦就直接做个样式表出来。然后安装就行了。

[dcl1214]昌立 21:55:16

我们的同事菜鸟级别都不到

[LC100]建筑设计 21:55:21

你不用编写bat也无所谓。直接用rar压缩成自动安装包。设置好路径。

[dcl1214]昌立 21:55:38

连x命令是啥都不知道，复制的快捷键是什么都不知道

[LC100]建筑设计 21:56:01

[qqimg]201308/{60B691AD-817C-CF60-604C-62650C807E13}.jpg[/qqimg]

[dcl1214]昌立 21:57:19

大家别笑，我们的同事都是没有学过cad的，直接从车间抓一个员工来用cad作图的

[LC100]建筑设计 21:58:20

哦

[dcl1214]昌立 21:58:20

所以我想将一些设置用代码默认算了，省事

[LC100]建筑设计 21:58:33

你是老板么？

还是助理什么级别之类的？

[dcl1214]昌立 21:58:42

一旦作图的人员走了，我也省事

我就是一个工程师而已

以前也不会cad

[LC100]建筑设计 21:59:06

现在还会编程了

[dcl1214]昌立 21:59:10

以前我不负责图纸的

后来发现图纸这块是一大缺陷，所以我开始接触cad

[500w008]宝林 21:59:40

[qqimg]201308/{5D31C629-0C08-E669-97A2-A1D048C366AA}.gif[/qqimg]

[LC100]建筑设计 21:59:42

如果是这样就真的好难帮到你了，最起码找个中专以上的人来做CAD还差不多。

[dcl1214]昌立 22:00:05

我们行业对cad作图要求不严的

只要样子像就行了

没有精确度要求

精确度可以是几米

一分图纸可以搞几百个比例都没事

[LC100]建筑设计 22:01:18

我是说，普通的初中生，没几个愿意学习的，才跑到厂去，所以如果要他们会用好CAD，所以必须找自原的员工才行。没理才随便抓二个就可以。

[dcl1214]昌立 22:02:15

也是因为这些菜鸟的原因，我才开始接触cad

[LC100]建筑设计 22:02:32

呵呵。要是这样好难搞的

[500w008]宝林 22:02:55

entmake 真的很爽很简洁 

[dcl1214]昌立 22:03:01

很多用cad几年的人，连文字显示问号都搞不定

[dcl1214]昌立 22:03:40

有的人连打印都不会，每次打印选择上一次操作

[LC100]建筑设计 22:04:32

这没办法啊

[dcl1214]昌立 22:05:17

哪位大仙帮我看看这个不能设置打印笔的原因，是不是高版本的写法不一样啊？

[tiyi8888]永远D痛 22:05:54

[dcl1214]昌立(224373054)  21:58:12
大家别笑，我们的同事都是没有学过cad的，直接从车间抓一个员工来用cad作图的

好牛的

老板是不一样的看法

[dcl1214]昌立 22:06:13

别笑

真的

[LC100]建筑设计 22:06:26

我想知道那些人是不是都按图层来画图？

[500w008]宝林 22:06:27

CAD是加元的简写

[dcl1214]昌立 22:06:39

不会

图层都不会用

[LC100]建筑设计 22:06:54

只换颜色？

有没有粗细线之类的区分？

[dcl1214]昌立 22:07:13

乱搞的

[vormittag]桔子 22:07:13

都是白色吧

[dcl1214]昌立 22:07:19

是的

你说对了

[]Tony 22:07:26

[dcl1214]昌立 22:07:35

整个图纸的图层一团糟

[]Tony 22:07:40

我也不分粗细

[vormittag]桔子 22:08:06

先学制图规范吧。

[dcl1214]昌立 22:08:31

他们连文字样式怎么设定都不会

[LC100]建筑设计 22:08:44

[qqimg]201308/{A0C51C58-EDCF-F32F-97B1-86AD32C6FD5B}.jpg[/qqimg]

[dcl1214]昌立 22:09:10

他们都是找一份原来的图纸，将图纸中的图元全部删除，然后作图就好了

[500w008]宝林 22:09:14

这个别笑人 说不定他两年后就是高手

[vormittag]桔子 22:10:23

，千万别教他们用purge。

不然有的忙了。

[pzweng][pzweng]路人 22:10:58

你已经教了

[dcl1214]昌立 22:11:09

他们做一份简单图纸能达到好几兆，问我怎么回事，我告诉他pu清除，他说不会

[dcl1214]昌立 22:12:17

他们用复制原来图纸的方式来作图，有时我发现一份图纸几十个图层，几十种文字样式

[]Tony 22:12:25

谁有空呀

帮我调试个东西

调试个LSP

我电脑调试没问题，别人电脑调有问题，我想不明白 呀

[]Tony 22:14:05

[ZZXXQQ] 22:14:38

(setvar "OSMODE" 0)

[]Tony 22:14:54

我的？

[ZZXXQQ] 22:15:25

Y

[]Tony 22:16:24

就这么简单？

原因是什么呀

我想不明白，

[dcl1214]昌立 22:16:48

捕捉

[]Tony 22:17:07

我不是画线的

[ZZXXQQ] 22:21:01

(if (> (cdr(assoc 40 (tblsearch "TXTSTYLE" (getvar "TEXTSTYLE")))) 0)
(command "TEXT" pt "" txt)
(command "TEXT" pt 100 "" txt)
)

(if (> (cdr(assoc 40 (tblsearch "TEXTSTYLE" (getvar "TEXTSTYLE")))) 0)
(command "TEXT" pt "" txt)
(command "TEXT" pt 100 "" txt)
)

[]Tony 22:22:09

我看不懂，

搞错人了

，，我不是问这个

[ZZXXQQ] 22:23:18

真累！还要人猜的

[]Tony 22:23:50