2013-08-08 明经 AutoLISP 编程(102918348) 群聊记录：(defun wr_ctpl ( slt / );wr_ctpl (en

明经快报

[AMKYUD][AMKYUD]??? 16:39:55

(command "trim" en4 en0 "" enc1 "") 怎么画出来的没有想象中那么正确?

[LC100]建筑设计 16:40:32

en4 en0 enc1是什么东东

[LC100]建筑设计 16:41:25

这几个都是？

[AMKYUD][AMKYUD]??? 16:43:06

是的

[AMKYUD][AMKYUD]??? 16:43:39

[qqimg]201308/{A68A2E80-1756-53B7-136C-428B4FE0F2B7}.jpg[/qqimg]

结果是上面所示

[AMKYUD][AMKYUD]??? 16:44:22

enc1本来是整个圆

[AMKYUD][AMKYUD]??? 16:45:49

(command "trim" en4 en0 "" enc1 "")  结果只是剪了一部分而已

[AMKYUD][AMKYUD]??? 16:47:23

怎么弄

[AMKYUD][AMKYUD]??? 16:47:58

command "trim" 后面不是都只有选择图元的吗

[AMKYUD][AMKYUD]??? 16:48:59

求教

[cie0588][cie0588] 16:50:02

对象确定好了后，后面的选点 要和图元名一起
(command "trim" en4 en0 "" (list enc1 pt)"")

[VBALISPER]恐龙 16:50:06

据说要用双元表.

[pzweng][pzweng]路人 16:50:27

entsel

[AMKYUD][AMKYUD]??? 16:50:29

额

要求不可以用entsel的

[VBALISPER]恐龙 16:50:59

你用栏选的方法来剪切吧.网上有例子.

[flytoday]过^-^客 16:51:09

： 情人节快到了，宾馆的老板该笑了，第二天，药店的老板也该笑了，一个月后医院里的妇科医生全都笑了。

[pzweng][pzweng]路人 16:52:00

(command "trim" (ssget) "" (entsel) "")

[AMKYUD][AMKYUD]??? 16:52:01

要求不用用户再选择的，而是全部由电脑自己操作的

[AMKYUD][AMKYUD]??? 16:52:48

[VBALISPER]恐龙 16:54:06

[AMKYUD],偏移你那根线,得到栏选点的坐标,用栏选的方法来剪切

[cie0588][cie0588] 16:54:08

[qqimg]201308/{203366E8-BBFB-579E-BF20-38EF67CC202E}.jpg[/qqimg]

(command "trim" en1 en2 "" (list en2 pt) "")

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

(setq ss1 (ssget))
(setq en (entsel) 
(command "trim" ss1 "" en "")

[pzweng][pzweng]路人 16:55:29

错了

[AMKYUD][AMKYUD]??? 16:57:12

谢谢大家

[pzweng][pzweng]路人 16:57:12

(setq ss1 (ssget))
(setq en (entsel))
(command "trim" ss1 "" en "")

[xiaomm250][lisp_](car (entsel)) 17:04:50

用lisp如何点击dcl上面的button,然后让其访问某个网页呢?

[AMKYUD][AMKYUD]??? 17:04:54

[qqimg]201308/{26E18260-3EB6-4D97-3FD9-B7AD07B33CE1}.jpg[/qqimg]

[AMKYUD][AMKYUD]??? 17:07:15

[qqimg]201308/{6AC5CC5E-9139-392C-3F76-5F336C7B9684}.jpg[/qqimg]怎样写这个命令？

[pzweng][pzweng]路人 17:07:49

用command试

[AMKYUD][AMKYUD]??? 17:09:25

不会

[【KAIXIN】] [【KAIXIN】]炫翔 17:11:10

实在不行 是计算方法

去看看飞鸟的帖子

[【KAIXIN】] [【KAIXIN】]炫翔 17:13:45

应该可以根据 圆心到起点的距离 与圆心到端点的距离进行判断

[qqimg]201308/{51DD69F6-84FC-998D-F9BD-38E49D19D772}.jpg[/qqimg]

PPR

[AMKYUD][AMKYUD]??? 17:22:57

谢谢大家我再想象

[AMKYUD][AMKYUD]??? 17:26:17

(setq arc1 (command "arc" "c" p12 p10 p3))
  (setq arc2 (command "mirror" arc1 "" p7 p6 "N" ""))
哪里错了？

[XQL]强 17:26:42

选择试题

实体

[AMKYUD][AMKYUD]??? 17:27:48

题目要求是不用选择实体的

[XQL]强 17:30:29

不选择怎么镜像

(setq ent(entlast))

(command "mirror" ent ""

......

[【KAIXIN】] [【KAIXIN】]炫翔 17:30:53

(SSGET "X")

[XQL]强 17:31:06

他要生成的

不是选择的

全部

[【KAIXIN】] [【KAIXIN】]炫翔 17:31:15

再过滤

只说方法

[【KAIXIN】] [【KAIXIN】]炫翔 17:32:45

受鱼 不如 受渔

[AMKYUD][AMKYUD]??? 17:32:47

为什么不能 (setq arc1 (command "arc" "c" p12 p10 p3))？

[【KAIXIN】] [【KAIXIN】]炫翔 17:33:00

吃饭下班

[XQL]强 17:33:08

返回值是nil

你定义空值有用吗

[AMKYUD][AMKYUD]??? 17:33:27

原来如此，非常感谢

[yeahyeah]王晓平 17:39:46

？command

[cie0588][cie0588] 17:40:18

AddMLeader的两个参数是啥？

怎么查不到，是不是低版本没有这个

[cie0588][cie0588] 17:45:26

找到了

明经快报

[死者不舞] 21:19:42

有什么办法？？

明经快报

[tryhi]大海 21:40:47

请问if里面能不能多条语句

[ZZXXQQ] 21:41:11

能，用progn

[tryhi]大海 21:41:18

非常感谢

明经快报

23:17:45

这个要找点的

如果你每次都是修剪那个位置，那可以用公式计算出一个统一的坐标点来。

选择的点位置不一样，修剪出来的东西也不一样。

[AMKYUD] 23:17:46

图元名

23:17:46

论坛上不去

[tryhi]大海 23:25:37

(defun  ztc_PUB_HATCH (aa)
(setq checklayer (tblsearch "layer" aa))
(if (= checklayer nil) 
    (progn
    (command "-layer" "n" aa "")
    (command "-layer" "c" "8" aa "")
    (command "layer" "s" aa ""));progn
    (command "layer" "s" aa "")
    );if
)

调用(ztc_PUB_HATCH "UB_HATCH")

[LC100]建筑设计 23:26:18

行

[tryhi]大海 23:26:20

[@215241411,@[LC100]建筑设计]

[LC100]建筑设计 23:26:21

不错。

33ks

[tryhi]大海 23:26:40

刚刚漏了一个词NND

[LC100]建筑设计 23:27:47

哦。

对比出来了。

我原来也试过，但后来操作不成功。

[tryhi]大海 23:30:14

呵呵

[LC100]建筑设计 23:30:32

估计也是复制少了什么东西。

明经快报

[500w008]宝林 23:50:50

(defun la_mx ( lt_x n_x / );创建图层
;(setq lt_x "")
(entmake (list '(0 . "LAYER") 
               '(100 . "AcDbSymbolTableRecord") 
               '(100 . "AcDbLayerTableRecord")
               '(70 . 0) 
               '(6 . lt_x)
                (cons 2 n_x)
         )
)
(princ)
)

(la_mx DASHED gz_d)
(la_mx DASHED ct_pl)