求修改下等分源码谢谢

flytoday · 发表于 2012-6-6 08:48

院长这个好好。。。麻烦院长给个代码嘛。。

flytoday · 发表于 2012-6-6 11:36

原来院长这个为固定值滴没用呵呵

我想要滴是A，C，L为固定值，但是B可以为固定值与最近值[em0]

xshrimp · 发表于 2012-6-6 14:39

本帖最后由 xshrimp 于 2012-6-6 14:46 编辑

我也来一个单文件.基本功能完成.什么向上向下的没有处理.先看看吧.
命令:test

xshrimp · 发表于 2012-6-6 14:43

本帖最后由 xshrimp 于 2012-6-6 14:45 编辑

核心函数其实很简单.只要几句就可以了.
根据下面的不用窗口就可以绘制栏杆了.
(defun gps->entmake-Line (p1 p2)
(entmake(list (cons 0 "LINE")(cons 10 p1)(cons 11 p2)))
)
(defun entmakelg(dis / pt)
(setq pt (polar spt ang dis))(gps->entmake-Line pt (polar pt (+ (* 0.5 pi) ang) L))
)

(setq A 25.0 B 110 C 50 L 300)
(if (setq ents (entsel))
(progn
(setq ent (car ents)entlst (entget ent) )
(setq spt(cdr(assoc 10 entlst)) ept(cdr(assoc 11 entlst)))
(setq ang (angle spt ept)dis (distance ept spt))
(entmakelg 0)
(entmakelg (setq adis c))
(setq n (/ (- dis c )(+ a b)))
(repeat (fix n)
(entmakelg (setq adis (+ b adis)))
(entmakelg (setq adis (+ a adis)))
)
)
)

flytoday · 发表于 2012-6-6 14:44

老大命令是什么啊。。。

flytoday · 发表于 2012-6-6 14:49

这个用不近似值哦。。。不信您试下，总长4米头尾两根为0，中间的A均为近似110，B固定值为30，这样等分不了

xshrimp · 发表于 2012-6-6 14:57

没有理解这个向上.向下.近似值到底是什么意思.
现在只有固定值可用.

flytoday · 发表于 2012-6-6 15:07

请大师改改谢谢~~~~~~~~~~~~~~~~~~~~~~~`

xshrimp · 发表于 2012-6-6 15:33

本帖最后由 xshrimp 于 2012-6-6 15:38 编辑

那C值有什么意义呢.?多余的自动两边均分?

A B C?这几个参数都要近似值??

flytoday · 发表于 2012-6-6 16:28

按您那个，只要A为近似值就行了

账号		自动登录	找回密码
密码			注册

求修改下等分源码谢谢

本帖子中包含更多资源

点评

点评

点评

本帖子中包含更多资源