Hi
Try changing the value of the system variable "LtScale" down to a small enough number.
ex 0.001 and recover it once done.
Regards.

Hi,
FYI: the version 10.0.1572 (August 10) fixed this issue.

Not sure what issue you have with CMS IntelliCAD 10 PE+.
Btw, please refer to this topic, hope that fixed your issue.
viewtopic.php?f=1&t=1928&p=7058&hilit=d ... e953#p7058

Excellent - glad you can use the functions.

Hi, First, we're talking about the IntelliCAD, not AutoCAD. And the script command requests a file with the extension scr, (not .txt as you wrote). Here is the code to call the command in VBA for excel: Public Sub SendCommandEx(iCadApp As Object) '(command "_.script" "C:\\IntelliCAD\\...

Hi, For the VBA in Excel, please use this sub Public Sub startIcad() Dim cadObj As Object Dim AcAppClID As String AcAppClID = "ICAD.Application" On Error Resume Next 'try if IntelliCAD already is started Set cadObj = GetObject(, AcAppClID) If cadObj Is Nothing Then 'IntelliCAD is not runni...

Hi

Please refer to this (using type Object instead) :
viewtopic.php?f=3&t=1956&sid=7669c7f9d3 ... ab437ed276

Hi,
What version of IntelliCAD do you use now?
Here's the Aerial right-front view of version 10.0

Try this: (defun c:imps (/ ans ent itm sol ss) (if (and (setq sol (car (entsel "\nSelect a 3D solid or surface: "))) (princ "\nSelect objects to imprint: ") (setq ss (ssget '((0 . "ARC,CIRCLE,LINE,*POLYLINE,ELLIPSE,SPLINE,REGION,3DSOLID")))) (progn (initget "Y N&qu...

Hi Hamm, In the IntelliCAD, we can use the command "SolidEdit" to imprint an object to a solid object. refer this routine: (defun c:imp (/ ans ent sol) (if (and (setq sol (car (entsel "\nSelect a 3D solid or surface: "))) (princ "\nSelect objects to imprint: ") (setq en...

Hi
Please refer to the ODA BimRS SDK:

Hi,
Type "EXPLAYERS" and press Enter to display the "Layouts" palette.
Here, users can copy&paste a "Pase Setup" to other drawings.
Regards.

Sorry, I cannot access your screen shoot.

Hi, Try to replace the Jig with this one: Public Function Jig() As Boolean Try Dim pr As PromptResult Do pr = AcEditor.Drag(Me) ' Keyword handling code If pr.Status = PromptStatus.Keyword Then Else Me.mCurJigFactorIndex += 1 End If Loop While (pr.Status <> PromptStatus.Cancel AndAlso pr.Status <> Pr...

Hi,
Can you attach your code here then someone can find/debug where the issue does?