我希望这不再是巴拉吉。我真的不想再次禁止他。真的，我会的眨眼：
试试这个但是又快又脏
(defun load_ltype (ltname / fname);FH
(if (not (tblsearch "ltype" ltname))
(and
(if (zerop (getvar "measureinit"))
(setq fname "acad.lin")
(setq fname "acadiso.lin")
)
(vl-cmdf "._-linetype" "_L" ltname (findfile fname) "")
)
)
(princ)
)
(load_ltype "ACAD_ISO02W100")
(defun c:demo (/ *error* cnt curcol curlr curlts elist en osm pt pts )
;; Application error handler by Doug Broad
(defun *error*(msg)
; create standard error handler
(cond ((not msg)) ; normal exit, no error
((member msg '("Function cancelled" "quit / exit abort"))
( ) ) ; escape
((princ (strcat "\nError: " msg)) ; display fatal error
))
(setvar "cmdecho" 1) ; restore environments
(if osm (setvar "osmode" osm))
(if curlr (setvar "clayer" curlr))
(if curcol (setvar "cecolor" curcol))
(if curlts (setvar "celweight" curlts))
(command "._layerp" )
(command "._undo" "_end")
(princ)
)
(setvar "cmdecho" 0) ; turn echo off
(command "._Undo" "_end") ; close any open group
(command "._undo" "_begin")
(load_ltype "ACAD_ISO02W100")
(command "_.-layer" "_Th" "*" "")
(setq osm (getvar "osmode"))
(setq curlr (getvar "clayer"))
(setq curcol (getvar "cecolor"))
(setq curlts (getvar "celweight"))
(setvar "cmdecho" 0)
(setvar "clayer" "0")
(setvar "cecolor" "1")
(command "_celtype" "ACAD_ISO02W100")
(setvar "celweight" 53)
(setvar "celtscale" 0.05)
(setq pts nil)
(if (setq pt (getpoint "\nPick first Point: "))
(progn
(setq pts (cons pt pts))
(command "_.pline" "_non" pt "_W" "0.0" "0.0")
(while (setq pt (getpoint "\nPick next point: " pt))
(setq pts (cons pt pts))
(command "_non" pt))
(command "")))
(command "_celtype" "continuous")
(setvar "cecolor" "256")
(foreach p pts
(command "_.-insert""block-1"p "1.0" "1.0" "0.0"))
(setq pts (reverse pts)
cnt 1)
(setvar "celtscale" 1.0)
(setvar "cecolor" "7")
( while(cadr pts)
(command "dimaligned" (car pts) (cadr pts) (polar (cadr pts) (* pi 1.5)0.05))
(setq en (entlast))
(setq elist (entget en))
(setq elist (entmod (subst (cons 1 (strcat"{\\C3;" (itoa cnt) "}\\P\\C7;<>"))(assoc 1 elist)elist)))
(entmod (subst (cons 41 1.5)(assoc 41 elist)elist))
(entupd en)
(setq pts(cdr pts)
cnt (1+ cnt)))
(*error* nil)
(princ)
)
(prompt"\n\t\t>> Type DEMO to execute")
(prin1)
PS将块的插入点更改为圆心
提示：BEDIT 菲索，你知道规矩。请用英语邮寄。
和你写的相反，我们并不无聊。我们正在寻找一个麻烦制造者，他不断用不同的用户名注册，要求为他编写代码。他已经被禁赛三次了，在这里他不再受欢迎。
在这种情况下，一些成员可能已经越权了，但原始帖子与我们习惯于从被禁帖子中看到的帖子类型惊人地相似。 好的，对不起，我的错
我会记住的
当做
奥列格 我被禁止了？？3次
但是路？？
什么原因？
你以为我是美国乔治亚州人吗？？我来自乔治亚州，我需要LISP脚本方面的帮助
sum用户：互联网提供商“高加索在线”http://www.co.ge
我可以在没有LISP的情况下完成我的工作，但所有这些绘图都需要很多时间。 不是你，亚历克斯；巴拉吉被禁了三次。。。你的帖子很相似，所以我把我的怀疑公之于众。
请忽略不计，继续提问（如果有）。
Fixo的代码对你有用吗？ 那么你应该学会编码眨眼：
是的，很好用
但它需要修改。
谢谢，男人是完美的，但正如我所说，它需要修改
你能再帮我一次吗？？ 也许你应该提一下需要修改的地方？
页:
1
[2]