2013-05-05 明经 AutoLISP 编程(102918348) 群聊记录：[face28.gif]

明经快报

[清风明月名字] 15:07:48

请问，能否在LISP的A插件运行期间使用常青藤软件来选择图元？因为它选择图元快
我在运行A插件时，要两次选定图元，且需要选定的图元都很多，所以只能用常青藤

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

没听说过这个软件

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

你找到常青藤的命令，然后command

[fsxm]飞诗 15:13:18

小明更强大了

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

函数不全啊

[英雄无敌]英雄 15:20:52

这本来就不是lisp的函数吧

[夏生生][x_s_s_1]生无可恋 15:23:25

英雄！！好久不显了啊

是lisp函数

[夏生生][x_s_s_1]生无可恋 15:24:30

(bpoly pt[ss][])

[英雄无敌]英雄 15:25:11

一直在四川出差，最近才回来

[夏生生][x_s_s_1]生无可恋 15:27:30

明经快报

[kwok][kwok]巭隼 15:57:01

(setq ss (ssget "_C" p1 p2 ))
我想让上面这个框选过滤掉锁定的层，怎么弄，就是是锁定的不让选中

[夏生生][x_s_s_1]生无可恋 15:58:39

锁定的本不让选中

[kwok][kwok]巭隼 15:59:03

上面这个，会选中锁的层的线

所以在修剪时老出错

[夏生生][x_s_s_1]生无可恋 16:02:17

先判断组码70

为4不选即可

明经快报

[kwok][kwok]巭隼 16:14:35

(setq ss (ssget "_c" p1 p2 ))
(while
  (setq layer (tblnext "layer" (not layer)))
    (if (= (cdr (assoc 70 layer)) 0)
      (setq lay_list (append lay_list (list (cons 8 (cdr (assoc 2 layer))))))
    )
  )
  (append (cons (cons -4  "")))
指定一下，这个要怎么改好，它起作用?

明经快报

[清风明月名字] 17:16:54

请问，怎么这句话里面总说列表中有错误元素0，

