2013-06-26 明经 AutoLISP 编程(102918348) 群聊记录：[image={CA1906D3-63BF-50A4-C47C-72D7BF

明经快报

[天财]天财 00:05:10

[qqimg]oldimg/{CA1906D3-63BF-50A4-C47C-72D7BF7AF82B}.jpg[/qqimg]

明经快报

[天财]天财 07:36:13

(setq objs (vla-get-activeselectionset
               (vla-get-activedocument
                 (vlax-get-acad-object)
               )
             )
    )

(defun t3 ( pxx ptt dis_1 / )   
  (vl-load-com)
  (setq dis (+ dis_1 500)
        dis2 (+ dis_1 800)
        dis3 (+ dis_1 900)
  )
  (command "pline" "non" pxx "non" ptt "non" "")
  (setq gj_1 (entlast))
  (command ".chprop" gj_1 "" "LA" "gj5" "")
  (command "EDIT" "M" gj_1 "" "W" 40 "")
    (setq objs (vla-get-activeselectionset
               (vla-get-activedocument
                 (vlax-get-acad-object)
               )
             )
    )
  (vlax-for obj objs (vla-offset obj dis))
  (vlax-for obj objs (vla-offset obj (* -1 dis)))
  (vlax-for obj objs (vla-offset obj dis2))
  (vlax-for obj objs (vla-offset obj (* -1 dis2)))
  (vlax-for obj objs (vla-offset obj dis3))
  (vlax-for obj objs (vla-offset obj (* -1 dis3)))
  (princ)
)

[天财]天财 07:37:34

为何 偏移没有挪开来 集中在一起

(defun t3 ( pxx ptt dis_1 / )   
  (vl-load-com)
  (setq dis (+ dis_1 500)
        dis2 (+ dis_1 800)
        dis3 (+ dis_1 900)
  )
  (command "pline" "non" pxx "non" ptt "non" "")
  (setq gj_1 (entlast))
  (command ".chprop" gj_1 "" "LA" "gj5" "")
  (command "EDIT" "M" gj_1 "" "W" 40 "")
  (setq ss_j (entlast))
    (setq objs (vla-get-activeselectionset
               (vla-get-activedocument
                 (vlax-get-acad-object)
               )
             )
    )
  (vlax-for obj objs (vla-offset obj dis))
  (vlax-for obj objs (vla-offset obj (* -1 dis)))
  (vlax-for obj objs (vla-offset obj dis2))
  (vlax-for obj objs (vla-offset obj (* -1 dis2)))
  (vlax-for obj objs (vla-offset obj dis3))
  (vlax-for obj objs (vla-offset obj (* -1 dis3)))
  (princ)
)

明经快报

[pzweng][pzweng]路人 07:54:16

[qqimg]oldimg/{C1792D1B-AE24-B9F4-11EB-D4ACA7F5DB99}.jpg[/qqimg]

明经快报

[雨的节奏][雨的节奏] 08:12:03

错误。名为“boxed_row”的控件未被定义。

错误。名为“boxed_radio_column”的控件未被定义。

错误 在“gbhdcls”中。(widget 类型 = ** undefined **, key = “”)
    此类型的控件无法拥有子控件。

dcl出现这些问题是怎么回事啊

[pzweng][pzweng]路人 08:12:37

key没有值

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

有值啊、、郁闷

[天财]天财 08:14:55

(defun t3 ( pxx ptt / )   
  (vl-load-com)
  (setq dis 350.0
        dis2 550.0
        dis3 750.0
  )
  (command "pline" "non" pxx "non" ptt "non" "")
  (setq gj_1 (entlast))
  (command ".chprop" gj_1 "" "LA" "gj5" "")
  (command "EDIT" "M" gj_1 "" "W" 40 "")
  (setq s_cc (entlast))
  (command "_.select" s_cc "")
    (setq objs (vla-get-activeselectionset
               (vla-get-activedocument
                 (vlax-get-acad-object)
               )
             )
    )
  (vlax-for obj objs (vla-offset obj dis))
  (vlax-for obj objs (vla-offset obj (* -1 dis)))
  (vlax-for obj objs (vla-offset obj dis2))
  (vlax-for obj objs (vla-offset obj (* -1 dis2)))
  (vlax-for obj objs (vla-offset obj dis3))
  (vlax-for obj objs (vla-offset obj (* -1 dis3)))
  (princ)
)

[雨的节奏][雨的节奏] 08:15:12

以前是不会出问题了

[天财]天财 08:15:17

大家帮忙看看 错误出租哪里 钢筋扎堆在一起

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

不知道为什么现在会出问题、、、

明经快报

[xiaomm250][lisp](car (entsel)) 09:45:11

为什么有的lisp的dcl文件是独立的,而有的lisp中没有dcl也能显示出对话框?

[Kitchen_Design]赶紧修改马甲 09:45:39

DCL可以写成LISP文件

放一块就成LISP了

[xiaomm250][lisp](car (entsel)) 09:46:19

那如何放在一块写呢?

[VBALISPER]恐龙 09:46:23

感觉好麻烦哦.写很多write-line.主要是有很多引号要转义

[Kitchen_Design]赶紧修改马甲 09:46:55

CAD中有转的工具吧好像

[xiaomm250][lisp](car (entsel)) 09:47:10

在什么地方?

[Kitchen_Design]赶紧修改马甲 09:47:47

没干过这个

你指DCL还是OPENDCL

[xiaomm250][lisp](car (entsel)) 09:48:31

我只会简单的dcl,独立于lisp代码的那种

我很好奇有的lisp没独立的dcl文件,可是最后也有对话框

[pzweng][pzweng]路人 09:49:15

在里面

[VBALISPER]恐龙 09:49:24

我是指DCL.

[pzweng][pzweng]路人 09:49:25

做了一个临时的dcl

write-line

[pzweng][pzweng]路人 09:50:17

把dcl用lisp转成表

然后复制到lisp

[Kitchen_Design][kitchen_design] 09:51:14

猫爷那个东西牛B

[pzweng][pzweng]路人 09:51:19

怎么让dcl变成表

[Kitchen_Design][kitchen_design] 09:51:31

连我这个棒槌都能用起来

[xiaomm250][lisp](car (entsel)) 09:51:39

猫老师的那个对话框如何显示出来呢

[Kitchen_Design][kitchen_design] 09:52:04

猫爷现在做不做单独辅导啊，付费的当然

我看视频头晕

[不死猫][nonsmall]不死猫 09:56:48

人少你不划算

[xiaomm250][lisp](car (entsel)) 09:57:39

(new_dialog "Form1" dcl_id) 添加这句就可以显示了

[Kitchen_Design][kitchen_design] 09:59:46

我不怕不划算

从小找家教就习惯了单独辅导

人多还不习惯

[【KAIXIN】] [【KAIXIN】]炫翔 10:00:34

好样

[不死猫][nonsmall]不死猫 10:00:42

按小时算  学会为止

[Kitchen_Design][kitchen_design] 10:01:45

详谈

[【KAIXIN】] [【KAIXIN】]炫翔 10:01:46

我以前学设计的时候  也是这样玩的

[【KAIXIN】] [【KAIXIN】]炫翔 10:02:18

单独的，玩的精

[q530496591][q530496591]小菜鸟 10:02:47

[仲文玉][仲文玉]wygjx 10:04:10

富二代？

[mmh1][mmh1]漫步地球 10:04:15

男女搭配干过不累，学的也快

[【KAIXIN】] [【KAIXIN】]炫翔 10:04:41

既然想玩精，那是必须要...

不然大家都知道的玩意，没事竞争力

跟大师级别的人物，学的就是经验

[VBALISPER]恐龙 10:05:37

富二代还画什么图啊.搞什么设计啊.

[仲文玉][仲文玉]wygjx 10:06:11

自力

自力、自理、自利、自立、自励......

[【KAIXIN】] [【KAIXIN】]炫翔 10:06:41

不是每个富二代都....

LSP爱好者 10:06:46

富二代都在泡码子了

明经快报

[天财]天财 10:22:03

(defun c:acc ()
  (vl-load-com)
  (setvar "cmdecho" 0)
  (graphscr)
  (setq sysvar (getvar "OSMODE")) 
  (setvar "OSMODE" 16384) 
  (if (setq sss (ssget '((0 . "line") (8 . "beam,*axis*,*dote*"))))
    (progn (setq sss1 (ssget "p" '((8 . "beam"))))
       (command "_.select" sss "remove" sss1 "")
       (setq sss2 (ssget "p"))
    )
  )
     (setq ptlst (GetInterPoint sss1 sss2))  
     (qxc ptlst)        
  (princ)
  (setvar "OSMODE" sysvar)
  (print"wrightby吴艺深2012-qq:262773362")
)

(COMMAND "LAYER" "MAKE" "X5" "COLOR" "1" "X5" "LT" "continuous" "X5" "")  
(COMMAND "LAYER" "MAKE" "gj5" "COLOR" "2" "gj5" "LT" "continuous" "gj5" "") 

;;选择集求交点集-网上找的
(defun GetInterPoint (sss1 sss2 / ax_ent_1 ax_ent_2)
  (setq    n1 0
    ptlst (list)
  )
  (repeat (sslength sss1)
    (setq ax_ent_1 (vlax-ename->vla-object (ssname sss1 n1))
      n1       (1+ n1)
    )
    (setq n2 0)
    (repeat (sslength sss2)
      (setq ax_ent_2 (vlax-ename->vla-object (ssname sss2 n2))
        n2         (1+ n2)
      )
      (setq ipt
         (vlax-variant-value (vla-intersectwith ax_ent_1 ax_ent_2 0))
      )
      (if (> (vlax-safearray-get-u-bound ipt 1) 0)
    (progn
      (setq ipt (VLAX-SAFEARRAY->LIST ipt))
      (while (> (length ipt) 0)
        (setq ptlst    (cons (list (car ipt) (cadr ipt) (caddr ipt)) ptlst)
          ipt (cdddr ipt)
        )
      );endwhile
    );endprogn
      );endif
    );endrepeat
  );endrepeat
  ptlst
)



(defun wr_dj ( pa pb / );by wuyishen
 (if pa 
   (progn
      (setq gas (/ pi 180)
         c_1 (* gas 90)
         dis_2 (distance pc pd)
         x_dis (- dis_2 50)
         angc (angle pd pc)
      )
(setq p_c (polar pd angc 50)
      _1 (polar p_c (+ angc c_1) 150)
      _2 (polar p_c (- angc c_1) 150)
      p_t (polar pd angc x_dis)
      _3 (polar p_t (+ angc c_1) 250)
      _4 (polar p_t (- angc c_1) 250)
      _5 (polar p_t (+ angc c_1) 350)
      _6 (polar p_t (- angc c_1) 350)
  ) 
  (command "pline" p_5 p_3 p_1 p_2 p_4 p_6 "")
  (setq djs (entlast))   
  (command ".chprop" djs "" "LA" "X5" "")
  (command "EDIT" "M" djs "" "W" 40 "")
)) 
  (princ)
) 




(defun t3 ( pxx ptt / )   
  (vl-load-com)
  (setq dis 350.0
        dis2 550.0
        dis3 750.0
  )
  (command "pline" pxx ptt "")
  (setq gj_1 (entlast))
  (command ".chprop" gj_1 "" "LA" "gj5" "")
  (command "EDIT" "M" gj_1 "" "W" 40 "")
  (setq s_cc (entlast))
  (command "_.select" s_cc "")
    (setq objs (vla-get-activeselectionset
               (vla-get-activedocument
                 (vlax-get-acad-object)
               )
             )
    )
  (vlax-for obj objs (vla-offset obj dis))
  (vlax-for obj objs (vla-offset obj (* -1 dis)))
  (vlax-for obj objs (vla-offset obj dis2))
  (vlax-for obj objs (vla-offset obj (* -1 dis2)))
  (vlax-for obj objs (vla-offset obj dis3))
  (vlax-for obj objs (vla-offset obj (* -1 dis3)))
  (princ)
)

       ;(t3 pc pd)

(defun qxc (ptlst / );by wuyishen
 (setq ni 0
       k  (length ptlst))
 (if (< ni (length ptlst))
  (repeat (length ptlst)
   (setq a (nth ni ptlst))
   (setq ni (1+ ni) j ni)
   (repeat (- (length ptlst)j)
    (setq b (nth j ptlst))
    (setq pa_x (car pa)
          pa_y (cadr pa)
          pb_x (car pb)
          pb_y (cadr pb)
    )
(if 
  (or 
    (< pa_x pb_x)
    (> pa_y pb_y)
  )
 (setq pc pa pd pb)
 (setq pc pb pd pa)
)
    (setq dis_1 (distance pc pd))
    (if (< 290 dis_1 510)
       (wr_dj pc pd)
      ) 
    );endif
    (setq j (1+ j))
   );repeat
  );repeat
 );if
 (princ)
)

明经快报

[flytoday]过^-^客 12:00:49

有没未注明钢筋统一标上去的

明经快报

[雨的节奏][雨的节奏] 14:56:47

[qqimg]oldimg/{B8717F71-7ACC-A9F1-37BE-595C6F9FC1C9}.jpg[/qqimg]

怎么又出现这个错误

[qqimg]oldimg/{14B30D78-9B20-8CC0-29E3-47E0E8DD4ED0}.jpg[/qqimg]

[stoyer][stoyer] 15:00:17

妹的，搞半天装了WIN8，结果Hyper-V不支持USB狗，看来还是只有用WIN7了。

[雨的节奏][雨的节奏] 15:00:58

====== gbhdcl 的 DCL 语义检核  ======

错误 在“gbhdcl”中。(widget 类型 = ** undefined **, key = “”)
    此类型的控件无法拥有子控件。

[mmh1][mmh1]漫步地球 15:00:58

如何获取物理地址？

[雨的节奏][雨的节奏] 15:01:12

为什么以前用着没问题的现在有问题了

明经快报

[OWEN7]赶紧修改名片 15:22:57

怎么样才能从一个画好的PL线，继续接着PL

已经回车了

[VBALISPER]恐龙 15:23:29

再回车

[kwok][kwok]巭隼 15:23:40

双回车

[OWEN7]赶紧修改名片 15:23:45

已经允许其他命令了

[VBALISPER]恐龙 15:24:23

鼠标移到那个点上开始画.再连接多段线

[【KAIXIN】] [【KAIXIN】]炫翔 15:24:25

取端点

[OWEN7]赶紧修改名片 15:24:39

？

[qqimg]oldimg/{8170C406-7D37-6F89-1B17-F37C93500259}.jpg[/qqimg]比如这个线我已经画好了

想再PL下去，

群主在么，帮我修改一下，我修改不了名片

[VBALISPER]恐龙 15:25:36

鼠标移到那个点上开始画.再连接多段线

[OWEN7]赶紧修改名片 15:25:50

必须这样么

[【KAIXIN】] [【KAIXIN】]炫翔 15:26:04

不一定

[OWEN7]赶紧修改名片 15:26:07

[qqimg]oldimg/{F34D74A1-14C9-3C7B-3EC1-A34365BF3D50}.jpg[/qqimg]

没法改啊

[【KAIXIN】] [【KAIXIN】]炫翔 15:26:20

你可以直接点击端点画

[OWEN7]赶紧修改名片 15:26:26

炫翔大师，怎么

[【KAIXIN】] [【KAIXIN】]炫翔 15:26:33

然后选两线合并成一条

[VBALISPER]恐龙 15:27:00

一样的嘛

[OWEN7]赶紧修改名片 15:27:12

……

[ttthhh_hb] 15:27:38

赶紧修改名片

[OWEN7]赶紧修改名片 15:27:46

修改不了

[【KAIXIN】] [【KAIXIN】]炫翔 15:27:46

还有就是用新的多段线替换原来的

点坐标生成

[vormittag]桔子 15:28:03

点一下编辑资料。

[【KAIXIN】] [【KAIXIN】]炫翔 15:28:26

[qqimg]oldimg/{34C0DD3F-35CF-1FD6-C144-74278DA73F93}.jpg[/qqimg]

[OWEN7](qqou7)ya雀无声 15:28:31

OK

[OWEN7](qqou7)ya雀无声 15:29:01

我不是大师，不敢修改

怕丢人

[kwok][kwok]巭隼 15:29:22

[qqimg]oldimg/{83A55DB4-7F0E-A67D-F80C-9433E2734826}.jpg[/qqimg]

[kwok][kwok]巭隼 15:30:23

看来新版qq好多人不会用，为什么要更新呢，
腾讯也不出个手册

[胆小鬼39] 15:32:45

[ken_1_1] 15:36:05

http://im.qq.com/update/

[OWEN7](qqou7)ya雀无声 15:38:43

[qqimg]oldimg/{BAA85650-F297-150B-5CE3-09BE7A235FBC}.jpg[/qqimg]这个好

不用在公司上班了

[tiyi8888]永远痛 15:39:21

怎么可能不用上班

如果这样舒服了

还是要工作的

环境不同而已

明经快报

[enixing]enixing 16:02:31

如果玩远程，还是向日葵比较科学

gtj116600笑对人生 16:03:23

《关于大连双泽农业生物技术示范园排洪沟用地补偿问题的复函》（大金规建函字[2011]123号及其附件《金石滩西部区A-5地块规划设计条件及用地红线图》