“(entmake (list '(0 . "TEXT") (cons 1 "QQ") (cons 10 单点坐标) (cons 40 2)))”

明经快报

[ZZXXQQ] 18:56:28

钻牛角尖钻的

[仑通]仑通 19:05:57

(defun get_by (lst / )
(command "LAYER" "MAKE" "byx" "C" "2" "byx" "LT" "CONTINUOUS" "byx" "")
(command "-boundary" pause "")）

如果要把PAUSE 换成 两点的点表怎么弄

(defun get_point (pt dr / );获得点函数
  (setvar "cmdecho" 0)
  (graphscr)
    (setq gas (/ pi 180))
  (setq s_l 100)
(setq zx_1 (polar pt (* gas 0) (+ dr s_l))
      zx_2 (polar pt (* gas 180) (+ dr s_l))
      zx_3 (polar pt (* gas 90) (+ dr s_l))
      zx_4 (polar pt (* gas -90) (+ dr s_l))
      p_3 (polar pt (* gas 135) (/ dr 4))
      p_4 (polar pt (* gas -45) (/ dr 4))
)
 (setq lst (list p_3 p_4))
 (command "pline" zx_1 zx_2 "")
 (command "pline" zx_3 zx_4 "")
(princ)
)

[仑通]仑通 19:07:08

两点点表已经有了 就 get_point 函数中的 lst

[仑通]仑通 19:09:50

两个那个是

[caoyin][caoyin] 19:10:17

xiam

下面

明经快报

[仑通]仑通 19:26:40

还是不行

[ZZXXQQ] 19:28:20

[仑通]仑通 19:28:44

[qqimg]oldimg/{EA7FB6F5-C756-DA2A-B747-BD43A078B2EF}.gif[/qqimg]

[仑通]仑通 19:29:16

[qqimg]oldimg/{EA7FB6F5-C756-DA2A-B747-BD43A078B2EF}.gif[/qqimg]我也会凑这么多了

[仑通]仑通 19:30:59

在这个函数有错误

[仑通]仑通 19:31:34

各函数之间关系理不清楚

[仑通]仑通 19:32:12

[qqimg]oldimg/{E66E8C5F-757C-C71E-504E-3DF1C504A848}.jpg[/qqimg]

这个是想实现效果

批量 的

(defun bh_byx_ss (byx_ss / );填充
 (COMMAND "LAYER" "M" "hatch" "C" "4" "hatch" "")
 (setvar "clayer" "Hatch")
    (setq smx (sslength byx_ss)
      si  0
    )
    (while (< si smx)
      (setq e  (ssname ss si)
        si (1+ si)
      )
     (command ".-bhatch" "p" "solid" "s" e "" "")
     (command ".ERASE" e  "")   
    )
(princ)
)

[pzweng]路人 19:37:21

[qqimg]oldimg/{5B740959-A8B1-57E5-327C-D6D44645324E}.gif[/qqimg]

[仑通]仑通 19:37:26

是不是填充函数 缺少 IF byx_ss

[pzweng]路人 19:37:49

自己调试嘛

这是基础

[仑通]仑通 19:39:31

这个是 另外一个函数提供的两个点

(defun get_point (pt dr / );获得点函数
  (setvar "cmdecho" 0)
  (graphscr)
    (setq gas (/ pi 180))
  (setq s_l 100)
(setq zx_1 (polar pt (* gas 0) (+ dr s_l))
      zx_2 (polar pt (* gas 180) (+ dr s_l))
      zx_3 (polar pt (* gas 90) (+ dr s_l))
      zx_4 (polar pt (* gas -90) (+ dr s_l))
      p_3 (polar pt (* gas 135) (/ dr 4))
      p_4 (polar pt (* gas -45) (/ dr 4))
)
 (setq lst (list p_3 p_4))
 (command "pline" zx_1 zx_2 "")
 (command "pline" zx_3 zx_4 "")
(princ)
)

[pzweng]路人 19:39:45

[qqimg]oldimg/{66C8984E-0FA6-807D-FC61-DAD19678BF3C}.gif[/qqimg]

[仑通]仑通 19:39:52

p_3 (polar pt (* gas 135) (/ dr 4))
      p_4 (polar pt (* gas -45) (/ dr 4))

[仑通]仑通 19:41:26

估计不能 呵呵

[仑通]仑通 19:42:32

其他子函数没问题的 我自己调过

[仑通]仑通 19:44:33

p_2 p_4是得到第二 第四象限 圆中的两个点 以这两个点 得到边缘线 然后填充

p_3 p_4

[仑通]仑通 19:46:40

是否应该去掉 因为 其中一个函数以及获得 这个点表了

[qqimg]oldimg/{39AD7E4C-5B7C-8E8C-2AAD-DC553B8012B6}.jpg[/qqimg]

[仑通]仑通 19:48:29

教下菜鸟我嘛 

[pzweng]路人 19:50:51

你用polar函数就可以得到两点嘛

[仑通]仑通 19:51:11

得到了

这两点是有的

[仑通]仑通 19:54:14

我晚上再想想 先吃饭 

[仑通]仑通 19:55:02

其实还可以更简化 这个函数

[小伟jeny]小伟 19:55:15

求教 我想得到一个三角形的内部随机坐标点 有什么方法不？

明经快报

[yxp]小蜜蜂 20:49:29

没有控件，用odcl制造一个

[qqimg]oldimg/{553FC5AE-9588-41D9-6AFB-844B635F4AAF}.jpg[/qqimg]

[仑通]仑通 20:54:07

明经快报

[十字路]16940745 21:26:09

我把几十个LISP文件打包成一个VLX,怎么加载后只有少数几个命令可用啊?

[ZZXXQQ] 21:26:41

重名了吧

[十字路]16940745 21:26:58

重名?

没有啊

[yx5277]有来有去 21:27:40

lisp 如何加快运行速度

快报

[十字路]16940745 21:27:55

[qqimg]oldimg/{87C68A53-8CDC-EC4D-E1A2-B0B07CD33726}.jpg[/qqimg]

打开VLX文件可以看到全编进去了

[pzweng]路人 21:28:39

[qqimg]oldimg/{81292F92-18F1-AF1B-6564-457E78FE6F4B}.gif[/qqimg]

[十字路]16940745 21:28:47

奇怪死了

[xiabin68]测绘 21:32:58

各位，遇到一个很无语的问题，就是我的全站仪的格网因子被改了，，但是我的碎部点用的数据采集测量的，，在导出数据的时候我总爱导两个数据，一个测量数据，一个坐标数据这下遇到问题了，在展点的时候，两个坐标没有重合在一起，，现在是那个数据是正确的呢，是数据采集还是极坐标的数据正确呢？？？？

[十字路]16940745 21:33:15

我把几十个LISP文件打包成一个VLX,怎么加载后只有少数几个命令可用啊?

有没人知道啊,搞了一天了

[ZZXXQQ] 21:35:08

函数或变量重名

[1993063][1993063] 21:41:31

有冲突了吧

[仑通]仑通 21:49:12

添加同名块有没比较好的方法

[仑通]仑通 21:52:02

明经这个功能不错

[xiabin68]测绘 21:53:02

就是，，

请教大家，，有没有办法把数据导到WPS里去呢？？有没有人做过这方面的研究，，

就像把数据导到EXCEL里一样，

[tiyi8888]永远痛 21:57:32

请教大家，，有没有办法把数据导到WPS里去呢？？有没有人做过这方面的研究，，
就像把数据导到EXCEL里一样

用WPS打开EXCLE吧

[kewyst]………… 22:01:25

[qqimg]oldimg/{075371AD-7F1F-7196-7983-21F94BFE9B20}.jpg[/qqimg]

[xiabin68]测绘 22:01:50

不是，用LISP直接打开WPS

明经快报

[仑通]仑通 22:18:28

这个刚刚好需要着 呵呵 继续

【7299969】人生 22:20:39

看会一点了

明经快报

[仑通]仑通 22:42:33

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

这个问题有没人解决了

别人的贴

[dcl1214]昌立 22:50:32

[qqimg]oldimg/{3439DA97-C1C6-C929-F32B-1056CFB1CA9A}.jpg[/qqimg]

这是怎么回事？

除了2004的不会出现这个问题外，其余的版本好像都会遇到